Request for Information
<%@language=vbscript%> <% if Request.Form("action") = "submit" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "scriptmail.intermedia.net" Mailer.FromAddress = "info@coredb.com" Mailer.FromName = "CCSI SQL Server" Mailer.AddRecipient "CCSI", "info@coredb.com" Mailer.Subject = "Web Inquiry" messBody = "Clients information is below" & vbCrLf & "--------------------------------------------------------------" & vbCrLf messBody = messBody & "Name: " & Request.Form("name") & vbCrLf messBody = messBody & "Company: " & Request.Form("company") & vbCrLf messBody = messBody & "Product: " & Request.Form("products") & vbCrLf messBody = messBody & "E-mail: " & Request.Form("email") & vbCrLf & vbCrLf messBody = messBody & vbCrLf & "Message:" & vbCrLf messBody = messBody & Request.Form("message") & vbCrLf & vbCrLf Mailer.BodyText = messBody if Mailer.SendMail then Set Mailer = Nothing Response.Redirect "Thanks.html" else Response.Write "Mail send failure. Error was " & Mailer.Response end if end if %>