![]() |
|
|||||||||
|
Contact Us<% ' This boolean indicates whether the form should be displayed. Dim blnDisplayForm blnDisplayForm = True ' See whether there is a submission out there... If Request.Form.Count > 1 Then Dim strAddr strAddr = Request.Form("Email") ' Test for the errors in the order you want them reported. If Not ValidateNonNull("FirstName,LastName,Email") Then Response.write "Please fill in all required fields." ElseIf Not verify_email(strAddr) Then Response.write "Sorry, but that was a bad email address" Else Dim strMsg strMsg = "Information from the form: " & vbNewLine & _ "Name (Last, First): " & Request.Form("LastName") & ", " & Request.Form("FirstName") & vbNewLine & _ "Business: " & Request.Form("Business") & vbNewLine & _ "Email address: " & strAddr & vbNewLine & _ "Address: " & Request.Form("Address") & vbNewLine & _ " " & Request.Form("City") & ", " & Request.Form("State") & " " & Request.Form("Zip") & vbNewLine & _ "Phone: " & Request.Form("Telephone") & " x" & Request.Form("TelExt") & vbNewLine & _ "Comments:" & vbNewLine & _ "-------------------------------------" & vbNewLine & Request.Form("Comments") send_email "nnitz@rvwinc.com","Comment from the web site",strMsg,strAddr Response.write "Thanks for writing" blnDisplayForm = False End If End If ' If the form is supposed to be displayed, then display it. If blnDisplayForm Then %> RVW provides a wide variety of engineering and architectural services, and acts as consultantwith a number of companies on special projects. If youre looking for experience, cost efficiency, and quality, put our team to work for you!! For more information on RVW and the services we provide, complete the form below:
Or contact Nicole Nitz at:
|
|||||||||
|