<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% pid = 1 if request("pid") <> "" then pid = request("pid") strPages = "SELECT * FROM tblsitepage where PID = '" & pid& "' ;" Set rsPages = DBConn.EXECUTE(strPages) if rsPages.eof = false then txtTitle = trim(rsPages("txtTitle")) txtDescription = trim(rsPages("txtDescription")) txtKeywords = trim(rsPages("txtKeywords")) txtMetaTitle = trim(rsPages("txtMetaTitle")) txtBody = trim(rsPages("txtBody")) End if rsPages.close set rsPages = nothing %> Ask Me a Question

Ask Me a Question

<% dim objCDO Set objCDO = Server.CreateObject("CDO.message") objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.drstelios.co.uk" 'Server port objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 objCDO.Configuration.Fields.Update %> <% if request("cmdSubmit") <> "" then 'Send this error Email to Admin 'response.write "-------------------------------------" For Each Item In Request.form HTMLBodyText = HTMLBodyText & "

" & item & " = " & Request.form(Item) next 'response.write "-------------------------------------" 'response.end 'HTMLBodyText = HTMLBodyText & "

Property Type = " & txtType & "

PropertyID=" & PropID objCDO.Subject="New Question from drstelios.co.uk" objCDO.From= "info@drstelios.co.uk " objCDO.To= "info@drstelios.co.uk " objCDO.BCC= "info@rkstech.co.uk " objCDO.HTMLBody = HTMLBodyText '19571967 objCDO.Send set objCDO=nothing %> <%Else%> <%End if%>

Thank you for submitting your Question,
I will answer your question shortly
Your Email Address:
Your Full Name:
Your Contact Number:
Notes
 


<% 'response.redirect("Construction.html") 'response.end 'Create Our ServerVariables and Store them to a variable site = Request.ServerVariables("HTTP_REFERER") ip = Request.ServerVariables("URL") host = Request.ServerVariables("REMOTE_HOST") if isempty(Session("Counter")) then if ip <> "80.229.138.127" and ip <> "86.137.128.44" and site <> "" then dbconn.execute "insert into tblReferrals values ('', '" & site & "', '" & ip & "', '" & host & "','" & now() & "');" end if end if Session("Counter") = 0 response.write "" %> <% DBConn.close set DBConn = nothing%>