Jag vill kontrollera att det jag fyller i i ett formulär finns i min databas

t ex att ett artikelnr finns i databasen:

Jag har följande

SQL = SELECT ARTIKELNUMMER FROM ARTIKELREGISTER
Set RecSet = Conn.Execute(SQL)

Sen har jag väl gjort nåt halvdant försök med

Do Until RS.EOF

If Request.Form("artnr") = RS.EOF Then...

Else
End If

Någon som kan hjälpa till ett slag

prova med

SQL = "SELECT ARTIKELNUMMER FROM ARTIKELREGISTER WHERE ARTIKELNUMMER = '" & Request.Form("artnr") & "' "
Set RecSet = Conn.Execute(SQL)

IF RecSet.EOF THEN
' artikeln finns inte
ELSE
' artikeln finns

END IF

tack, det fungerar men nu har jag flera stycken formulärfält som ska kontrolleras artnr1, artnr2 etc. Måste jag göra en SELECT för varje eller jag kan göra det på något smidigare sätt?

mvh

Jimmy

SQL = "SELECT ARTIKELNUMMER FROM ARTIKELREGISTER WHERE ARTIKELNUMMER = '" & Request.Form("artnr") & "' OR ARTIKELNUMMER = '" & Request.Form("artnr1") & "' OR ARTIKELNUMMER = '" & Request.Form("artnr2") & "' OR ARTIKELNUMMER = '" & Request.Form("artnr3") & "' "
Set RecSet = Conn.Execute(SQL)

IF RecSet.EOF THEN
str = "ingen av artiklarna finns"
ELSE
str = "Dessa artikelar finns<br>"
DO UNTIL RecSet.EOF

str = str & RecSet("artikelnummer") & "<br>"

RecSet.MoveNext
END IF

Alternativt kan man skriva:

SQL = "SELECT ARTIKELNUMMER FROM ARTIKELREGISTER WHERE ARTIKELNUMMER IN ('" & Request.Form("artnr") & "', '" & Request.Form("artnr1") & "', '" & Request.Form("artnr2") & "', '" & Request.Form("artnr3") & "')"
Set RecSet = Conn.Execute(SQL)

jag tänkte på varje koll av artnr1, artnr2 osv köra en response.write och bygga upp ett likadant formulär som på föregående sida med röd feltext om den inte finns bredvid det formulärfältet som inte stämmer och annars ska bara formulärfältet utan text visas. Några förslag där?

Det finns säkert något smidigar sätt att få det att fungera på men detta funkar nog om det inte är så många artiklar som skall kollas.

' Sätter alla artiklar till att dom inte finns
s_art1 = "<font color=""#FF0000"">" & Request.Form("artnr") & " Artikeln finns ej</font>"
s_art2 = "<font color=""#FF0000"">" & Request.Form("artnr") & " Artikeln finns ej</font>"
s_art3 = "<font color=""#FF0000"">" & Request.Form("artnr") & " Artikeln finns ej</font>"

'Koll om artikeln finns så
DO UNTIL RecSet.EOF

IF RecSet("artikelnummer") = Request.Form("artnr1") THEN
s_art1 = RecSet("artikelnummer")
END IF
IF RecSet("artikelnummer") = Request.Form("artnr2") THEN
s_art2 = RecSet("artikelnummer")
END IF
IF RecSet("artikelnummer") = Request.Form("artnr3") THEN
s_art3 = RecSet("artikelnummer")
END IF

RecSet.MoveNext
LOOP

' Sedan skriver du ut texterna vid dina textboxar

jag har 10 000 artiklar som ska kollas :)

Men du har väl inte 10 000 fält i formuläret .....

Hej Jimmy,
Har du fixat den första biten?
hur ser formuläret ut, har du många textfält?

sorry Henke O jag läste fel rätt rejält märkte jag, ska ta och testa din teori imorgon jag återkommer vid problem tack för hjälpen

Winter:
Har inte meckat med pagingen något mer sen sist
jag har 10 fält som ska kollas

Nu ser det ut så här, men det händer inte nåt när jag trycker submit från föregående sida, sen hade jag tänkt att det är bara när något är fel som jag ska bygga upp ett likadant formulär, annars om alla finns vill jag inte ha något formulär överhuvudtaget:

