%Response.Buffer = True%> <% If Request.Form("Submit") <> "" Then Dim strTo ' Strings to hold our email fields Dim strFrom Dim strSubject Dim strBody Dim objCDO strBody = "" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "Enquiry
" & vbCrLf _ & "| Name | " & vbCrLf _ & ""& Request.Form("txtName") &" | " & vbCrLf _ & "
| Company | " & vbCrLf _ & ""& Request.Form("txtcompany") &" | " & vbCrLf _ & "
| Email " & vbCrLf _ & "Address | " & vbCrLf _ & ""& Request.Form("txtEmail") &" | " & vbCrLf _ & "
| Address | " & vbCrLf _ & " "& Request.Form("txtAdd") &" " & vbCrLf _ & "
| " & vbCrLf _
& "
| Comments | " & vbCrLf _ & ""& Request.Form("txtComm") &" | " & vbCrLf _ & "
|
|||||||||||