<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** 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")) = "frm_Register") Then MM_editConnection = MM_oviatt_STRING MM_editTable = "tbl_Owners" MM_editRedirectUrl = "" MM_fieldsStr = "Salutation|value|FirstName|value|LastName|value|AddressLine1|value|AddressLine2|value|Town|value|County|value|PostCode|value|HomeTel|value|WorkTel|value|Mobile|value|Email|value" MM_columnsStr = "Title|',none,''|FirstName|',none,''|LastName|',none,''|AddLn1|',none,''|AddLn2|',none,''|Town|',none,''|County|',none,''|PostCode|',none,''|HomeTel|',none,''|WorkTel|',none,''|Mobile|',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 %> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "Salutation~FirstName~LastName~AddressLine1~AddressLine2~Town~County~PostCode~HomeTel~WorkTel~Mobile~Email" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "website@wanttorentspain.com" objCDO.To = "registration@wanttorentspain.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Registration form from website" BodyString = Replace("These details have been submitted from the registration page on the website. ~~The owner details have been added to the on-line database.~~If all details are valid and confirmation of payment from paypal / cheque has been recieved then reply to the email address contained with a username and password to allow the registrant access to the admin section of the website.~~Don't forget to add the username, password, access level and start date to the website via your private admin section.~~Owner details follow.~-------------------------------------------------------------------------","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "RegisterConfirm.asp" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> Want to Rent Spain - Register your Property
 
 
 
 
 
 
 

Want to Rent Spain?

 
Search for a Spanish rental property
register your property for rental
members login area
Want to Rent Spain Home Page
How to Contact Us
Car Hire in Spain
Flights to Spain
The Links Page
 
 

To register your property with wanttorentspain.com all you need to do is fill in your details in the form below click the proceed link, make your payment to Paypal ( a modest £25.00 annual payment ),Paypal is a secure server with stringent security measures to protect your details, or by cheque (contact sales) and await our confirmation email containing your username and password.

Once you have your username and password you will be able to login via the Member Login button and upload the details on your property. If you have any questions about the registration process or a general registration query then please email us at sales.

 
Your Details

Title:
First Name:
Last Name: *
Address Line 1: *
Address Line 2:
Town: *
County: *
Post Code: *
Home Tel:
Work Tel:
Mobile:
Email: *
items marked with a * are compulsory

Tick here to agree to all terms of business
 
   
 
 

 

© Copyright 2004 all rights reserved wanttorentspain.com - design and hosting www.pipm.com