Form problems with asp

Form spanning multiple pages

[drnibbles]

Ok I have this form and instead of displaying the results at the end (which I know how to do) I would like to send them with formmail using CDOSYS (not CDONTS) But I don't really know how to do it in detail.
Any ideas anywone. I managed to piece the form together and it works but not the mail part as I don't know where to start
This is the form and it is split over several pages.

<FORM METHOD="post">
<%

Dim sNextStep

sNextStep = "1"
select case request.form("current")
case "1":
' process step 1
' Conditionally control the next step
if request.form("s1_Shipping")<>"" then
sNextStep = "2"
else
sNextStep = "3"
end if
case "2":
sNextStep = "3"
case "3":
sNextStep = "4"
' Save user's input
case "4":
' do nothing
case default:
sNextStep = "1"
end select

for each i in Request.Form
if left(i,1)="s" then
Response.write("<INPUT TYPE=hidden NAME='" & i & "' VALUE='" & Request.Form(i) & "'>")
end if
next

Response.write("<INPUT TYPE=""hidden"" NAME=""current"" VALUE=""" & sNextStep & """>")

' Output form for next step
select case sNextStep
case "1": ' step 1
%>
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER>
<TR><TH COLSPAN=2 ALIGN=CENTER>Your address</TH></TR>
<TR><TD>Name</TD><TD><INPUT TYPE="text" NAME="s1_Name"></TD></TR>
<TR><TD>Address<BR>City, State</TD><TD><TEXTAREA NAME="s1_haddress"></TEXTAREA></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=checkbox NAME="s1_Shipping"> Different Shipping Address</TD></TR>
<TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next...">
</TABLE>

<% case "2": ' Step 2 %>
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER>
<TR><TH COLSPAN=2 ALIGN=CENTER>Shipping</TH></TR>
<TR><TD>Address<BR>City</TD><TD><TEXTAREA NAME="s2_saddress"></TEXTAREA></TD></TR>
<TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next...">
</TABLE>

<% case "3": ' Step 3 %>
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER>
<TR><TH COLSPAN=2 ALIGN=CENTER>Payment Information</TH></TR>
<TR><TD>Credit Card</TD><TD>
<INPUT TYPE=radio NAME=s3_credit VALUE=visa checked>Visa
<INPUT TYPE=radio NAME=s3_credit VALUE=Master>MasterCard
<INPUT TYPE=radio NAME=s3_credit VALUE=Discover>Discover
</TD></TR>
<TR><TD>Card Expiration</TD><TD>
<SELECT NAME=s3_expire>
<%
' Generate expiration years
for i=1999 to 2007
response.write("<OPTION VALUE=""" & i & """>" & i)
next
%>
</SELECT>
</TD></TR>
<TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next..."></TD></TR>
</TABLE>

<% case "4": ' Step 4%>
<P>This is where i would like to send the info with CDOSYS<P>
<TABLE ALIGN=CENTER BORDER><TR><TH COLSPAN=2>Information to be Saved</TH></TR>
<%
for each i in Request.Form
if left(i,1)="s" then
Response.write("<TR><TD>" & i & "</TD><TD>" & Request.Form(i) & "</TD></TR>")
end if
next
response.write("</TABLE>")
end select
%>

</FORM>

[DaveN]

try here www.invisionportal.com/show_tutorial.asp?TutorialID=160

DaveN