<% IF Request.Form("Submit") = "Submit" THEN Dim Conn,RS,MSG,Agency,Principle,AgencyNumber,AgencyEmail,LastID Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open "DSN=Houseline;User ID=houseline_web;Password=houseweb;" RS.Open "SELECT * FROM [4SaleRules]",Conn IF NOT RS.EOF THEN Restrict = RS("RULE_RestrictAgc") END IF RS.close RS.Open "SELECT COUNT(*) as tCount FROM [4saleagencies] WHERE CityOfOp ='"&Request.Form("TownOfOp")&"'", Conn IF RS("tCount") "" THEN for i = LBOUND(Agency) to UBOUND(Agency) Set RS = Conn.execute("INSERT INTO AgencyProspect(AP_Agency, [AP_ Principal], AP_ContactInfo, AP_Email,AT_REFAGC_ID) VALUES('"&Agency(i)&"','"&Principle(i)&"','"&AgencyNumber(i)&"','"&AgencyEmail(i)&"','"&LastID&"')") next END IF MSG ="Thank you for submitting your details. You are now on our database." ELSE MSG ="This form was not submittted as the database is currently full for this area.
Please try again later." END IF END IF %> Sales Report
<% IF Request.Form("Submit") <> "Submit" THEN %> <% ELSE %> <% END IF%>
We recomend the folowing Internet sites on properties for sale: