"
strSubject = "Abbey Glass Chester Enquiry Form"
' This is multi-lined simply for readability.
' Notice that it is a properly formatted HTML
' message and not just plain text like most email.
' A lot of people have asked how to use form data
' in the emails so I added an example of including
' the entered address in the body of the email.
strBody = "" & vbCrLf _
& "" & vbCrLf _
& "" & vbCrLf _
& " ABBEY GLASS CHESTER" & vbCrLf _
& " " & vbCrLf _
& "" & vbCrLf _
& "" & vbCrLf _
& " GLASS & GLAZING
" & vbCrLf _
& " " & vbCrLf _
& " This message has been sent from" & vbCrLf _
& " Abbey Glass Chester." & vbCrLf _
& " Thank you for your enquiry, we will contact" & vbCrLf _
& " you as soon as we can with the information" & vbCrLf _
& " you requested." & vbCrLf _
& "
" & vbCrLf _
& " If you did not request this email yourself," & vbCrLf _
& " your address was entered by one of our" & vbCrLf _
& " visitors." & vbCrLf _
& " " & vbCrLf _
& " " & vbCrLf _
& " " & vbCrLf _
& " " & vbCrLf _
& " This message was sent to: " & strTo & "
" & vbCrLf _
& " " & vbCrLf _
& "" & vbCrLf _
& "" & vbCrLf
' Some lines to help you check the formatting of your
' email before you actually start sending it to people.
'Response.Write "
"
'Response.Write Server.HTMLEncode(strbody)
'Response.Write "
"
'Response.End
' Ok... we've got all our values so let's get emailing:
%>
<%
If Request.Form("SendButton") <> "Submit" Then
%>