Request.Form.Count
Jeg har denne kode :<%
if request("type") <> " " then
Response.write "<form name='form2' action='" & request.serverVariables("SCRIPT_NAME") & "' method='post'>"
if (request("type") <> "" AND request("type") <> "Vælg varenr") then
strSQL2 = "SELECT * FROM " & Request("type") & " "
Set database2 = con.Execute(strSQL2)
'her tæller vi hvor mange felter der er udtrukket i recordsettet
iFieldCount = database2.Fields.Count - 1
if not database2.eof then
response.write"</form></tr><tr><td colspan='3'><center><br>Indtast vare oplysninger<br></td>"
' her gennemløber vi de felter der er udtrukket
for i = 0 to iFieldCount
str = Replace(database2(i).name, "aa", "å")
str = Replace(str, "oe", "ø")
str = Replace(str, "ae", "æ")
str = Replace(str, "Aa", "Å")
str = Replace(str, "Ae", "Æ")
str = Replace(str, "Oe", "Ø")
if (database2(i).name = ("Fabrikat") OR database2(i).name = ("Specifikationer") OR database2(i).name = ("Disabled") OR database2(i).name = ("Tilbud") ) then
if database2(i).name = ("Fabrikat") then
Response.write "<tr><td><div align='right'>" & str & " : </td><td><select name='fabrikat' size='1'>"
Response.write "<option>Vælg Fabrikat</option>"
strSQL = "SELECT * FROM fabrikat"
set database3 = con.execute(strSQL)
while not database3.eof
response.write "<option value='" & database3("Fabrikatnavn") & "'>" & database3("Fabrikatnavn") & "</option>"
database3.movenext
wend
Response.write "</select></tr>"
end if
if database2(i).name = ("Specifikationer") then
Response.write "<tr><td><div align='right'>" & str & " : </td><td><input type='checkbox' checked name='" & database2(i).name & "' value=''></tr>"
end if
if database2(i).name = ("Disabled") then
Response.write "<tr><td><div align='right'>" & str & " : </td><td><input type='checkbox' name='" & database2(i).name & "' value=''></tr>"
end if
else
Response.write "<tr><td><div align='right'>" & str & " : </td><td><INPUT NAME=" & database2(i).name & " TYPE='text' VALUE=''></tr>"
end if
next
end if
response.write "<td></td></tr>"
response.write "<tr><td colspan='3'><div align='right'><form name='action' action='vareopret.asp?mode=OK&typevalgt=" & request("typevalgt") & "&varenr=" & request("varenr") & "' METHOD='POST'>"
response.write "<INPUT TYPE='submit' NAME='Action' VALUE='Opret vare'>"
response.write "</td></form>"
end if
end if
%>
Herefter skal den tælle hvor mange felter der er trukket ud af databasen og finde det der er indtastet i felterne, men endnu kan den ikke engang finde ud af hvor mange felter der er med denne stykke kode :
if request.querystring("mode") = "OK" then
Response.write "Mode : " & request.querystring("mode")
Response.write "Antal = " & Request.action.Count-1
For n = 1 To Request.Form.Count-1
Session(Request.Form.Key(n)) = request.form(Request.Form.Key(n))
response.write "Session udskrevet i rækkefølge " & Session(cParam(Request.Form.Item(n))) & "<br>" & cParam(Session(n)) & "<br>" & request.form("Varenr") & "<br>"
next
Nogen der kan HJÆÆLLLPPPEEEEE???
