Microsoft VBScript compilation error '800a0401'

Expected end of statement

/rfi.asp, line 1

Dim sComplete  sComplete = 0  If Request.Form <> "" Then 	If Instr(Request.ServerVariables("HTTP_REFERER"), "rfi.asp") > 0 Then  		' Send Email  		' This is the name of your company/organization. 		CompanyName = "Gleason Sales"  		' This is the email address to send to 		SupportEmail = "sales@gleason.com"  		' This is the name of your SMTP server 		SmtpServer = "freebsd.zaks.com"  		ToName = "Gleason Sales Rep" 		Subject = "Literature Request"  		body = "" 		body = body + "Request for Information:" + vbcrlf + vbcrlf 		body = body + "Ãû×Ö:"+request.form("Ãû") + " " + request.form("ÐÕ") + vbcrlf  		body = body + "ְλ:"+request.form("ְλ") + vbcrlf 		body = body + "µØÖ·:"+request.form("µØÖ·1") + vbcrlf 		if request.form("µØÖ·2")<> "" then 			body = body + request.form("µØÖ·2") + vbcrlf 		end if 		body = body + "³ÇÊÐ:"+request.form("³ÇÊÐ") + vbcrlf  		body = body + "ÖÝ£º"+request.form("ÖÝ") + vbcrlf 		body = body + "Óʱà:" + request.form("Óʱà") + vbcrlf 		body = body + "¹ú¼Ò:" + request.form("¹ú¼Ò") + vbcrlf 		body = body + "µç»°ºÅÂë:"+request.form("µç»°ºÅÂë") + vbcrlf 		body = body + "´«ÕæºÅÂë:"+request.form("´«ÕæºÅÂë") + vbcrlf 		body = body + "µç×ÓÓʼþ:"+request.form("µç×ÓÓʼþ") + vbcrlf + vbcrlf 		body = body + "ÍøÕ¾:"+request.form("ÍøÕ¾") + vbcrlf + vbcrlf 		body = body + "ÖÆÔìÉÌ×ÊÁÏ:" + request.form("¹«Ë¾²úÆ·") + vbcrlf + vbcrlf 		body = body + "¼ÄË͵ç×ÓÓʼþµÄÔ­Òò:" + vbcrlf 		if request.form("reqForQuote") = "ON" then  			body = body + " Request for quote" + vbcrlf 		end if 		if request.form("ReqforLiterature") = "ON" then 			body = body + " Request for literature" + vbcrlf  		end if 		if request.form("reqForContact") = "ON" then 			body = body + " Request for contact" + vbcrlf 		end if 		if (request.form("reqForQuote") <> "ON" AND request.form("reqForLit") <> "ON" AND  request.form("reqForContact") <> "ON" ) THEN 		body = body + "δָÃ÷" + vbcrlf  		END IF 		body = body + + vbcrlf + "Ë÷ÒªµÄÐÅÏ¢:" + request.form("litRequest") + vbcrlf + vbcrlf 		body = body + "¹ºÂò¼Æ»®:" 		if request.form("purchaseTrend") ="1" then 			body = body + "Á¢¼´¹ºÂò-Çë¼Ó¼±¼ÄËͲÄÁÏ¡£" + vbcrlf 		elseif request.form("purchaseTrend") ="2" then         	body = body + "Á¢¼´¹ºÂò-Çë¼Ó¼±¼ÄËͲÄÁÏ¡£" + vbcrlf 		elseif request.form("purchaseTrend") ="3" then         	body = body + "Á¢¼´¹ºÂò-Çë¼Ó¼±¼ÄËͲÄÁÏ¡£" + vbcrlf 		elseif request.form("purchaseTrend") ="4" then         	body = body + "ûÓÐÂíÉϾÍÒª¹ºÂòµÄ¼Æ»®£¬Çë¼ÄËͲÄÁÏ¡£" + vbcrlf + vbcrlf 		end if 		call sendemail(ToName,SupportEmail,Subject,body) 		Response.Redirect("thankyou_RFI.html") 	Else 		' Do Not Send 	End If 	' Set Thank You variable 	sComplete = 1  End If
---------------^