Hi there

I created a simple form whch however does not seem to work, I keep reading the code and can not see anything wrong - when I submit the form the form reappear blank on my window, instead of confirming that the email was sent ( which is not ! ).
I would appreciate if someone couls have a look..you eill find the code below.
( the "to address" is taken form the form objMail.To = strEmail )



<% Option Explicit %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
Dim strName, strEmail, strQuery
strName = Trim(Request.Form("ClientName"))
strEmail = Trim(Request.Form("ClientEmail"))
strQuery = Trim(Request.Form("ClientQry"))

If (strName <> "" And strEmail <>"" And strQuery <>"") Then
Dim objMail, aRecipients
Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.from = "webteam@mysite.com"
objMail.to = strEmail
objMail.Subject = "webform" & strName

aRecipients = Array("chris@mysite.com","nico@mysite.com")

objMail.BCC = join(aRecipients,";")
objMail.Body = strQuery

Response.write("Thank you for submitting the form")

set objMail = Nothing

Else %>

<form action="<%= Request.serverVariables("Script_Name") %>" method="post" enctype="text/plain">

<table border=0>
<td><input type="text" name="ClientName" value="" size="40"/></td>

<td>Email address</td>
<td><input type="text" name="ClientEmail" value="" size="40"/></td>

<td>Query </td>
<td><textarea name="ClientQry" cols=40 rows=10></textarea></td>

<td><input type="submit" value="submit" /> </td>


<% End if %>