<code>
<%

Dim RS, artnr1, artnr2, artnr3, artnr4, artnr5, artnr6, artnr7, artnr8, artnr9, artnr10, antal1, antal2, antal3, antal4, antal5, antal6, antal7, antal8, antal9, antal10, s_artnr1, s_artnr2, s_artnr3, s_artnr4, s_artnr5, s_artnr6, s_artnr7, s_artnr8, s_artnr9, s_artnr10

artnr1 = Request.Form("artnr1")
artnr2 = Request.Form("artnr2")
artnr3 = Request.Form("artnr3")
artnr4 = Request.Form("artnr4")
artnr5 = Request.Form("artnr5")
artnr6 = Request.Form("artnr6")
artnr7 = Request.Form("artnr7")
artnr8 = Request.Form("artnr8")
artnr9 = Request.Form("artnr9")
artnr10 = Request.Form("artnr10")

antal1 = CInt(Request.Form("antal1"))
antal2 = CInt(Request.Form("antal2"))
antal3 = CInt(Request.Form("antal3"))
antal4 = CInt(Request.Form("antal4"))
antal5 = CInt(Request.Form("antal5"))
antal6 = CInt(Request.Form("antal6"))
antal7 = CInt(Request.Form("antal7"))
antal8 = CInt(Request.Form("antal8"))
antal9 = CInt(Request.Form("antal9"))
antal10 = CInt(Request.Form("antal10"))

SQL = "SELECT DE_CHSArtikelkod FROM ARTIKELREGISTER WHERE DE_CHSArtikelkod IN ('" & artnr1 & "', '" & artnr2 & "', '" & artnr3 & "', '" & artnr4 & "', '" & artnr5 & "', '" & artnr6 & "', '" & artnr7 & "', '" & artnr8 & "', '" & artnr9 & "', '" & artnr10 & "')"
Set RS = Conn.Execute(SQL)


'Sätter alla artiklar till att dom inte finns

s_artnr1 = "<font color=""red"">" & artnr1 & " Artikeln finns ej</font>"
s_artnr2 = "<font color=""red"">" & artnr2 & " Artikeln finns ej</font>"
s_artnr3 = "<font color=""red"">" & artnr3 & " Artikeln finns ej</font>"
s_artnr4 = "<font color=""red"">" & artnr4 & " Artikeln finns ej</font>"
s_artnr5 = "<font color=""red"">" & artnr5 & " Artikeln finns ej</font>"
s_artnr6 = "<font color=""red"">" & artnr6 & " Artikeln finns ej</font>"
s_artnr7 = "<font color=""red"">" & artnr7 & " Artikeln finns ej</font>"
s_artnr8 = "<font color=""red"">" & artnr8 & " Artikeln finns ej</font>"
s_artnr9 = "<font color=""red"">" & artnr9 & " Artikeln finns ej</font>"
s_artnr10 = "<font color=""red"">" & artnr10 & " Artikeln finns ej</font>"

'Koll om artikeln finns

Do until RS.EOF

If RS("DE_CHSArtikelkod") = artnr1 Then
s_artnr1 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr2 Then
s_artnr2 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr3 Then
s_artnr3 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr4 Then
s_artnr4 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr5 Then
s_artnr5 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr6 Then
s_artnr6 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr7 Then
s_artnr7 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr8 Then
s_artnr8 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr9 Then
s_artnr9 = RS("DE_CHSArtikelkod")
End If

If RS("DE_CHSArtikelkod") = artnr10 Then
s_artnr10 = RS("DE_CHSArtikelkod")
End If

RS.MoveNext
Loop

%>
<form method="post" action="swe_best_art_orderhuvud.asp">
<table border=0>
<tr>
<td><div align="center">Artikelnummer</td><td><div align="center">Antal</td>
<tr><td><div align="center"><input type="text" name="artnr1"></td><td><div align="center"><input type="text" name="antal1" size="5"></td><td><%=s_artnr1%></td>
<tr><td><div align="center"><input type="text" name="artnr2"></td><td><div align="center"><input type="text" name="antal2" size="5"></td><td><%=s_artnr2%></td>
<tr><td><div align="center"><input type="text" name="artnr3"></td><td><div align="center"><input type="text" name="antal3" size="5"></td><td><%=s_artnr3%></td>
<tr><td><div align="center"><input type="text" name="artnr4"></td><td><div align="center"><input type="text" name="antal4" size="5"></td><td><%=s_artnr4%></td>
<tr><td><div align="center"><input type="text" name="artnr5"></td><td><div align="center"><input type="text" name="antal5" size="5"></td><td><%=s_artnr5%></td>
<tr><td><div align="center"><input type="text" name="artnr6"></td><td><div align="center"><input type="text" name="antal6" size="5"></td><td><%=s_artnr6%></td>
<tr><td><div align="center"><input type="text" name="artnr7"></td><td><div align="center"><input type="text" name="antal7" size="5"></td><td><%=s_artnr7%></td>
<tr><td><div align="center"><input type="text" name="artnr8"></td><td><div align="center"><input type="text" name="antal8" size="5"></td><td><%=s_artnr8%></td>
<tr><td><div align="center"><input type="text" name="artnr9"></td><td><div align="center"><input type="text" name="antal9" size="5"></td><td><%=s_artnr9%></td>
<tr><td><div align="center"><input type="text" name="artnr10"></td><td><div align="center"><input type="text" name="antal10" size="5"></td><td><%=s_artnr10%></td>
<tr><td colspan="2" align="center"><input type="submit" value="Till kassan"> <input type="reset" value="Återställ formulär"></td>
</form>
</table>

Får du något felmeddelande eller blir det bara en tom sida?

Jag får server script timeout

det fungerar nu jag hade glömt att sätta SQL i Dim, men nu ska jag som jag sade innan få en annan text utan formuläret när alla finns i databasen, det är bara när någon inte finns som det ska göras ett formulär, kan man lösa det på nåt vis med en If-sats?

Just nu har jag följande kod men om jag skriver in ett rätt och ett fel så blir det rätt att det inte står artikeln finns ej på de tomma rutorna men om jag skriver in två som är fel så får jag artikeln finns ej även på de övriga rutorna som inte är ifyllda, vad kan vara fel, jag hittar inget. tack på förhand

<code>
<%

Dim RS, SQL, artnr1, artnr2, artnr3, artnr4, artnr5, artnr6, artnr7, artnr8, artnr9, artnr10, antal1, antal2, antal3, antal4, antal5, antal6, antal7, antal8, antal9, antal10, s_artnr1, s_artnr2, s_artnr3, s_artnr4, s_artnr5, s_artnr6, s_artnr7, s_artnr8, s_artnr9, s_artnr10

artnr1 = UCASE(Request.Form("artnr1"))
artnr2 = UCASE(Request.Form("artnr2"))
artnr3 = UCASE(Request.Form("artnr3"))
artnr4 = UCASE(Request.Form("artnr4"))
artnr5 = UCASE(Request.Form("artnr5"))
artnr6 = UCASE(Request.Form("artnr6"))
artnr7 = UCASE(Request.Form("artnr7"))
artnr8 = UCASE(Request.Form("artnr8"))
artnr9 = UCASE(Request.Form("artnr9"))
artnr10 = UCASE(Request.Form("artnr10"))

antal1 = CInt(Request.Form("antal1"))
antal2 = CInt(Request.Form("antal2"))
antal3 = CInt(Request.Form("antal3"))
antal4 = CInt(Request.Form("antal4"))
antal5 = CInt(Request.Form("antal5"))
antal6 = CInt(Request.Form("antal6"))
antal7 = CInt(Request.Form("antal7"))
antal8 = CInt(Request.Form("antal8"))
antal9 = CInt(Request.Form("antal9"))
antal10 = CInt(Request.Form("antal10"))

SQL = "SELECT ""DE_CHSArtikelkod"" FROM ARTIKELREGISTER WHERE ""DE_CHSArtikelkod"" IN ('" & artnr1 & "', '" & artnr2 & "', '" & artnr3 & "', '" & artnr4 & "', '" & artnr5 & "', '" & artnr6 & "', '" & artnr7 & "', '" & artnr8 & "', '" & artnr9 & "', '" & artnr10 & "')"
Set RS = Conn.Execute(SQL)

'Sätter alla artiklar till att dom inte finns

