When I try to submit the code, it's telling me that the page cannot be displayed. Here is the entire code. I really think the problem is the <% and %> in the response.redirect code. It renders the rest of the page as text, not code.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>ASP mailer</title>
</head>
<body>
<%
'Validate all of the fields
txtValidateError = ""
'check field one - and you can get pretty fancy here!
if request("name"

= "" then
txtValidateError = "Please type in your name<BR>"
end if
'check field two - the address
if request("address"

= "" then
txtValidateError = "Please type in your address, city, state and ZIP code<BR>"
end if
'check field three - the e-mail address
if request("email"

= "" then
txtValidateError = "Please type in your e-mail address<BR>"
end if
'check field two - same goes for this. You can even
'see if the @ sign is in the string. There are some
'routines to check if the e-mail address is valid too!
if instr(request("email"

, "@"

<> true then
txtValidateError = txtValidateError & "This e-mail
address appears invalid.<BR>"
end if
'now check to see if error is blank
'if not, set the session(error) and return them to page
'if it is blank, then go ahead and e-mail the info
if txtValidateError <> "" Then
session("txtValidateError"

= txtValidateError
response.redirect("<center><%=session("txtValidateError"

%></Center>"

'be sure to start your formpageaddress with
'<center><%=session("txtValidateError"

%></Center>
'and then make the next line clear that error
'session("txtValidateError"

= ""
else
'-- Now grab the values from the form and
'-- build the message to be sent.
'-- Note the vbCrLf - it is a carriage return
'-- and line feed, which gives you line breaks
'-- in the email message.
Msg = ""
Msg = Msg & "Name: " & request("name"

& vbCrLf
Msg = Msg & "Address: " & request("address"

& vbCrLf
Msg = Msg & "City: " & request("city"

& vbCrLf
Msg = Msg & "State: " & request("state"

& vbCrLf
Msg = Msg & "Zip or Postal Code: " & request("zip"

& vbCrLf
Msg = Msg & "Country: " & request("Country"

& vbCrLf
Msg = Msg & "Telephone: " & request("phone"

& vbCrLf
Msg = Msg & "E-mail: " & request("email"

& vbCrLf
Msg = Msg & "Comments:" & vbCrLf
Msg = Msg & request("Comments"

& vbCrLf
'-- Now let's instanciate the component
Set Mailer = Server.CreateObject("SMTPsvg.Mailer"

'-- the next line enables queue functions and can
'-- be set to false if you don't want to queue
Mailer.QMessage = true
Mailer.FromName = SenderName
Mailer.FromAddress= SenderEmail
'-- The next line should be set for the SMTP server
'-- address of your ISP or webhost
Mailer.RemoteHost = "mailhub.registeredsite.com"
'-- AddRecipient sets the name of the recipient and
'-- the email address of the recipient - customize!!
Mailer.AddRecipient "Kim Pearson", "storykim@home.com"
Mailer.Subject = "I'd like to know more about Primary Sources!"
Mailer.BodyText = "Dear Kim," & vbCrLf & Msg
if Mailer.SendMail then
'-- confirm mail was sent - customize as desired
response.write("<div align="center"><img src="images/logos/primary.gif" alt="logo"> <img src="images/logos/logo.jpg" alt="Primary Sources" width=60 height=75> <img src="images/logos/sources.gif" alt="Primary Sources">"

response.write"Thank you for contacting Primary Sources. The information you submitted is below.
response.write(request.form("name"

)
response.write("<p>"

response.write(request.form("address"

)
response.write("<p>"

response.write(request.form("city"

)
response.write(", "

response.write(request.form("state"

)
response.write(" "

response.write(request.form("zip"

)
response.write("<p>"

response.write(request.form("email"

)
response.write("<p>"

response.write(request.form("comments"

)
response.write("<p>"

Response.Write "We appreciate your interest in Primary Sources. We will be contacting you shortly. Sincerely, Kim Pearson"
else
'-- return error message - customized as desired
Response.Write "Mail send failure. Error was "
Response.Write Mailer.Response
end if
'-- destroy the mailer object
set Mailer=nothing
end if
%>
<%
'-- get the sender's address, and if empty, put your own
'If request("email"

="" then
'-- put your email address between the quotes below
'SenderEmail = "storykim@home.com"
'Else
'SenderEmail= request("email"

'End If
'If request("name"

<>"" then
' SenderName = request("name"

'Else
'-- this can be customized to anything you want
' SenderName = "Primary Sources"
'End If
%>
</body>
</html>