Sapna Sangita Group

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim message if request("cmdSubmit") = "Login" then dim rs set rs = server.CreateObject("adodb.recordset") rs.open "select loginname,firstname,lastname from userinfo where loginname = '" & request("txtLogin") & "' and password = '" & request("txtPassword") & "'",con if not rs.eof then session("sapnasangeetauser") = request("txtLogin") session("username") = rs("firstname") & " " & rs("lastname") rs.close set rs = nothing con.close set con = nothing response.Redirect("choosetheatre.asp") else rs.close set rs = nothing con.close set con = nothing message = " Login/Password Incorrect. Please Login again
" end if end if %> Sapna Sangita Group