<% 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..." picture2 = "Loading..." picture3 = "Loading..." picture4 = "Loading..." picture5 = "Loading..." picture6 = "Loading..." 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
Motor Bike Parts Servicing Insurance Valeting Accesories and Audio Directory  

 

 

 

 

support@bikexchange.co.uk