<% Option Explicit %> <% Dim strBody, item, strSubject If Request.Form("Button") = "Send Request" Then If Request.Form("From")="" then Response.Write "

You Forgot to Enter your Email Address. " & _ "Please press your BACK Key and make sure you enter all the information.

" Response.End() Else strBody = "Contact Us" & vbCrLf For each item in Request.Form strBody = strBody & item & ": " & Request.Form(item) & vbCrLf Next SendEmail Request.Form("From"), Request.Form("Name"), Request.Form("Subject"), strBody End If %> Contact Form

Processing Request

The Server has verified your request and we will process your request immediately.

[Back to the Contact Form]

<% Else %> Contact Form

<% If Request.QueryString("contest") = 1 Then Response.Write("Contest Entry Form") strSubject = "Sign me up for your contest" Else Response.Write("Request for Information") strSubject = "Request for Information" End If %>

<% End If %>

Your Full Name:
Your Company Name (if applicable):
Your Billing Address:
City:
State:	Zip Code:
Daytime Phone:
Evening Phone:
Fax:
Current E-Mail Address:
Domain Name:
Any questions or comments?