3 svar · 285 visningar · startad av Meng
Hur gör jag för att räkna hur många värden jag får och sedan dela ut dem i en loop som visar lika många poster?
Exempel:
print='97, 95, 94, 92, 91, 90, 87, 86, 85, 84'
Dim sPrint, vPrint, i
sPrint = "97, 95, 94, 92, 91, 90, 87, 86, 85, 84"
vPrint = Split(sPrint, ",")
Response.Write "Antal värden: " & UBound(vPrint) + 1
For i = 0 To UBound(vPrint)
Response.Write "<br>" & Trim(vPrint(i))
Next 'i
Detta funkar skit bra, bara ett problem
kolla här..
om jag väljer 96, 94, 92, 90, 89, 87, 86, 83, 82 blir antalet 9
då får jag utskrivet 9, 96, 94, 92, 90, 89, 87, 86, 83 och inte 82
Nån som vet varför antal värdet blir inblandat?
################################ol_admin_save.asp###################
Response.write "<html>"%>
<body onload="document.getElementById('foo').submit();">
<form method="post" action="ol_printall.asp?do=visvare" id="foo">
<%
Dim sPrint, vPrint, i
sPrint = Fixa(Request.Form("print"))
vPrint = Split(sPrint, ",")
Response.write "<br><input type=""text"" name=""antal"" value=""" & UBound(vPrint) + 1 & """>"
For i = 1 To UBound(vPrint)
Response.write "<br><input type=""text"" name=""" & i & """ value=""" & Trim(vPrint(i)) & """>"
Next 'i
Response.write "</form>"
Response.write "</body>"
Response.write "</html>"
################################ol_printall.asp###################
antal = CLng( Request.Form("antal") )
For k = 1 To antal
trams = Request.Form(k)
Set RecSet = Conn.Execute("SELECT * FROM varelager Where id=" & trams )
'''' Reccar ut all data
RecSet.Close
Set RecSet = Nothing
Next 'k
Fixade det nu, skippade att ha ett mellansteg med form forward så nu funkar det perfekt!
Tack för hjälpen Erik!
<%
Dim sPrint, vPrint, k
sPrint = Request.Form("print")
vPrint = Split(sPrint, ",")
For k = 0 To UBound(vPrint)
trams = Trim(vPrint(k))
Set RecSet = Conn.Execute("SELECT * FROM varelager Where id=" & trams )
'''' Reccar ut all data
RecSet.Close
Set RecSet = Nothing
Next 'k