<% Dim bolSuccess Dim strLogin Dim strPassword Dim sqlLogin Dim rsLogin Dim strMsg Dim strRole Dim sqlMember Dim rsMember strLogin = Trim(Request.Form("txtLogin")) strPassword = Trim(Request.Form("txtPassword")) 'Response.Write strLogin & "
" 'Response.Write strPassword & "
" strMsg = "" bolSuccess = False If strLogin = "" Then strMsg = "Please Enter Login & Password" Else sqlLogin = "SELECT * FROM for_admin " _ & " WHERE Login = '" & strLogin & "' And Status <> 'D'" Set rsLogin = objConn.Execute(sqlLogin) If rsLogin.EOF Then bolSuccess = False strMsg = "Invalid Login ???" Else If strPassword <> Trim(rsLogin("Password")) Then bolSuccess = False strMsg = "Invalid Password ???" ElseIf Trim(rsLogin.Fields("Status")) = "P" Then bolSuccess = False strMsg = "Subscription Pending ! " ElseIF Trim(rsLogin.Fields("Status")) = "N" Then bolSuccess = False strMsg = "Subscription Disabled !" Else 'check account expiry 'Response.Write "
" & StrComp(rsLogin("Role"),"Visitor") ' If UCase(rsLogin("Role")) = UCase("SUBSCRIBER") Then ' sqlMember = "SELECT AccExpDate FROM for_members WHERE Login = '" & strLogin & "'" ' 'Response.Write "
" & sqlMember '' Set rsMember = objConn.Execute(sqlMember) ' ' If Not rsMember.EOF Then ' If DateDiff("d",rsMember("AccExpDate"),Date()) <= 0 Then ' Response.Write DateDiff("d",rsMember("AccExpDate"),Date()) ' bolSuccess = True ' Else ' bolSuccess = False ' Response.Redirect "blcUser.asp" ' End If ' End If ' rsMember.close ' Set rsMember = Nothing ' Else ' bolSuccess = True ' End If '-------------nh bolSuccess = True If bolSuccess = True Then strRole = UCase(Trim(rsLogin("Role"))) Session("Login") = strLogin Session("Role") = strRole IF strRole = "SUBSCRIBER" Then Dim rsUserDetail Dim sqlUser Dim strProducts ' Dim rsLimitedAccess ' Dim strLimitedAccess ' strLimitedAccess = "Y" ' Set rsLimitedAccess = Server.CreateObject("ADODB.Recordset") ' rsLimitedAccess.LockType = adLockOptimistic ' rsLimitedAccess.CursorType = adOpenDynamic ' rsLimitedAccess.Open "Select * From for_tax",objConn ' If rsLimitedAccess.BOF <> True And rsLimitedAccess.EOF <> True Then ' strLimitedAccess = rsLimitedAccess.Fields(1) ' Else ' strLimitedAccess = "Y" ' End IF ' Set rsLimitedAccess = Nothing ' If strLimitedAccess = "Y" Then ' sqlUser = "Select Product From for_UsersProduct Where Status = 'Y' And Login = '" & strLogin & "' And OrderFrom <= '" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & "' And Expiry >= '" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & "'" ' Else ' sqlUser = "Select Product From for_UsersProduct Where Status = 'Y' And Login = '" & strLogin & "'" ' End If sqlUser = "Select Product From for_UsersProduct Where Status = 'Y' And Login = '" & strLogin & "'" 'Response.Write" sqlUser : " & sqlUser 'strProducts = "0" Set rsUserDetail = Server.CreateObject("ADODB.Recordset") rsUserDetail.LockType = adLockOptimistic rsUserDetail.CursorType = adOpenDynamic rsUserDetail.Open sqlUser,objConn Do While Not rsUserDetail.EOF if strProducts <> "" then strProducts = strProducts & "," & trim(rsUserDetail.Fields(0)) else strProducts = trim(rsUserDetail.Fields(0)) end if 'Response.Write strProducts & "
" rsUserDetail.MoveNext Loop Set rsUserDetail = Nothing Session("SProduct") = strProducts 'Subscriber's Products Code 'Response.Write strProducts & "
" dim strItemName, strItemNameII strItemName= getItemName(Session("SProduct")) Dim arrDefault1 Dim intCount1 arrDefault1 = Split(strItemName,",") For intCount1 = LBound(arrDefault1) To UBound(arrDefault1) 'If Instr(Trim(arrDefault1(intCount1)),",") > 0 Then if strItemNameII ="" then 'strItemNameII = "'"& Mid(trim(arrDefault1(intCount1)),Instr(trim(arrDefault1(intCount1)),"-")+3,Len(trim(arrDefault1(intCount1))) - Instr(trim(arrDefault1(intCount1)),"-"))&"'" strItemNameII = "'"& trim(arrDefault1(intCount1)) &"'" else 'strItemNameII = strItemNameII &",'"& Mid(trim(arrDefault1(intCount1)),Instr(trim(arrDefault1(intCount1)),"-")+3,Len(trim(arrDefault1(intCount1))) - Instr(trim(arrDefault1(intCount1)),"-"))&"'" strItemNameII = strItemNameII &",'"& trim(arrDefault1(intCount1)) &"'" end if 'end if next Dim rsCounty Dim strDefault Dim rsAll dim count, countA, strIname, countB, countP, countS count = Len(strItemName) - Len(Replace(strItemName,",", "")) countA = Len(strItemName) - Len(Replace(strItemName,"-", "")) if count > 0 or countA > 0 then 'sqlUser = "Select Distinct StateID,CountyID From for_orderitem Where (StateID <> '' Or StateID <> Null) And ItemID In (" & strProducts & ")" sqlUser = "Select Distinct StateID,CountyID From for_orderproduct Where productname In (" & strItemNameII & ")" Set rsCounty = Server.CreateObject("ADODB.Recordset") rsCounty.LockType = adLockOptimistic rsCounty.CursorType = adOpenDynamic rsCounty.Open sqlUser,objConn Do While Not rsCounty.EOF strDefault = strDefault & Trim(rsCounty.Fields("StateID")) & "-" & Trim(rsCounty.Fields("CountyID")) & "," '<---------Comment on 03/02/2005 'If Trim(rsCounty.Fields("CountyID")) = "KN" Then 'strDefault = strDefault & Trim(rsCounty.Fields("StateID")) & "-KR," 'End If '<-------------End Comment rsCounty.MoveNext Loop Set rsCounty = Nothing else '<--------------------Comment on 01/05/2007 for 'sqlUser = "Select Distinct StateID,CountyID From for_orderitem Where (StateID <> '' Or StateID <> Null) And ItemID In (" & strProducts & ")" sqlUser = "Select Distinct StateID,CountyID From for_orderproduct Where productname In (" & strItemNameII & ")" 'Response.Write sqlUser & "
" Set rsCounty = Server.CreateObject("ADODB.Recordset") rsCounty.LockType = adLockOptimistic rsCounty.CursorType = adOpenDynamic rsCounty.Open sqlUser,objConn Do While Not rsCounty.EOF strDefault = strDefault & Trim(rsCounty.Fields("StateID")) & "-" & Trim(rsCounty.Fields("CountyID")) & "," '<---------Comment on 03/02/2005 'If Trim(rsCounty.Fields("CountyID")) = "KN" Then 'strDefault = strDefault & Trim(rsCounty.Fields("StateID")) & "-KR," 'End If '<-------------End Comment rsCounty.MoveNext Loop Set rsCounty = Nothing end if sqlUser = "Select Distinct CategoryID From for_orderitem Where TypeOption = 'A' And ItemID In (" & strProducts & ")" 'Response.Write sqlUser & "
" Set rsCounty = Server.CreateObject("ADODB.Recordset") rsCounty.LockType = adLockOptimistic rsCounty.CursorType = adOpenDynamic rsCounty.Open sqlUser,objConn Do While Not rsCounty.EOF sqlUser = "Select Distinct StateID,CountyID From for_orderitem Where CategoryID = " & rsCounty.Fields(0) Set rsAll = Server.CreateObject("ADODB.Recordset") rsAll.LockType = adLockOptimistic rsAll.CursorType = adOpenDynamic rsAll.Open sqlUser,objConn Do While Not rsAll.EOF strDefault = strDefault & Trim(rsAll.Fields("StateID")) & "-" & Trim(rsAll.Fields("CountyID")) & "," If Trim(rsAll.Fields("CountyID")) = "KN" Then strDefault = strDefault & Trim(rsAll.Fields("StateID")) & "-KR," End If rsAll.MoveNext Loop rsCounty.MoveNext Loop Set rsCounty = Nothing 'Response.Write strDefault If Len(strDefault) > 0 Then strDefault = Mid(strDefault,1,Len(strDefault)-1) Session("Default") = strDefault Else Session("Default") = Trim(rsLogin("DefaultState")) End IF End IF End If End If rsLogin.Close Set rsLogin = Nothing objConn.Close Set objConn = Nothing End If 'Response.Write bolSuccess If bolSuccess = True Then Response.Redirect "SelectCounty.asp" End If 'Error Handling Code... If Err.Number >0 Then 'Response.Write Err.Description Else 'Iterate over Error collection For Each dbError In objConn.Errors 'Response.Write dbError.Description & "
" Next objConn.Errors.Clear End If %>
<% If Session("Login") <> "" Then %> <% End If %>

<%= strMsg%>

Login
Password
               Retrieve Password
Click For Free Demo
Welcome to www.rexreport.com !

We have lists of properties posted for foreclosure in central Texas. These lists are complete, timely and exact. Possibly save tens of thousands of dollars by buying foreclosures and save hundreds of hours of research by subscribing the Rex Report.

Place Online Order
FAQ's Related Helpful Links

REOs / Sold Properties and Short Sales.
Wish we had reports for another county?  Click here
<% IF Instr(UCase(Session("Role")),"ADMIN")>0 Then %>   Hit Counter : <%=lngHitCounter%> <% End If %>

Home |Order Now |Workshop Schedule |Contact Us

Copyright 2001-2014 Real Estate Foreclosures, Inc. All Rights Reserved. | Disclaimer |

2007 Candlelight lane, San Antonio, TX 78213, (210) 733-4262
E-mail : gstanley@flash.net