%@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
<%
strSelect = "Select PID, txtTitle from tblsitepage "
Set sitepages = DBConn.EXECUTE(strSelect)
if sitepages.eof = false then
do until sitepages.eof = True
%>
<%
sitepages.movenext
loop
end if
sitepages.close
set sitepages = nothing%>
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 & "
Thank you for submitting your Question, I will answer your question shortly
<%Else%>
<%End if%>
<%
'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%>