|
|
|
The enquiry list function will not work if you have Cookies disabled on your web browser. The following reference numbers have been added to your enquiry list: |
||||||
<%
dim t
dim z
dim y
z = 1
y = false
t = request.QueryString("ID")
while z < 99 and y <> true
if Request.Cookies("EnquiryList") ("id"& z) = "" then
y = true
else
z = z + 1
end if
wend
response.Cookies("EnquiryList").expires = date() + 5
Response.Cookies("EnquiryList") ("id" & z) = t
%>
<%
dim i
dim sale
dim sql
for i = 1 to z
if request.Cookies("EnquiryList") ("id" & i) <> "" then
sql = "SELECT * FROM Houses where ID like '" & request.Cookies("EnquiryList") ("id" & i) &"'"
Set sale = Server.CreateObject("ADODB.Recordset")
sale.Open sql, objConn
%>
|
||||||
| <% if request.QueryString("Del") = "t" then Response.cookies("EnquiryList") = "" end if %> <% objConn.Close() Set objConn = Nothing %> |