Form over flere sider

Så henter du bare forrige form ind i hidden fields i den nye form.

du kunne jo starte selv, og så spørge når du kørte fast....

Ja!

I fil1.asp kan vi fx. få navnet:

<form action=fil2.asp method=post>
<input name="Navn">
<input type=submit>
</form>

i fil2.asp gentager vi så navnet, men som hidden felt:


<form action=fil3.asp method=post>
<input type=hidden name="Navn" value="<%=Request.Form("Navn")%>">
<input name="Adresse">
<input type=submit>
</form>

og så videre

mailen sender du vha. den mail-komponent du nu har til rådighed, f.eks. JMail.

I fil3.asp kunne du så hente de sidste data, og validere

Har lige lavet noget hurtigt du kan starte med:

<%
intStep = Request.QueryString("step")

Select Case intStep
Case ""
Response.Write "<form action=""default.asp?step=1"" method=""post"">"
Response.Write "Navn: <input type=""text"" name=""navn"">"
Response.Write "<input type=""submit"" name=""send"" value=""Videre..."">"
Response.Write "</input>"
Response.Write "</form>"

Case 1
Response.Write "<form action=""default.asp?step=2"" method=""post"">"
Response.Write "<input type=""hidden"" value=""" & Request.Form("navn") & """ name=""navn"">"
Response.Write "E-mail: <input type=""text"" name=""email"">"
Response.Write "<input type=""submit"" name=""send"" value=""Videre..."">"
Response.Write "</input>"
Response.Write "</form>"

Case 2
Response.Write "<form action=""default.asp?step=3"" method=""post"">"
Response.Write "<input type=""hidden"" value=""" & Request.Form("navn") & """ name=""navn"">"
Response.Write "<input type=""hidden"" value=""" & Request.Form("email") & """ name=""email"">"
Response.Write "Telefon: <input type=""text"" name=""telefon"">"
Response.Write "<input type=""submit"" name=""send"" value=""Videre..."">"
Response.Write "</input>"
Response.Write "</form>"

Case 3
Response.Write "Navn: " & Request.Form("navn") & "<br>"
Response.Write "E-mail: " & Request.Form("email") & "<br>"
Response.Write "Telefon: " & Request.Form("telefon") & "<br>"

End Select
%>

Hvis du så vil sende det som mail (og har JMail) kan du skrive:
<%
      Set mail = Server.CreateObject("JMail.SMTPMail")

      With mail
          .Subject = "Emnet på emailen"
          .Body = "Selve mailen"
          .Sender = "Afsenderadresse"
          .SenderName = "Afsenderens navn"
          .ReplyTo = "Svaradresse"
          .AddRecipient "Modtager email"
          .ServerAddress = "mail.domæne.dk"
          .Execute
      End With

      Set mail = Nothing
%>

mht validering af fx. telefonnummer kan du gøre følgende...

if isNumeric(tlfNummer) then
if not len(tlfNummer) <> 8 then
det er et gyldigt tlf nummer
else
response.write "tlfNummer skal indeholde 8 tegn"
end if
else
response.write "TlfNummer må kun indeholde tal"
end if


Resten har du vidst fået svar på...

og det var så et svar...

eller:

If Isnumeric(telefonnummer) And Len(telefonnummer) = 8 Then
Response.Write "gyldigt"
Else
Response.Write "Ikke gyldigt"
End If

Jeg venter lige med at acceptere jere svar... skal lige se om jeg kan få skidtet til at virke :o)