<%@LANGUAGE="VBSCRIPT" codepage="1256"%> <% '************************************************************************************************************************' '******************************************* Please don't change this section *******************************************' '************************************************************************************************************************' set conn=server.CreateObject ("adodb.connection") conn.Open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/admin/Marvelous-Egypt.mdb") set rs=server.CreateObject ("adodb.recordset") set qrs=server.CreateObject ("adodb.recordset") set mrs=server.CreateObject ("adodb.recordset") '************************************************************************************************************************' '************************************************************************************************************************' Sub closeDbconn() if isobject(conn) then if conn.State = adStateOpen then conn.Close end if set conn = nothing end if End sub %> <% sql="select * from Languages Where LanguageId="&request.QueryString("LanguageId") 'Response.Write("
"&sql) rs.open sql,conn,3 IF rs.EOF Then Session("LanguageId")="" Else ' Start New Session Session("LanguageId")=rs("LanguageId") Session("LanguageName")=rs("Name") End IF 'Response.Write("
"&CurrentLanguage) 'Response.Write("
"&CurrentLanguageName) Response.Redirect("default.asp") rs.close %>