ماهو الخطاء في هذا الفورم

<%@ LANGUAGE="VBScript" %>
<%
mail.Configuration.Fields.Item("<A href='http://schemas.microsoft.com/cdo/configuration/sendusing")=2'>http://schemas.microsoft.com/cdo/configuration/sendusing")=2</A>
mail.Configuration.Fields.Item("<A href='http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.**********.com'>http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.**********.com</A>"
mail.Configuration.Fields.Item("<A href='http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25'>http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25</A> 
'Authentication
mail.Configuration.Fields("<A href="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate">http://schemas.microsoft.com/cdo/configuration/smtpauthenticate</A>") = 1
mail.Configuration.Fields("<A href="http://schemas.microsoft.com/cdo/configuration/sendusername">http://schemas.microsoft.com/cdo/configuration/sendusername</A>") = "<A href="mailto:info@*******.com">info@*******.com</A>"
mail.Configuration.Fields("<A href="http://schemas.microsoft.com/cdo/configuration/sendpassword">http://schemas.microsoft.com/cdo/configuration/sendpassword</A>") = "*******"
mail.Configuration.Fields.Update

Dim EmailFrom
Dim SelPill
Dim Gender
Dim First_Name
Dim Last_Name
Dim Address
Dim City
Dim State
Dim Zip
Dim County
Dim Email

' get posted data into variables
EmailFrom="<A href="mailto:toto@hotmail.com">toto@hotmail.com</A>"
Email=Trim(Request.Form("X_Email"))
Subject="order"
First_name=Trim(Request.Form("X_First_Name")) 
Last_Name=Trim(Request.Form("X_Last_Name"))
SelPill=Trim(Request.Form("X_SelPill"))
Gender=Trim(Reuqest.Form("X_Gender"))
Address=Trim(Request.Form("X_Address")) 
City=Trim(Request.Form("X_City"))
State=Trim(Request.Form("X_State"))
Zip=Trim(Request.Form("X_Zip")) 
County=Trim(Request.Form("X_County")) 

' prepare email body text
Dim Body
Body=Body & "First_Name: " & First_Name & VbCrLf
Body=Body & "Last_Name: " & Last_Name & VbCrLf
Body=Body & "Gender: " & Gender & VbCrLf
Body=Body & "Email: " & Email & VbCrLf
Body=Body & "SelPill: " & SelPill & VbCrLf
Body=Body & "Address: " & Address & VbCrLf
Body=Body & "City: " & City & VbCrLf
Body=Body & "State: " & State & VbCrLf
Body=Body & "Zip: " & Zip & VbCrLf
Body=Body & "County: " & County & VbCrLf
' send email 
Dim mail
Set mail=Server.CreateObject("CDO.Message") 
mail.To=Email
mail.From=EmailFrom
mail.Subject=Subject
mail.Body=Body
mail.Send
set mail=nothing
%>