<% Response.Buffer = True Dim selectedLanguage If Application("JBSX_sSettings_ChangeLanguageIsEnable") = "True" then selectedLanguage = Request("sDefaultLanguage") Else selectedLanguage = Application("JBSX_sSettings_Language") End If strRedirect = "index.asp" IF Request.Form("Email") <> "" AND Request.Form("Password") <> "" THEN strSQL = "SELECT * FROM JBS_Advertiser WHERE aEmail='" & Request.Form("Email") & "' AND aPassword ='" & Request.Form("Password") & "' " Set objRS = Conn.Execute(strSQL) If objRS.EOF Then Session("JBSX_Inlogged") = "False" Session("JBSX_NotValid") = "" & Application(getLang() & "_strJBS_00290") & "!" strRedirect = "login.asp" Else If Application("JBSX_sSettings_CookiesIsEnable") = "True" Then Response.Cookies("JBSX")("uLanguage") = selectedLanguage Response.Cookies("JBSX")("aEmail") = objRS("aEmail") Response.Cookies("JBSX")("aPassword") = objRS("aPassword") if Application("JBSX_sSettings_CookiesRemember") = "True" Then if Request("RememberMe") = "ON" then Response.Cookies("JBSX").Expires = DateAdd("d",365,Now) else Response.Cookies("JBSX").Expires = DateAdd("d",1,Now) end if end if Else Session("JBSX_JBS_uLanguage") = selectedLanguage Session("JBSX_aEmail") = objRS("aEmail") Session("JBSX_aPassword") = objRS("aPassword") End If End If objRS.Close : Set objRS = Nothing Conn.Close : Set Conn = Nothing ELSE Session("JBSX_Inlogged") = "False" Session("JBSX_NotValid") = "" & Application(getLang() & "_strJBS_00290") & "!" strRedirect = "login.asp" END IF Response.Redirect(strRedirect) %>