---

hvad er dette fejl??

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0009)
Indekset er uden for området: 'RS(...)'

Her er scriptet:

<%
Card = Session("Card")
Items = Session("Items")

if Request.QueryString("action") = "add" then

Items = Items + 1

Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open strDSN
Set RS = Conn.Execute("SELECT * FROM salg WHERE vareid =
"&Request.QueryString("id")&"")
if Not RS.EOF then

Card(1,Items) = Items
Card(2,Items) = RS("vareid")
Card(3,Items) = RS("overskrift")
Card(4,Items) = RS("beskrivelse")
Card(5,Items) = RS("pris")
Card(6,Items) = RS("tlf")*********fejl 53*********
Card(7,Items) = RS("billede")
Card(8,Items) = 1

end if
RS.close
Conn.Close
Set RS = nothing
Set Conn = nothing

elseif Request.QueryString("action") = "delete" then

Card(8,Request.QueryString("id")) = 0

end if

Session("Card") = Card
Session("Items") = Items
%>

<table border="1" width="400">
<%
for i = 1 to Items
if Card(8,i) = 1 then
%>

<tr>
<td><%=Card(3,i)%></td>
<td align="right"><%=Card(4,i)%></td>
<td>&nbsp;<a
href="card.asp?action=delete&id=<%=Card(1,i)%>">Delete</a></td>
</tr>

</table>


</body>
</html>

---

> Conn.Open strDSN

strDSN er vel defineret?

Venlig hilsen, Rasmus Nielsen.

---

> strDSN er vel defineret?
>


strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " &_
"DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"" &_
"lager.mdb"
Det er et eksempel som jeg har taget et sted fra, men jeg kan ikke tilføje
flere felt fra databasen. Altså standard eks. er at der vise; id, navn, vare
og pris, men jeg vil gerne tilføje 3 mere f,eks. billede....
Jeg ved ikke om det har noget med global.asa filen at gøre????

Her er global.asa fil:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart

'-------------------------------------
'vareID = 1
'overskrift = 2
'beskrivelse = 3
'pris = 4
'Checked = 5
'-------------------------------------

ReDim Preserve Card(5,50)
Session("Card") = Card
Session("Items") = 0

END SUB
</SCRIPT>