/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Hjælp igen
Fra : Nhi


Dato : 18-03-01 21:46

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>



 
 
Rasmus Nielsen (19-03-2001)
Kommentar
Fra : Rasmus Nielsen


Dato : 19-03-01 07:30

> Conn.Open strDSN

strDSN er vel defineret?

Venlig hilsen, Rasmus Nielsen.


Nhi (19-03-2001)
Kommentar
Fra : Nhi


Dato : 19-03-01 08:17



> 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>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408878
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste