<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_click2stay_STRING MM_editTable = "adopt" MM_editRedirectUrl = "living_coasts/Thankyou_adopt.htm" MM_fieldsStr = "Name|value|email|value" MM_columnsStr = "Name|',none,''|email|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> torquay
Adopt an animal
ADOPT AN ANIMAL TORQUAY
 
SITE DIRECTORY

 
Email :
Name :
Subscribe
Un-Subscribe

 
COMPETITION - WIN A 2 NIGHT STAY IN A TORQUAY HOTEL!

If you would like to try and win a short break in our Spring Competition, please enter your details below. The winner will get an out of season break, paid for by torquay.com. This will cover room rate for two plus breakfast. Second prize is a meal in a restaurant for two and third prize is Devon Clotted Cream delivered to your door!

Check the hotels page here and let us know which hotel you prefer! You may only however select from our showcase page. All hotels have something different and some are more luxurious. That doesn't always mean you will have the best time there though. hospitality, food, ambience, personal attention and location also count for a lot!

CLICK HERE TO CHECK OUT THE HOTELS

Even out of season there is lots to do and see. Check out the links on this site.
Hotel Name:
Your E-Mail:
Your Name:
Whilst you are here you can visit one of the many attractions that Torbay can offer. Living Coasts, Paignton Zoo, Kents Cavern, the Steam Railway and much more. Or you can just relax, dine and stroll. Click here for more
 
home    |    accommodation    |    maps    |    attractions    |    beaches    |    kids    |    guide
torquay.com © 2004 | Privacy Policy | Terms Of Use