help to a newbie

I have been killing myself to try and correct this. I am very new at this. Can anyone look at this and tell me how to fix it? I would really appreciate it.

<meta http-equiv="Content-Language" content="en-us">
<%@language = "VBscript"%>
<%
'Tom Germain's Standard Cgiware Global Variables and set-up
'DO NOT REMOVE THIS SECTION OR NOTHING WILL WORK
Dim strError
Response.Buffer = True
If ScriptEngineMajorVersion < 2 Then
ReportError "Host system needs scripting engine upgrade to use this script"
End If
Set objFM = CreateObject("Scripting.Dictionary")
If IsObject(objFM) = False Then
ReportError "Host system lacks component(s) required by this script"
End If
Set objMailx = CreateObject("CDONTS.Newmail")
If IsObject(objMailx) = False Then
ReportError "Host system lacks component(s) required by this script"
End If
Set objMailx = Nothing
%>
<%
'aspmailer.asp by Tom Germain, Copyright 1998-1999
'Version 1.0
'tg@cgiware.com
'Visit http://www.cgiware.com for latest version, documentation, and other resources
'This is freeware - Use at your own risk. No warranties provided.
'Redistribution of this program, in whole or in part, is strictly
'prohibited without the expressed written consent of the author.
'Custom programming available on hourly fee basis.
%>

<%'variables you can set start here%>
<%
strRcpt = "han_solo21@hotmail.com" 'Put the address you want the form sent to here

strFromVar = "" 'If you want a reply-to email address to be taken from the form
' put the name of the input item here.

strDefFrom = "cgiware@fsdrfw.com" 'Put a default, even fake, From address here

strDefSubject = "Submitted Order Form" 'Put the subject of the letter here. If an input item called
'subject exists in the form, its value will be used instead.

strRedirect = "thankyou.html" 'Url to redirect to after a successful form submission. If an input item called
'redirect exists in the form, its value will be used instead.

%>
<%'variables you can set end here%>
<%
ParseForm
CheckForm
If Len(strError) > 0 Then
ReportError strError
End If
strOutX = SeqForm
If Len(strOutX) < 1 Then
strOutX = FormToString
End If
If Len(strOutX) < 1 Then
ReportError "Submitted form is empty"
End If
strSubject = strDefSubject
If objFM.Exists("TGsubject") Then
strSubject = objFM.Item("TGsubject")
End If
strFrom = strDefFrom
If Len(strFromVar) > 0 Then
If objFM.Exists(strFromVar) Then strFrom = objFM.Item(strFromVar) End If
End If
SendMail strFrom,strRcpt,strSubject,strOutX
If Len(strRedirect) > 0 Then
Response.redirect(strRedirect)
Response.End
End If
If objFM.Exists("TGredirect") = True Then
If Len(objFM.Item("TGredirect")) > 0 Then
Response.redirect(objFM.Item("TGredirect"))
Response.End
End If
End If
%>
<%
Dim x
For Each x In Request.Form
if trim(request.form(x)) <> "0" and trim(request.form(x)) <> "0.00" then
Response.Write Request.Form(x) & "<br>"
End If
Next
%>
<!--*******SUCCESSFUL SUBMISSION RESPONSE - START*******-->
<!--ADD YOUR OWN HTML TOP SECTION STARTING HERE-->
<p align="left">
<img border="0" src="banner_small.gif"></p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><font size="7" color="#008ED2" face="Arial Unicode MS">Thank
you!</font></p>
<p align="center"><font face="Arial">Your form has been sent and will be
processed shortly.</font></p>
<p align="center"><font face="Arial" size="2"><a href="index.html">
<font color="#FF0000">Return Home</font></a></font></p>
<!--END OF CREDIT-->
<%'End Function%>

Thanks!

Moved from Visual Basic forum

can you post what error mesages you are getting or what exactly does not seem to be working for you? that way, it's easier for someone to try and help.
maybe have a quick read of the how to post sticky too as your subject could be a little more descriptive

Sorry fizzy. The message that I get is...

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ParseForm'

/aspmailer.asp, line 50

My ultimate goal is to rid my response of the values in my form that return 0's. Hopefully this makes more sense.

hi wlcraig,
couldn't find your other posts. anyway, back to your question. what does ParseForm & CheckForm do?