<%@ LANGUAGE="VBSCRIPT" %> <% vEmail = request("email") vPassword = request("password") vlevel= request("level") if len(vEmail) > 0 and len(vPassword) > 0 then Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open session("cnn") vSql = "select * from tblUserspcan where " vSql = vSql & "email = '" & vEmail & "' and " vSql = vSql & "companyid <> '999' and " vSql = vSql & "password = '" & vPassword & "'" set rsInfo = oConn.Execute(vSql) if not rsInfo.eof then session("cUserId") = rsInfo("userid") session("level")= rsInfo("level") end if end if if len(session("cUserId")) > 0 then Response.Redirect "main.asp" else 'new user send them to the add page for the profile ' if len(vemail) > 0 and len(vPassword) > 0 then 'Response.Redirect "Welcome.asp" ' vError = "Login information does not match." 'end if end if Set oConn = nothing %> Spancan Members <% vNoSidebar = true vNoTopbar = true %>

Welcome

By logging into this site, you agree to the TERMS OF USE.

Simply enter the user name and password that you received from Spancan.

If you have any questions or require any assistance kindly contact
the webmaster, at (905) 428-0700 x22
User Name
   
Password