Grrrrr… ASP
Posted: 23 September 2008 10:09 AM   [ Ignore ]
Newbie
Rank
Total Posts:  1
Joined  2008-09-22

http://www.britsincrete.net/contactprocess.asp
—————————————

Form generates a:

Microsoft VBScript compilation error ‘800a03ed’

Expected ‘(’

/contactprocess.asp, line 303

Sub onLoad   If Request.ServerVariables(“HTTP_METHOD”) = “POST” Then     SendMail “info@britsincrete.net”, “info@britsincrete.net”, “Contact Form Submission”, generateFormList()  End IfEnd SubSub SendMail(strFrom, strTo, strSubject, strBody)Dim myCDONTSMail     ‘Set myCDONTSMail = CreateObject(“CDONTS.NewMail”)      ‘myCDONTSMail.Send strFrom, strTo, strSubject, strBody, 1   ‘Set myCDONTSMail = Nothing     Set myMail=CreateObject(“CDO.Message”)  myMail.Subject=strSubject   myMail.From=strFrom   myMail.To=strTo     myMail.TextBody=strBody   myMail.Send     End SubPublic Function generateFormList()Dim objElementDim strContent   If Request.ServerVariables(“HTTP_METHOD”) = “POST” Then   For Each objElement In Request.Form()      strContent = strContent & objElement & “:” & vbCrLf     strContent = strContent & Request.Form(objElement) & vbCrLf & vbCrLf   Next   End If   generateFormList = strContentEnd Function

But I cannot see where to put the ‘(’

Any help please?

Profile