Contact Us
<%
dim strMsg, strBody, rs
if request.ServerVariables("REQUEST_METHOD")="POST" then
'Form has been posted, so update the database
strBody = vbcrlf & " Name:" & request.form("name") & "" & vbcrlf &_
" Question: " & request.form("question") & "" & vbcrlf & vbcrlf & _
" Email: " & request.form("email") & "" & vbcrlf & _
" Tel: " & request.form("tel_no") & "" & vbcrlf & _
" Date: " & now() & ""
if SendPTEmail("tarland@btconnect.com, d.oliver@gmail.com", "tarland@btconnect.com", strBody, "", "", "New Question from Tarland", "")=true then response.write(" ")
strMsg = ""
end if
%>
|
|
