for each item in request.form problem

vil dette sige, at du har et formular hvor du har mange felt der hedder 'varenr', mange felt der hedder 'koliantal' og mange felt der hedder 'antalkg' ? Hvis du har dette, så bør du nok først og fremmest lave dette om, så du knytter antalkg og koliantal til et specifikt varenummer. Fx:

<input type="text" value="1" name="varenr"><input type="text" name="koliantal_1"><input type="text" name="antalkg_1">
<input type="text" value="2" name="varenr"><input type="text" name="koliantal_2"><input type="text" name="antalkg_2">
<input type="text" value="1" name="varenr"><input type="text" name="koliantal_3"><input type="text" name="antalkg_3">

på denne måde kan du så meget hurtig identificere dine formfelter uden at bruge en for each på dit formular. så kan du hellere bruge dette:

Dim strVareNr : strVareNr = Request( "varenr" )
Dim arrVareNr : arrVareNr = Split( strVareNr, "," )
Dim strKoliValue, strKGValue
for i = 0 To Ubound( arrVareNr )
    strKoliValue = Request( "koliantal_" & arrVareNr( i ) )
    strKGValue = Request( "antalkg_" & arrVareNr( i ) )
    if( strKoliValue <> "" OR strKGValue <> "" ) then
        ' gør noget
    end if
next

på denne måde har du hele tiden knytningen mellem varenr og de felter der hører til dette varenummer (hvis du nu ikke har dette allerede, men så bør du jo skrive dette ;o] )

/nute

er ikke så stiv i VB(koder selv i JS), men prøv sådan:

counter=0
For Each varItem In Request.Form ' eller QueryString
  If counter = 0 Then
    tempItem = varItem
    tempVal = Request.Form(varItem).Item
    counter = 1
  Else If tempVal <> "" or Request.Form(varItem).Item <> "" Then
    Response.Write(tempItem & " = " & tempVal  & "<br />")
    Response.Write(varItem & " = " & Request.Form(varItem).Item  & "<br />")
  End If
Next

Desuden ... antal points skal afspejle *sværhedsgraden* af spørgsmålet ... ikke hvor desperat man er.

Else If tempVal <> "" or Request.Form(varItem).Item <> "" Then
    Response.Write(tempItem & " = " & tempVal  & "<br />")
    Response.Write(varItem & " = " & Request.Form(varItem).Item  & "<br />")
    counter=0
  End If

mm12010 >> forstår ikke helt din 'counter' variable ... hvad skal den være godt for ?

sorry - sådan

counter = 0
For Each varItem In Request.Form ' eller QueryString
  If counter = 0 Then
    tempItem = varItem
    tempVal = Request.Form(varItem).Item
    counter = 1
  Else If tempVal <> "" or Request.Form(varItem).Item <> "" Then
    Response.Write(tempItem & " = " & tempVal  & "<br />")
    Response.Write(varItem & " = " & Request.Form(varItem).Item  & "<br />")
    counter = 0
  Else
    counter = 0
  End If
Next

nute >> jeg får følgende fejl når jeg submitter min form:

An unhandled data type was encountered.

Hvis jeg blot udskriver strVareNr så udskriver den fint alle varenr, f.eks.:
95001, 95002, 95003

/Goose

hvilken linie fejler scriptet i, og hvad ligger der i den linie ?

og ups ... denne linie:

Dim arrVareNr : arrVareNr = Split( strVareNr, "," )

skal være:

Dim arrVareNr : arrVareNr = Split( strVareNr, ", " )

nute >> Det hjalp intet, den kommer med følgende fejl:

Varenr:

Response object error 'ASP 0106 : 80020005'

Type Mismatch

/bestilling.asp, line 0

An unhandled data type was encountered.

/Goose

Hvis jeg bruger følgende:

strVareNr = Request.form("varenr")
arrVareNr = Split(strVareNr, ", ")
response.write arrVareNr

Så får jeg fejlen, men hvis jeg kun udskriver strVareNr og udkommenterer arrVareNr så udskriver den godt nok varenr.  .......

/Goose

jeg tror nok du skal kigge et andet sted efter din fejl .. måske i resten af din kode. Dette eksempel kører fint for mig:

<%@ language="vbscript" %>
<%
Dim strVareNr : strVareNr = Request( "varenr" )
Dim arrVareNr : arrVareNr = Split( strVareNr, ", " )
Dim strKoliValue, strKGValue
Response.Write( "strVareNr: " & strVareNr & "<br>")
for i = 0 To Ubound( arrVareNr )
    strKoliValue = Request( "koliantal_" & arrVareNr( i ) )
    strKGValue = Request( "antalkg_" & arrVareNr( i ) )
    if( strKoliValue <> "" OR strKGValue <> "" ) then
        REsponse.Write( arrVareNr( i ) & ": " & strKoliValue & ", " & strKGValue & "<br>" )
    end if
next
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
<form>
<input type="text" value="1" name="varenr"><input type="text" name="koliantal_1"><input type="text" name="antalkg_1"><br>
<input type="text" value="2" name="varenr"><input type="text" name="koliantal_2"><input type="text" name="antalkg_2"><br>
<input type="text" value="3" name="varenr"><input type="text" name="koliantal_3"><input type="text" name="antalkg_3">
<input type="submit">
</form>
</body>
</html>

/nute

nute >> det er mig der sider og "tåger" rundet i det, fejlen var min idet jeg udskrev varenr med <%=arrVareNr%> isetdet for <%=arrVareNr(i)%>

Ligger du lige et svar så du kan få dine point ?

/Goose

ahh ... :o]

men som jeg skrev i mit andet indlæg ... dette er ikke værd 200 point. smid et svar og snup minimum 150 points selv

/nute

Okay, og tak for hjælpen, du har virkelig reddet min dag :o)

/Goose

anytime :-)

selv tak !