<%
Response.Expires = "0"
villaid=request("villaid")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("database1_ConnectionString")
Set RS = Conn.Execute ("SELECT * From VillaTable WHERE villaid = " & villaid & "")
Do until RS.EOF
userid=RS("userid")
RS.MoveNext
loop
RS.Close
Set RS = Conn.Execute ("SELECT * From userstable WHERE userid = '" & userid & "'")
do until RS.EOF
paid=RS("paid")
RS.MoveNext
loop
Set RS = Conn.Execute ("SELECT * From PhotoTable WHERE Villaid = '" & Villaid & "'")
Do until RS.EOF
Pic1=RS("pic1")
cap1=RS("caption1")
Pic2=RS("pic2")
cap2=RS("caption2")
Pic3=RS("pic3")
cap3=RS("caption3")
Pic4=RS("pic4")
cap4=RS("caption4")
Pic5=RS("pic5")
cap5=RS("caption5")
Pic6=RS("pic6")
cap6=RS("caption6")
RS.MoveNext
loop
RS.Close
Conn.Close
if pic1 = "" or paid = "0" then
response.redirect("http://www.bikexchange.co.uk/villanotfound.asp")
else
picture1 = "![Loading...](" & pic1 & ")
"
picture2 = "![Loading...](" & pic2 & ")
"
picture3 = "![Loading...](" & pic3 & ")
"
picture4 = "![Loading...](" & pic4 & ")
"
picture5 = "![Loading...](" & pic5 & ")
"
picture6 = "![Loading...](" & pic6 & ")
"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("database1_ConnectionString")
Set RS = Conn.Execute ("SELECT * From VillaTable WHERE villaid = " & villaid & "")
Do until RS.EOF
VillaName=RS("villaname")
villadescription=RS("description")
userid=RS("userid")
updated=RS("updated")
locationid=RS("locationid")
RS.MoveNext
loop
RS.Close
Set RS = Conn.Execute ("SELECT * From LocationTable WHERE Locationid = '" & Locationid & "'")
Do until RS.EOF
countryid=RS("countryid")
region=RS("region")
enginesizeid=RS("enginesizeid")
RS.MoveNext
loop
Set RS = Conn.Execute ("SELECT * From userstable WHERE userid = '" & userid & "'")
do until RS.EOF
name=RS("name")
tel=RS("telephone")
mobile=RS("mobile")
fax=RS("fax")
emailadd=RS("emailadd")
website=RS("website")
RS.MoveNext
loop
Conn.Close
end if
%>
bikeXchange.co.uk
support@bikexchange.co.uk
