sandra wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej NG,
>
> Jeg har haft en del problemer med mit system efter jeg har lagt
> det op på et webhotel.
> Et af problemerne er, at jeg ca. hver anden gang jeg kører et
> bestemt script går det godt hver anden gang går det dårligt og
> jeg får fejlmeddelsen:
>
> error '80020009'
> Exception occurred.
>
> Hvis jeg venter lidt og prøver igen virker det fint, men det er
> lidt irreterende.
>
> Koden <%@Language=VBScript%>
>
> <!Rammen omkring teksten>
> <DIV STYLE="position:absolute; top:60; left:0; width:500;
> heigth:20; background:lavender; margin-top:100; margin-left:150;
> margin-right:30">
> <P CLASS=bluetext>
>
> <%
> 'Åbner forbindelse til databasen
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath("db/VDB.mdb")
> Conn.Open DSN
> %>
>
> <!form der indsætter, de udvalgt fra søgeresultatet, ind i
> databasen>
> <form method="post" action="res003.asp">
> <%
>
> response.write "<font COLOR=mediumblue face=verdana
size=2><b>Du
> vil reservere følgende: <br><br></b>"
>
> dim strFilms 'strFilms erklæres som array
> strFilms = request.form("resFilm") 'henter titlerne der er
> tjekket af i checkboxene fra "resFilm" som er erklæret i
> "funktionalitet.asp" og sættes ind i array'et strFilms
> dim arFilms 'arFilms erklæres som array
> dim i
> arFilms = split(strFilms,", ") 'split bruges til at opdele
> strengen strFilms som jo er outputtet fra formen resFilms op i
> arrayet de rigtige steder
> for i = 0 to ubound(arFilms) ' fra nul til den største værdi af
> arFilms
>
> 'Vælger alle fra varetabellen hvor titlen er som brugeren har
> krydset af
> strSQL = "SELECT * FROM Sortiment WHERE Titel ='" & arFilms(i)
&
> "'"
> set rs=Conn.Execute(strSQL)
>
> 'Vælger fra Butik hvor butiksnavnet er den filial brugeren har
> valgt
> SQL = "SELECT * FROM Butik WHERE Butiksnavn='" &
> Session("filial") &"'"
> Set tr=Conn.Execute(SQL)
>
> 'Bruger SQL og strSQL til at søge i den valgte filials varer
> P = "SELECT EksemplarNr FROM " & tr("ButiksID") & " WHERE
VareID=
> '" & rs("VareID") & "'" ' AND Hjemme=True"
> set pt=Conn.Execute(P)
>
>
> if rs("Titel")="MovieBox" or rs("Titel")="Playstation konsul 1"
> or rs("Titel")="Playstation konsul 1" then
> response.write arFilms(i)
>
> else
>
> response.write arFilms(i) & " på " & rs("format") & "<br>"
>
> end if
>
> 'Sætter de valgte film ind i en reservationsliste der
indeholder
> varenavn, eksemplarnr, pris, lejeperiode og kundenummeret
> Conn.Execute "INSERT INTO Reservationsliste ( Varenavn,
> EksemplarNr, Pris, Lejeperiode) VALUES ('" & arFilms(i) & " på
"
> & rs("Format") & "','" & pt("EksemplarNr") & "','" & rs("Pris")
&
> "','" & rs("Lejeperiode") & "')"
> Conn.Execute "UPDATE Reservationsliste SET Kundenummer= '" &
> Session("login") & "' WHERE Varenavn = '" & arFilms(i) & " på "
&
> rs("Format") & "'"
> 'Conn.Execute "UPDATE " & tr("ButiksID") & " SET Hjemme='false'
> AND Reserveret=true WHERE VareID='" & pt("VareID") &"' AND
> EksemplarNr='" & pt("EksemplarNr") & "'"
>
> response.write "<p align=right><font COLOR=mediumblue
> face=verdana size=2>Filial:" & session("filial") &
"</font></p>"
>
> next
>
> %>
>
> <p align=right><input type="submit" name="Indsaet" value="Overfør
> til reservationsliste"></p>
>
> </form> <!Afslutter formen>
> </div> <!Afslutter rammen>
>
> <%
>
> 'lukker forbindelsen til databasen
> Conn.Close: set conn = Nothing
>
> %>
>
> fejlmeddelsen kommer på linie 56, der er
>
>
> Conn.Execute "INSERT INTO Reservationsliste (Kundenummer,
> Varenavn, EksemplarNr, Pris, Lejeperiode) VALUES ('" &
> session("login")& "','" & arFilms(i) & " på " & rs("Format") &
> "','" & pt("EksemplarNr") & "','" & rs("Pris") & "','" &
> rs("Lejeperiode") & "')"
>
> Er der en hjælpene sjæl der ved hvad der kan være galt?
>
> Tusind tak..=)
>
> Sandra
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials