% 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 = "" picture2 = "" picture3 = "" picture4 = "" picture5 = "" picture6 = "" 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 %>
Terms and Conditions
- Disclaimer Notice
|
|||||
(c) Copyright 2004 BikeXchange
Add bikeXchange to your Favorites