<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If Request("action") = "add" Then
Function fSendEmail(vFrom, vTo, vSubject, vBody)
Dim objCDONTS
On Error Resume Next
Set objCDONTS = CreateObject("CDONTS.NewMail")
If err <> "0" Then fSendEmail = "EMAIL ERROR: Could not INSTANCIATE CDONTS object." End If
With objCDONTS
.From = vFrom
.To = vTo
.Subject = vSubject
.Body = vBody
On Error Resume Next
.Send
End With
If err <> "0" Then fSendEmail = "EMAIL ERROR: Could not SEND with CDONTS." End If
Set objCDONTS = Nothing
End Function
DIM objMail, vBody
vBody = "Search Engine Optimization Quote Request Information Follows:" & vbCrLf & vbCrLf
For i = 1 To (Request.Form.Count-1)
vBody = vBody & Request.Form.Key(i) & "= " & Request.Form.Item(i) & vbCrLf & vbCrLf
Next
'NOW CALL THE FUNCTION THAT SENDS THE EMAIL MESSAGE
DIM vMailError
vMailError = fSendEmail("quote@3na.com", "quote@3na.com", "Online Quote Request", vBody)
'vMailError = fSendEmail("quote@3na.com", "quote@3na.com", "Online Quote Request", vBody)
IF vMailError > "" THEN
Response.Write("" & vMailError & "")
Else
Response.Redirect("http://www.3na.com/thankyou.asp")
End If
End If
%>