s_artnr1 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr2 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr3 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr4 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr5 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr6 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr7 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr8 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr9 = "<div><font color=""red""> Artikeln finns ej</font>"
s_artnr10 = "<div><font color=""red""> Artikeln finns ej</font>"

'Koll om artikeln finns


Do Until RS.EOF


If RS("DE_CHSArtikelkod") = artnr1 Or artnr1 ="" Then
s_artnr1 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr2 Or artnr2 ="" Then
s_artnr2 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr3 Or artnr3 ="" Then
s_artnr3 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr4 Or artnr4 ="" Then
s_artnr4 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr5 Or artnr5 ="" Then
s_artnr5 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr6 Or artnr6 ="" Then
s_artnr6 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr7 Or artnr7 ="" Then
s_artnr7 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr8 Or artnr8 ="" Then
s_artnr8 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr9 Or artnr9 ="" Then
s_artnr9 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr10 Or artnr10 ="" Then
s_artnr10 = "&nbsp;"
Else
End If

RS.MoveNext
Loop
%>
</code>

Inte för att jag är någon ASP-haj direkt, men VB kan jag ju, och det följer väl väldigt mycket samma princip?

Varför använder du inte arrayer och loopar (och väljer typ på variabler)?

Dim RS, SQL, artnr1, artnr2, artnr3, artnr4, artnr5, artnr6, artnr7, artnr8, artnr9, artnr10, antal1, antal2, antal3, antal4, antal5, antal6, antal7, antal8, antal9, antal10, s_artnr1, s_artnr2, s_artnr3, s_artnr4, s_artnr5, s_artnr6, s_artnr7, s_artnr8, s_artnr9, s_artnr10

artnr1 = UCASE(Request.Form("artnr1"))
artnr2 = UCASE(Request.Form("artnr2"))
artnr3 = UCASE(Request.Form("artnr3"))
artnr4 = UCASE(Request.Form("artnr4"))
artnr5 = UCASE(Request.Form("artnr5"))
artnr6 = UCASE(Request.Form("artnr6"))
artnr7 = UCASE(Request.Form("artnr7"))
artnr8 = UCASE(Request.Form("artnr8"))
artnr9 = UCASE(Request.Form("artnr9"))
artnr10 = UCASE(Request.Form("artnr10"))


kunde t.ex. skrivas som:


Dim RS, SQL, artnr(1 to 10), antal(1 to 10), s_artnr(1 to 10)
Dim iArtNr 'As Long

For iArtNr = 1 To 10
artnr(iArtNr) = UCASE(Request.Form("artnr" & cstr(iArtnr) &))
Next

/Niklas Jansson

Jag är ingen asp-haj heller kan jag ju säga ingen VB-haj heller även om jag håller på att bättra på kunskaperna, men det hjälper inte mitt problem även om det blir mindre kod? Tack ändå

>men det hjälper inte mitt problem även om det blir mindre kod

Jo, i allmänhet det gör det faktiskt det.
Har du mindre kod ser du lättare vad det är du skall göra.

Har inte riktigt satt mig in i problemet, men du skulle tydligen ha fram att artikelnummer inte fanns?

Då använder du likadana loopar, och när en är fel så lägger du till detta till sidan. Eller?

/Niklas Jansson

Ja, jag får felmeddelande med din kod: Expected ')' på den första raden med Dim

det kanske inte funkar med 1 to 10.

Använd då

artnr(10)

Då bildas det egentligen 0 to 10, men koden funkar fortfarande.

/Niklas Jansson

koden ser ut så här nu, vet inte om det är så du menade jag får syntax error på markerad rad:

<code>

Dim RS, SQL, artnr(10), antal(10), s_artnr(10)
Dim iArtNr, iAntal, is_ArtNr 'As Long

For iArtNr = 1 To 10
artnr(iArtNr) = UCASE(Request.Form("artnr" & cstr(iArtnr) &)) *********** Fel Här**************
Next


For iAntal = 1 To 10
antal(iAntal) = CInt(Request.Form("antal" & cstr(iAntal) &))
Next

SQL = "SELECT ""DE_CHSArtikelkod"" FROM ARTIKELREGISTER WHERE ""DE_CHSArtikelkod"" IN ('" & artnr1 & "', '" & artnr2 & "', '" & artnr3 & "', '" & artnr4 & "', '" & artnr5 & "', '" & artnr6 & "', '" & artnr7 & "', '" & artnr8 & "', '" & artnr9 & "', '" & artnr10 & "')"
Set RS = Conn.Execute(SQL)

