<%@ Language=VBScript %> <% Option Explicit Response.Buffer = true %> <% Dim TagCounter Randomize TagCounter = Int((7 * Rnd) + 1) %> <% ' ************************************************************************************* ' ' Project: Kuhnlaw.com Email Contact Form ' ' Coded By: ' Create Date: 12/15/02 ' ' Description: Email contact information form. ' ' ************************************************************************************* '************************************************************************************** ' Main Entry Point '************************************************************************************** 'On error resume next Call main() if ( Err.number <> 0 ) then call subErrorHandler( Err ) end if On error goto 0 '************************************************************************************** ' Main Function '************************************************************************************** sub main() %> Kuhn, Mitchell, Moss | Contact Information

Contact Kuhn, Mitchell, Moss LLC

DuPage County Office:

111 E. Jefferson Avenue
Naperville, IL 60540
Telephone: 630-355-1700
Fax: 630-355-0458








Email Address: information@kuhnlaw.com


Information Request Form

* required field

<% if Request.Form("cmdSend") <> "Send Form" then %>
*Name
Company Name
Address
Suite/Apt
City
State/Province
Zip/Postal Code
Country
Phone Number
Business Phone Number
Cell Phone Number
Fax Number
*E-mail address
*Please specify the nature of your request:
*Information Requested:

<% else %> <% Dim Name,CompanyName,Address,Suite, City, State, Zip Dim Country,Phone,BusinessPhone,CellPhone,Fax,Email,Nature,Information Dim ErrorCount, Mailer ErrorCount = 0 if Request.Form("txtName") = "" then Name = True ErrorCount = ErrorCount + 1 end if %> <% if Request.Form("txtEmail") = "" then Email = True ErrorCount = ErrorCount + 1 end if if Request.Form("txtNature") = "" then Nature = True ErrorCount = ErrorCount + 1 end if if Request.Form("txtInformation") = "" then Information = True ErrorCount = ErrorCount + 1 end if if ErrorCount <> 0 then %>
Items highlighted in red below are required information for this report. Please complete these fields and send your request again.
class="bodyred"<%else%> class="body" <%end if%>>*Name
">
CompanyName ">
Address ">
Suite ">
City ">
State/Province ">
Zip ">
Country ">
Phone Number ">
Business Phone Number ">
Cell Phone Number ">
Fax Number ">
class="bodyred"<%else%> class="body" <%end if%>>*Email ">
class="bodyred"<%else%> class="body" <%end if%>>*Please specify the nature of your request:
class="bodyred"<%else%> class="body" <%end if%>>*Information Requested:

<% else %> <% Dim strBody Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request.Form("txtName") Mailer.FromAddress = Request.Form("txtEmail") Mailer.RemoteHost = "mail.kuhnlaw.com" 'Mailer.RemoteHost = "mail.trinegroup.com" Mailer.Recipient = "Kuhn Mitchell Moss|information@kuhnlaw.com" 'Mailer.Recipient = "" Mailer.ReturnReceipt = false Mailer.ConfirmRead = false Mailer.Subject = "Information Request" strBody = "Information " strBody = strBody & "Name: " & Request.Form("txtName") & vbCrLf strBody = strBody & "Company Name: " & Request.Form("txtCompanyName") & vbCrLf strBody = strBody & "Address: " & Request.Form("txtAddress") & vbCrLf strBody = strBody & "Suite: " & Request.Form("txtSuite") & vbCrLf strBody = strBody & "City: " & Request.Form("txtCity") & vbCrLf strBody = strBody & "State: " & Request.Form("txtState") & vbCrLf strBody = strBody & "Zip: " & Request.Form("txtZip") & vbCrLf strBody = strBody & "Country: " & Request.Form("txtCountry") & vbCrLf strBody = strBody & "Phone: " & Request.Form("txtPhone") & vbCrLf strBody = strBody & "Business Phone: " & Request.Form("txtBusinessPhone") & vbCrLf strBody = strBody & "Cell Phone: " & Request.Form("txtCellPhone") & vbCrLf strBody = strBody & "Fax: " & Request.Form("txtFax") & vbCrLf strBody = strBody & "Email: " & Request.Form("txtEmail") & vbCrLf strBody = strBody & "------------------------------------------------------------" & vbCrLf strBody = strBody & "Nature of Request: " & Request.Form("txtNature") & vbCrLf strBody = strBody & "------------------------------------------------------------" & vbCrLf strBody = strBody & "Information Requested: " & Request.Form("txtInformation") & vbCrLf strBody = strBody & "------------------------------------------------------------" & vbCrLf Mailer.BodyText = strBody if Mailer.SendMail then Response.Write "Your Information Request was successfully sent to the law offices of Kuhn, Mitchell, Moss with the following information...
" & vbCrLf Response.Write "
" & vbCrLf Response.Write "Name: " & Request.Form("txtName") & "
" & vbCrLf Response.Write "Company Name: " & Request.Form("txtCompanyName") & "
" & vbCrLf Response.Write "Address: " & Request.Form("txtAddress") & "
" & vbCrLf Response.Write "Suite: " & Request.Form("txtSuite") & "
" & vbCrLf Response.Write "City: " & Request.Form("txtCity") & "
" & vbCrLf Response.Write "State: " & Request.Form("txtState") & "
" & vbCrLf Response.Write "Zip: " & Request.Form("txtZip") & "
" & vbCrLf Response.Write "Country: " & Request.Form("txtCountry") & "
" & vbCrLf Response.Write "Phone Number: " & Request.Form("txtPhone") & "
" & vbCrLf Response.Write "Business Phone Number: " & Request.Form("txtBusinessPhone") & "
" & vbCrLf Response.Write "Cell Phone Number: " & Request.Form("txtCellPhone") & "
" & vbCrLf Response.Write "Fax Number: " & Request.Form("txtFax") & "
" & vbCrLf Response.Write "Email: " & Request.Form("txtEmail") & "
" & vbCrLf Response.Write "Nature of Request: " & Request.Form("txtNature") & "
" & vbCrLf Response.Write "Information Request: " & Request.Form("txtInformation") & "
" & vbCrLf Response.Write "

" & vbCrLf else Response.Write "Your request failed!
" & vbCrLf Response.Write "Please try your request again. If the problem continues please e-mail webmaster@kuhnlaw.com

" end if %> <% end if %> <% end if %>
<% End Sub %>