<%
' change to address of your own SMTP server
strHost = "localhost"
DIM strsenderName, stremail, strmessage
strsenderName = request.form("senderName")
stremail = request.form("Email")
strmessage = request.form("Message")
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
Mail.FromAddress = strEmail
Mail.RemoteHost = strHost
Mail.AddRecipient "Landgraf Website Inquiry", "steve.lunder@landgrafconstruction.com"
Mail.Subject = "Landgraf Website Inquiry"
Mail.BodyText = "Name : " & Request.Form("senderName") & _
vbCrLf & "Email : " & Request.Form("Email") & _
vbCrLf & "Message : " & Request.Form("Message")
strErr = ""
bSuccess = False
On Error Resume Next
If Mail.SendMail Then
bSuccess = True
else
strErr = Mail.Response
End If
End If
%>
Contact Us
- Landgraf Construction
5964 Executive Drive
Madison, WI 53719
- Phone: 608-274-4700
FAX: 608-274-9470
E-mail Us:
Landgraf Construction, Inc.
5964 Executive Drive
Madison, WI 53719
