<%
address = trim(request("address"))
lotno = trim(request("lotno"))
If request("submit")<>"" And (address="" Or lotno="") Then
blnErr = True
strMsg = "Please provide both an Address and a Lot Number."
End If
If request("submit")<>"" And address<>"" And lotno<>"" Then
Set objDB = Server.CreateObject ("ADODB.Connection")
objDB.Open application("dbconn")
SQL = "SELECT LOCID, ALLOWLOGIN FROM DILS_LOCATION WHERE UCASE(ADDRESS)='" & ucase(replace(address,"'","''")) & "';"
Set RS = objDB.Execute(SQL)
If Not RS.EOF Then
Set RS = Nothing
SQL = "SELECT A.LOCID, A.ALLOWLOGIN, B.NAME FROM DILS_LOCATION A, DILS_COMMUNITY B WHERE A.COMMID = B.COMMID AND UCASE(A.ADDRESS)='" & ucase(replace(address,"'","''")) & "' AND UCASE(A.LOTNO)='" & ucase(replace(lotno,"'","''")) & "';"
Set RS = objDB.Execute(SQL)
If Not RS.EOF Then
locid = RS(0)
allowlogin = RS(1)
communityname = RS(2)
Set RS = Nothing
If Ucase(allowlogin)="Y" Then
session("locid") = locid
session("address") = address
session("lotno") = lotno
session("communityname") = communityname
response.redirect application("welcomepage")
Else
blnErr = True
strMsg = "The login for this Address and Lot Number has not been enabled."
End If
Else
Set RS = Nothing
blnErr = True
strMsg = "The Lot Number and Address do not match."
End If
Else
Set RS = Nothing
blnErr = True
strMsg = "The Address cannot be found in the database."
End If
Set objDB = Nothing
End If
%>
North Carolina real estate, visit Dilsheimer communities new home builder offering retirement communities, Florida land, new home builders specializing in land development, Delaware real estate, homes for sale in North Carolina in Brunswick County NC and homes for sale in PA.
