To Enquire about our properties you must first add it to your Enquiry List, From there you can modify your Enquiry List by selecting View My Enquiry List shown above, when you have finished browsing our properties and wish to send us your Enquiry List simply select Send My Enquiry List.
<% If sale.bof = true then
response.Write("Sorry the Reference number you entered does not exist Please," &vbcrlf)
response.Write("[Go Back]")
else
response.Write (" ")
response.Write ("")
response.Write ("| "& "€" & (sale.Fields.Item("Price").Value) & "/" & "no" & "-" & (sale.Fields.Item("Town").Value) & "," & (sale.Fields.Item("Area").Value) & " | ")
response.Write (" ")
response.Write ("")
response.Write ("| " & (sale.Fields.Item("Mdescription").Value) & " | ")
response.Write (" ")
response.Write ("")
response.Write ("Ref ID: " & (sale.Fields.Item("ID").Value) & " | ")
response.Write (" ")
response.Write (" ")
response.Write ("")
Response.Write(" "&vbcrlf)
Response.Write(""&vbcrlf)
dim z
dim fs
dim i
dim pic
z=1
Set fs=Server.CreateObject("Scripting.FileSystemObject")
for i=1 to 12
Pic = Server.MapPath("Images/" & (sale.Fields.Item("ID").Value) &"_" & i & ".jpg")
If (fs.FileExists(Pic))=true Then
Response.Write("![]() | "&vbcrlf)
if z = 3 then
response.Write(" " &vbcrlf)
response.Write(""&vbcrlf)
z=1
else
z=z+1
end if
else
exit for
End If
next
set fs=nothing
Response.Write(" ")
Response.Write(" ")
end if
%> |
|
