<%
Private Function isValidData()
If Request.Form("txtname") = "" Then
Error_Add "Name is a Required Field"
End If
If Request.Form("txtcompany") = "" Then
Error_Add "Company is a Required Field"
End If
If Request.Form("txtphone") = "" Then
Error_Add "Phone Number is a Required Field"
End If
If intErrorCount = 0 Then
isValidData = True
Else
isValidData = False
End If
end function
If Request.form("action") = "submit" then
'Response.Write Request.form("action")
'Response.end
If isValiddata() then
Dim mail, strHost, strBody
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.BodyFormat = 1
Mail.From = Request.Form("txtemail")
Mail.to = "info@commsolution.com"
Mail.Subject = "Commsolution Questions"
strBody = "Name: " & Request.Form("txtName") & vbCrlf & "Company: " & Request.Form("txtcompany") & vbCrlf & "Email Address: " & Request.Form("txtemail") & vbCrlf & "Phone: " & Request.Form("txtPhone") & vbCrlf & "Fax: " & Request.Form("txtfax") & vbCrlf & vbCrlf & "Comments: " & Request("txtComments") & vbCrlf
mail.Body = strBody
Mail.send
Response.Redirect "thanks.htm"
End if
End IF
%>
Comm Solutions Company
