Form og Querystring problem !
Jeg har lavet følgende script (dette er selvfølgelig kun et udpluk!), som skal tjekke hvor mange emails man skal have, og så sætte det indtastede ind i en Querystring, så det kan bruges senere!Her tjekker scriptet hvilket webhotel man har valgt!
<%
Dim email
If Request.Form("webhotel") = "light" Then
email = "1"
ElseIf Request.Form("webhotel") = "standard" Then
email = "3"
ElseIf Request.Form("webhotel") = "mellem" Then
email = "10"
ElseIf Request.Form("webhotel") = "stor" Then
email = "50"
End If
%>
<b>Vælg E-mail-adresser og passwords.</b>
<p>Her kan du vælge hvad dine mails skal hedde, og hvilke password der skal høre til hvilke mails !<br>
<b>Du skal vælge mindst én mail.</b></p>
<table width="400">
<form action="../asp/bestilling.asp?step=2&antalmails=<%=email%>&domaene=<%=Request.Form("domaene")&Request.Form("landekode")%>&domaction=<%=Request.Form("domaction")%>&webhotel=<%=Request.Form("webhotel")%>" method="post">
Her vælger man så hvilke emails og password man vil have!
<% For x = 1 to email
Response.Write "<tr><td valign='top'><p>"&x&". E-mail: </p></td>" _
& "<td valign='top'><p><input type='text' name='"&x&"email' class='form' size='15'>@"&Request.Form("domaene")&Request.Form("landekode")&"</p></td></tr>" _
& "<tr><td valign='top'><p>Password til "&x&". E-mail: </p></td>" _
& "<td valign='top'><input type='text' name='password"&x&"email' class='form' size='15'></td></tr>" _
& "<tr><td valign='top'></td>" _
& "<td valign='top'><br></td></tr>"
next
%>
<tr><td valign="top"></td>
<td valign="top"><br>
<input type="submit" name="videre" value="Videre" class="form"></td>
</tr>
</form>
</table>
<% End If
End If
Case "2"
Her skal det der blev indtastet i formularen ovenfor så udskrives så jeg får en variabel (eller flere!) . nogen ligende "&1email=det_man_har_valgt&1password=det_man_har_valgt" osv. så man får alle emailsne med!
'Dim email
'If Request.Querystring("webhotel") = "light" Then
' email = "1"
'ElseIf Request.Querystring("webhotel") = "standard" Then
' email = "3"
'ElseIf Request.Querystring("webhotel") = "mellem" Then
' email = "10"
'ElseIf Request.Querystring("webhotel") = "stor" Then
' email = "50"
'End If
Dim item
For each item in request.form
email = item&"="&request.form.item(item)
next
%>
Hvis jeg ikke har forklaret mig forståeligt, så spørg endelig!