'Sätter alla artiklar till att dom inte finns


For is_ArtNr 1 To 10
s_artnr(is_ArtNr) = "<div><font color=""red""> Artikeln finns ej</font>"
Next


'Koll om artikeln finns


Do Until RS.EOF


If RS("DE_CHSArtikelkod") = artnr1 Or artnr1 ="" Then
s_artnr1 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr2 Or artnr2 ="" Then
s_artnr2 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr3 Or artnr3 ="" Then
s_artnr3 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr4 Or artnr4 ="" Then
s_artnr4 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr5 Or artnr5 ="" Then
s_artnr5 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr6 Or artnr6 ="" Then
s_artnr6 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr7 Or artnr7 ="" Then
s_artnr7 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr8 Or artnr8 ="" Then
s_artnr8 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr9 Or artnr9 ="" Then
s_artnr9 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr10 Or artnr10 ="" Then
s_artnr10 = "&nbsp;"
Else
End If

RS.MoveNext
Loop

glömde nog avsluta code

<code>
<%

Dim RS, SQL, artnr(10), antal(10), s_artnr(10)
Dim iArtNr, iAntal, is_ArtNr 'As Long

For iArtNr = 1 To 10
artnr(iArtNr) = UCASE(Request.Form("artnr" & cstr(iArtnr) &)) ' fel på denna raden
Next


For iAntal = 1 To 10
antal(iAntal) = CInt(Request.Form("antal" & cstr(iAntal) &))
Next

SQL = "SELECT ""DE_CHSArtikelkod"" FROM ARTIKELREGISTER WHERE ""DE_CHSArtikelkod"" IN ('" & artnr1 & "', '" & artnr2 & "', '" & artnr3 & "', '" & artnr4 & "', '" & artnr5 & "', '" & artnr6 & "', '" & artnr7 & "', '" & artnr8 & "', '" & artnr9 & "', '" & artnr10 & "')"
Set RS = Conn.Execute(SQL)

'Sätter alla artiklar till att dom inte finns


For is_ArtNr 1 To 10
s_artnr(is_ArtNr) = "<div><font color=""red""> Artikeln finns ej</font>"
Next


'Koll om artikeln finns


Do Until RS.EOF


If RS("DE_CHSArtikelkod") = artnr1 Or artnr1 ="" Then
s_artnr1 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr2 Or artnr2 ="" Then
s_artnr2 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr3 Or artnr3 ="" Then
s_artnr3 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr4 Or artnr4 ="" Then
s_artnr4 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr5 Or artnr5 ="" Then
s_artnr5 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr6 Or artnr6 ="" Then
s_artnr6 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr7 Or artnr7 ="" Then
s_artnr7 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr8 Or artnr8 ="" Then
s_artnr8 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr9 Or artnr9 ="" Then
s_artnr9 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr10 Or artnr10 ="" Then
s_artnr10 = "&nbsp;"
Else
End If

RS.MoveNext
Loop
%>
</code>

testade med artnr(iArtNr) = UCASE(Request.Form("artnr(iArtnr)")) istället men får då server script timeout

testa.
artnr(iArtNr) = UCASE(Request.Form("artnr")) & cstr(iArtnr)

får fortfarande samma fel, med denna kod

<code>
<%

Dim RS, SQL, artnr(10), antal(10), s_artnr(10)
Dim iArtNr, iAntal, is_ArtNr 'As Long

For iArtNr = 1 To 10
artnr(iArtNr) = UCASE(Request.Form("artnr")) & cstr(iArtnr)
Next


For iAntal = 1 To 10
antal(iAntal) = CInt(Request.Form("antal")) & cstr(iAntal)
Next

SQL = "SELECT ""DE_CHSArtikelkod"" FROM ARTIKELREGISTER WHERE ""DE_CHSArtikelkod"" IN ('" & artnr1 & "', '" & artnr2 & "', '" & artnr3 & "', '" & artnr4 & "', '" & artnr5 & "', '" & artnr6 & "', '" & artnr7 & "', '" & artnr8 & "', '" & artnr9 & "', '" & artnr10 & "')"
Set RS = Conn.Execute(SQL)

