Expected end of statement Please help

[mwm]

I'm new to asp but has some experience with php. this is my first try at sending and email form, but I get this error. Any ideas?

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/contact.asp, line 42

Body = Body & "Contact_Workphone: " Contact_Workphone & VbCrLf

<form method="POST" action="contact.asp">
Fields marked (*) are required

<p>First:* <br>
<input type="text" name="First">
<p>Last:* <br>
<input type="text" name="Last">
<p>Company:<br>
<input type="text" name="Company">
<p>Address:<br>
<input type="text" name="Address">
<p>Telephone:<br>
<input type="text" name="Telephone">
<p>Mobile:<br>
<input type="text" name="Mobile">
<p>Website:<br>
<input type="text" name="Website">
<p><input type="submit" name="submit" value="Submit">
</form>
<p>




<%

Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Contact_FirstName
Dim Contact_LastName
Dim Contact_Title
Dim Contact_Organization
Dim Contact_Workphone
Dim Contact_FAX
Dim Contact_Email
Dim Contact_URL



EmailFrom = "glamberti@ikonsoftwareinc.com"
EmailTo = "glamberti@ikonsoftware"
Subject = "Contact Information"
Contact_First = Trim(Request.Form("Contact_First"))
Contact_Last = Trim(Request.Form("Contact_Last"))
Contact_Title = Trim(Request.Form("Contact_Title"))
Contact_Organization = Trim(Request.Form("Contact_Organization"))
Conact_Workphone = Trim(Request.Form("Contact_Workphone"))
Contact_FAX = Trim(Request.Form("Contact_FAX"))
Contact_Email = Trim(Request.Form("Contact_Email"))
Contact_URL = Trim(Request.Form("Contact_URL"))


Dim validationOK
validationOK=true
If (Trim(Contact_FirstName)="") Then validationOK=false
If (Trim(Contact_LastName)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)


Dim Body
Body = Body & "Contact_FirstName: " & Contact_FirstName & VbCrLf
Body = Body & "Contact_LastName: " & Contact_LastName & VbCrLf
Body = Body & "Contact_Title: " & Contact_Title & VbCrLf
Body = Body & "Contact_Organization: " & Contact_Organization & VbCrLf
Body = Body & "Contact_Workphone: " & Contact_Workphone & VbCrLf
Body = Body & "Contact_FAX: " & Contact_FAX & VbCrLf
Body = Body & "Contact_Email: " & Contact_Email & VbCrLf
Body = Body & "Contact_URL: " & Contact_URL & VbCrLf


Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send


Response.Redirect("ikonsoftwareinc.com?" & EmailFrom)
%>

[mjlorbet]

Body = Body & "Contact_Workphone: " & Contact_Workphone & VbCrLf

The italicised & was missing