****http://home.xdb.com/techsup/scripts/login.asp: <% LoggedIn = False BadPassword = False If Request.Form("comno") <> "" Then Set Session("comno") = Request.Form("comno") Set Session("locno") = Request.Form("locno") Set Session("conno") = Request.Form("conno") Else If Request.QueryString("change").count = 1 Then Session.Abandon Else Session("comno") = Request.Cookies("trax")("comno") Session("locno") = Request.Cookies("trax")("locno") Session("conno") = Request.Cookies("trax")("conno") End If End If ComNo = Session("comno") LocNo = Session("locno") ConNo = Session("conno") If not IsNumeric(ComNo) Then ComNo = "" End If If not IsNumeric(LocNo) Then LocNo = "" End If If not IsNumeric(ConNo) Then ConNo = "" End If If ComNo = "" Then ComNo = 0 End If If LocNo = "" Then LocNo = 0 End If If ConNo = "" Then ConNo = 0 End If If ComNo > 0 And LocNo > 0 And ConNo > 0 Then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "JUGGLER32" sql="SELECT firstname, lastname, company" & _ " FROM trax.contact t, trax.company p" & _ " WHERE p.Com_No=t.Com_No" & _ " AND t.Com_No=" & ComNo & _ " AND t.Loc_No=" & LocNo & _ " AND t.Con_No=" & ConNo Set RS = Conn.Execute(sql) If RS.eof Then Response.Status = "403 Not Authorized" BadPassword = True Else LoggedIn = True Name = RS("firstname") & " " & RS("lastname") Session("company") = RS("company") Response.Cookies("trax")("comno") = Session("comno") Response.Cookies("trax")("locno") = Session("locno") Response.Cookies("trax")("conno") = Session("conno") Response.Cookies("trax").Expires = Now + 365 End If RS.close End If If LoggedIn = true And Session("called") <> "" Then File = Session("called") Session("called") = "" Response.Redirect File End If %>
XDB Systems Tech Support Registered users site. |
<% End If %>