'Sätter alla artiklar till att dom inte finns


For is_ArtNr = 1 To 10
s_artnr(is_ArtNr) = "<div><font color=""red""> Artikeln finns ej</font>"
Next


'Koll om artikeln finns


Do Until RS.EOF


If RS("DE_CHSArtikelkod") = artnr1 Or artnr1 ="" Then
s_artnr1 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr2 Or artnr2 ="" Then
s_artnr2 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr3 Or artnr3 ="" Then
s_artnr3 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr4 Or artnr4 ="" Then
s_artnr4 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr5 Or artnr5 ="" Then
s_artnr5 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr6 Or artnr6 ="" Then
s_artnr6 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr7 Or artnr7 ="" Then
s_artnr7 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr8 Or artnr8 ="" Then
s_artnr8 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr9 Or artnr9 ="" Then
s_artnr9 = "&nbsp;"
Else
End If

If RS("DE_CHSArtikelkod") = artnr10 Or artnr10 ="" Then
s_artnr10 = "&nbsp;"
Else
End If

RS.MoveNext
Loop
%>
<form method="post" action="swe_best_art_orderhuvud.asp">
<table border=0 cellpadding="0" cellspacing="0">
<tr>
<td width="200"><div align="center">Artikelnummer</td><td width="50"><div align="center">Antal</td><td width="100">&nbsp;</td>
<tr><td><div align="center"><input type="text" name="artnr1" value=<%=artnr1%>></td><td><div align="center"><input type="text" name="antal1" size="5" value=<%=antal1%>></td><td><%=s_artnr1%></td>
<tr><td><div align="center"><input type="text" name="artnr2" value=<%=artnr2%>></td><td><div align="center"><input type="text" name="antal2" size="5" value=<%=antal2%>></td><td><%=s_artnr2%></td>
<tr><td><div align="center"><input type="text" name="artnr3" value=<%=artnr3%>></td><td><div align="center"><input type="text" name="antal3" size="5" value=<%=antal3%>></td><td><%=s_artnr3%></td>
<tr><td><div align="center"><input type="text" name="artnr4" value=<%=artnr4%>></td><td><div align="center"><input type="text" name="antal4" size="5" value=<%=antal4%>></td><td><%=s_artnr4%></td>
<tr><td><div align="center"><input type="text" name="artnr5" value=<%=artnr5%>></td><td><div align="center"><input type="text" name="antal5" size="5" value=<%=antal5%>></td><td><%=s_artnr5%></td>
<tr><td height="10"><img src="bilder/pixelvit.gif"></td><td height="10"><img src="bilder/pixelvit.gif"></td><td height="10"><img src="bilder/pixelvit.gif"></td>
<tr><td><div align="center"><input type="text" name="artnr6" value=<%=artnr6%>></td><td><div align="center"><input type="text" name="antal6" size="5" value=<%=antal6%>></td><td><%=s_artnr6%></td>
<tr><td><div align="center"><input type="text" name="artnr7" value=<%=artnr7%>></td><td><div align="center"><input type="text" name="antal7" size="5" value=<%=antal7%>></td><td><%=s_artnr7%></td>
<tr><td><div align="center"><input type="text" name="artnr8" value=<%=artnr8%>></td><td><div align="center"><input type="text" name="antal8" size="5" value=<%=antal8%>></td><td><%=s_artnr8%></td>
<tr><td><div align="center"><input type="text" name="artnr9" value=<%=artnr9%>></td><td><div align="center"><input type="text" name="antal9" size="5" value=<%=antal9%>></td><td><%=s_artnr9%></td>
<tr><td><div align="center"><input type="text" name="artnr10" value=<%=artnr10%>></td><td><div align="center"><input type="text" name="antal10" size="5" value=<%=antal10%>></td><td><%=s_artnr10%></td>
<tr><td colspan="2" align="center"><input type="submit" value="Till kassan"> <input type="reset" value="Återställ formulär"></td><td width="100">&nbsp;</td>
</form>
</table>
</code>

Fick det att funka nu med den gamla koden, modifierade den lite.
Jag använder den istället jag pallar inte klabba mer nu.
Tack för all hjälp!