| Rose Scharlin Members Page |
<%
if session("email")="" then
strCNX = "Provider=SQLOLEDB; Data Source=ipsqtw0024atl2.registeredsite.com; Initial Catalog=rosescharlincom; " _
& "User Id=user1123349; Password=ik2465zgjy;"
set cnxLogon = Server.CreateObject("ADODB.Connection")
cnxLogon.ConnectionTimeout = 15
cnxLogon.CommandTimeout = 30
cnxLogon.open strCNX
dim strRSName
set rstLogon = Server.CreateObject("ADODB.Recordset")
if len(request.querystring("UserName")) <> 0 then
rstLogon.open "select * from tblRSUsers where e_mail_addr='" & request.querystring("userName") & "'", cnxLogon, 0, 1
if not rstLogon.eof then
rstLogon.movefirst
'match
if trim(rstLogon("PassWord"))=trim(request.querystring("UserPWD")) then
session("email")=request.querystring("userName")
strRSName=request.querystring("userName")
session("LARS")=rstLogon("LARS")
session("userID")=rstLogon("ID")
%>
<%=strRSName%><% else %> No Match on that password. Please try again. <% end if else %>Sorry, No Match on that UserName and Password <% end if rstLogon.close else %> <% end if set cnxLogon = nothing else %> <%=strRSName%><% end if %> |