Virker dette ordentligt hos dig:
---------------------------------------------------------
<html>
<head></head>
<body>
<script language="JavaScript" type="text/JavaScript">
<!--
function isTimeKey(evt,id){
var charCode=(evt.which) ? evt.which : event.keyCode;
if((charCode>31&&(charCode<48||charCode>57))||charCode==46||charCode==8){return false}
return true
}
-->
</script>
<%strAntalTimesedler=1
strMailAdresse="mail@mail.dk"
Response.Write "<h1>Timesedler</h1>"&vbCrLf
If Request.Querystring("send") Then
Set msg=Server.CreateOBject("JMail.Message")
msg.Silent=True
msg.From=strMailAdresse
msg.FromName="Timesedler"
msg.Charset="iso-8859-1"
msg.AddRecipient strMailAdresse
msg.Subject="Timesedler"
For Each Item in Request.Form
msg.Body=msg.Body&Item&": "&Request.Form(Item)&"<br>"&vbCrLf
Next
Set msg=Nothing
Response.Write "<p>Timesedler er sendt!</p>"
End If
Response.Write "<form method=""post"" action=""?send=true"">"&vbCrLf
For i=1 To strAntalTimesedler
Response.Write "<p><label>Dato</label><br>"&vbCrLf
Response.Write "<input type=""text"" name=""dato"&i&""" value="""&day(now)&"-"&month(now)&"-"&year(now)&"""></p>"&vbCrLf
Response.Write "<p><label>Fra kl.</label><br>"&vbCrLf
Response.Write "<input type=""text"" name=""fratime"&i&""" value=""00"" size=""2"" maxlength=""2"" onkeypress=""return isTimeKey(event,"&i&")"">:"&vbCrLf
Response.Write "<select type=""text"" name=""frakvarter"&i&""">"&vbCrLf
Response.Write "<option>00</option>"&vbCrLf
Response.Write "<option>15</option>"&vbCrLf
Response.Write "<option>30</option>"&vbCrLf
Response.Write "<option>45</option>"&vbCrLf
Response.Write "</select></p>"&vbCrLf
Response.Write "<p><label>Til kl.</label><br>"&vbCrLf
Response.Write "<input type=""text"" name=""tiltime"&i&""" value=""00"" size=""2"" maxlength=""2"" onkeypress=""return isTimeKey(event,"&i&")"">:"&vbCrLf
Response.Write "<select type=""text"" name=""tilkvarter"&i&""">"&vbCrLf
Response.Write "<option>00</option>"&vbCrLf
Response.Write "<option>15</option>"&vbCrLf
Response.Write "<option>30</option>"&vbCrLf
Response.Write "<option>45</option>"&vbCrLf
Response.Write "</select></p>"&vbCrLf
Response.Write "<p><label>Kunder</label><br>"&vbCrLf
Response.Write "<select name=""kunder"&i&""">"&vbCrLf
Response.Write "<option>Kunde1</option>"&vbCrLf
Response.Write "<option>Kunde2</option>"&vbCrLf
Response.Write "</select></p>"&vbCrLf
Response.Write "<p><label>Lokation</label><br>"&vbCrLf
Response.Write "<select name=""lokation"&i&""">"&vbCrLf
Response.Write "<option>København</option>"&vbCrLf
Response.Write "<option>Århus</option>"&vbCrLf
Response.Write "<option>Odense</option>"&vbCrLf
Response.Write "</select></p>"&vbCrLf
Response.Write "<p><label>Bemærkning</label><br>"&vbCrLf
Response.Write "<input type=""text"" name=""bemaerkning"&i&"""></p>"&vbCrLf
Response.Write "<hr>"&vbCrLf
Next
Response.Write "<input type=""submit"" value=""Send timesedler"">"&vbCrLf
Response.Write "</form>"&vbCrLf%>
</body>
</html>
---------------------------------------------------------
Husk at rette mailen.
