<%
Sub Write(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
response.write(strWriteThis & "
")
end sub
%>
<%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
dim lngSiteType
'The following variable assignments are not required
'they are just here to make interpretation of the
'myCDONTSMail.Send line easier. You could put the
'Request.Form statements in the .Send line to cut down
'on the amount of code in the file.
strFrom=request.form("txtFrom")
strTo=request.form("txtTo")
strSubject = request.form("txtSubject")
strBody=request.form("txtMessage")
lngImportance = request.form("optImportance")
lngSiteType = request.form("optType")
'The following four lines of code are just here for test
'purposes to see what variables have been pulled in from the
'HTM form.
strBody = strBody & vbcrlf & "Phone Number " & request.form("txtPhone")
strBody = strBody & vbcrlf & "Fax Number " & request.form("txtFax")
'Write("Your mail request has been sent")
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
'msgbox "Your mail request has been sent"
myCDONTSMail.Value("Reply-To") = strFrom
myCDONTSMail.Send "webmail@svek.co.uk","Kevin@Svek.co.uk",StrFrom,strBody,lngImportance
Set myCDONTSMail = Nothing
response.write "Mail has been sent."
response.write "
"
%>
Please wait, your request has been sent and you will be automatically redirected in a few seconds
