<% sub SendMail() Dim strTo Dim strFrom Dim strSubject Dim strBody Dim objCDOMail Dim smtp, oConfig, oFields strFrom = Request.Form("Email") strTo = "info@xumba.com" strBody = "
Customer contact information
" strBody = strBody & "
Company:
" & Request.Form("Company") & "
" strBody = strBody & "
Contact Name:
" & Request.Form("Name") & "
" strBody = strBody & "
Telephone:
" & Request.Form("Telephone") & "
" strBody = strBody & "
Fax:
" & Request.Form("Fax") & "
" strBody = strBody & "
Email:
" & Request.Form("Email") & "
" strBody = strBody & "
Comments:
" & "
" & Request.Form("FeedBack") strSubject = "Contact Information" 'Response.Write strBody 'Response.End '====================================================== 'Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'objCDOMail.From = sFrom 'objCDOMail.To = sTo 'objCDOMail.Subject = strSubject 'objCDOMail.Body = strBody 'objCDOMail.BodyFormat = 1 'objCDOMail.Importance = 2 'objCDOMail.Send() 'Set objCDOMail = Nothing '====================================================== '======================================================= Set smtp = Server.CreateObject("CDO.Message") Set oConfig = Server.CreateObject("CDO.Configuration") Set oFields = oConfig.Fields With oFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xumba.com" .Update End With Set smtp.Configuration = oConfig smtp.From = strFrom smtp.To = strTo smtp.Subject = strSubject smtp.HTMLBody = strBody 'smtp.TextBody = strBody smtp.Send() Set smtp = nothing Set oFields = Nothing Set oConfig = Nothing '========================================================= Response.Redirect("contactconfirm.htm") end sub %>
Xumba's Contact Form
<% dim cnnemployee 'connection dim rsRecords ' Recordset src = server.MapPath("_private\xumba.mdb") sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src set cnnemployee = server.CreateObject("adodb.connection") With cnnemployee .ConnectionString = sConnStr .CursorLocation = 1 .Open End With Set rsRecords = Server.CreateObject("ADODB.Recordset") rsRecords.ActiveConnection = cnnemployee rsRecords.CursorType = adOpenKeyset rsRecords.LockType=2 rsRecords.Source = "contact" rsRecords.Open If Request.Form("Name")<>"" Then rsRecords.AddNew rsRecords("CompanyName")=Request.Form("Company") rsRecords("CompleteName")=Request.Form("Name") rsRecords("Telephone")=Request.Form("Telephone") rsRecords("Fax")=Request.Form("Fax") rsRecords("Email")=Request.Form("Email") rsRecords("Message")=Request.Form("feedBack") rsRecords.Update call SendMail() end if %>
Contact Form
(*)Required fields.
Company Name
* First Name, Last Name
(Area Code) Tel.
(Area Code) Fax
* e-mail address
* Type Your message
(We Will Reply Promptly)
Copyright © 2002-2006 |
X
umba
, Inc.
all rights reserved.
