<form action="någon_sida.asp?post=true" method="post">
<%
Dim StartDate, EndDate
StartDate = CDate("2007-11-01")
EndDate = CDate("2007-11-30")
For i = StartDate to EndDate
Response.Write i & " : <input type=""text"" name=""d_" & i & """ /><br>" & vbCrLf
Next
If Request.QueryString("post") = "true" Then
dim formValue
For each formValue in Request.Form
If Left(formValue,2) = "d_" Then
' SQL:
connect.execute("Insert Into Bob (nDate,vText) values (#" & right(formValue,Len(formValue)-2) & "#,'" & Request.Form(formValue) & "')")
End If
Next
End If
%><input type="submit"></form>
något sådant?
