<%@ Language=VBScript %> <% 'Option Explicit %> <% connectToDb() %> <% Dim strPathToViews strPathToViews = "files/pro_images/" 'this code is for default texts and images from homepage strSQL = "SELECT * FROM product_tbl" strSQL = strSQL & " WHERE pro_view='1' AND pro_homepage='1' LIMIT 1" set objRS = objconn.execute(strSQL) if not objRS.EOF then ' While not objRS.EOF pro_id = objRS("pro_id") pro_title = objRS("pro_title") pro_desc = objRS("pro_desc") pro_cat_join = objRS("pro_cat_join") pro_image_0 = objRS("pro_image_0") pro_image_1 = objRS("pro_image_1") pro_image_2 = objRS("pro_image_2") ' objRS.MoveNext ' Wend end if objRS.Close %> <% Dim strAction, error_msg strAction = request("action") if strAction = "sendenquiry" then username = request("username") telephone = request("telephone") email = request("email") enquiry = request("enquiry") str_body = "" str_body = str_body & ""& constProjectName &" Enquiry" & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & "
 
Name: " & username & "
Telephone: " & telephone & "
Email: " & email & "
 
Enquiry: " & enquiry & "
" & vbcrlf str_body = str_body & " " & vbcrlf str_body = str_body & "" & vbcrlf str_subject = constProjectName &" Enquiry" Set mail = Server.CreateObject("CDONTS.NewMail") mail.Subject = str_subject mail.Body = str_body mail.BodyFormat = 0 mail.From = constNoReplyEmail mail.Host = constServer mail.to = constCentralEmail 'on error resume next mail.send Set mail = Nothing set objRS = nothing Response.Status="302 Object moved" Response.Redirect "enquiry.asp?action=send_ok" end if %>
<% if pro_image_1 <> "" then %>Vellagio images<% end if %>
Enquiry form
<% if strAction = "send_ok" then response.write "Enquiry has been sent.

" end if %> <% strTmp = "70px" %>
 

The Vellagio
Ventura Drive
Grace Bay
Providenciales
Turks & Caicos Islands
British West Indies

tel: +1 649 946 5126/5158

<% killConnectionToDb() %>