<% If Request("Submit") <> "" Then DIM strFirstName, strLastName, strPosition, strCompany, strPhone, strEmail, strPages, strDescription, strDate, Mail strFirstName = request("FirstName") strLastName = request("LastName") strPosition = request("Position") strCompany = request("Company") strPhone = request("Phone") strEmail = request("Email") strPages = request("Pages") strDescription = request("Description") strDate = request("Date") DIM strMsgHeader Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.gilpin.ca" Mail.Username = "quote@gilpin.ca" Mail.Password = "musical1" Mail.From = strEmail Mail.AddAddress "quote@gilpin.ca" Mail.Subject = "Web Design quote request" strMsgHeader = "This email was delivered from the Gilpin.ca website." & vbCrLf & vbCrLf Mail.Body = strMsgHeader & "First Name: " & strFirstName & vbCrLf & _ "Last Name: " & strLastName & vbCrLf & _ "Position: " & strPosition & vbCrLf & _ "Company: " & strCompany & vbCrLf & _ "Phone #: " & strPhone & vbCrLf & _ "Email: " & strEmail & vbCrLf & _ "Number of Pages: " & strPages & vbCrLf & _ "Description: " & strDescription & vbCrLf & _ "Date Required: " & strDate & vbCrLf & vbCrLf strErr = "" bSuccess = False On Error Resume Next Mail.Send If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Canada Web Design - Standard Rates
Welcome to gilpin.ca!
Web Design

Canada Web Design Quote Form
Canada Web Design
a division of Gilpin Publishing

<% If strErr <> "" Then %>
There was an error sending your quote request. You can try again or contact us directly at 1-800-867-3281. We apologize for any inconvenience.

<% End If %> <% If bSuccess Then %>
Your web design quote request has been successfully sent.

<% End If %>
Request a Quote

Please fill in the boxes below to request a web design quote. When you are finished, just click Submit.

First Name:
Last Name:
Position:
Company:
Phone #:
Email:
Description of Website:
Approx. Number of Pages:
Date Required: