🚀 go-pugleaf

"billyke" <gert.verstappen@gmx.net> schreef in bericht
news:b98vrc$1b6$1@reader11.wxs.nl...
>
> "_YuGo_" <yugo(geenspam)@pandora.be> wrote in message
> news:fjBta.76321$t_2.7194@afrodite.telenet-ops.be...
> > Ik probeer al een hele tijd een simpele guestbook te maken maar ik raak
er
> > maar niet uit. Ik krijg volgende fout:
> >
> > Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
> > [Microsoft][ODBC Microsoft Access-stuurprogramma] De bewerking moet
worden
> > uitgevoerd op een query die kan worden bijgewerkt.
> >
> > Deze fout wordt gegenereerd door de regel waar de insert opdracht wordt
> > uitgevoerd, en ik zie helemaal geen syntax fout.  Ik had eens geprobeerd
> met
> > Addnew, maar de ervaring verteld mij dat dat helemaal niet lukt.
> >
> > Ziet iemand het probleem?
> >
> > Hier is de code:
> >
> > <%
> > Dim n,e,m
> > n = Request.form("naam")
> > e = Request.Form("email")
> > m = Request.Form("Message")
> > d = Date()
> > %>
> >
> > <html>
> > <body>
> >
> > naam: <% response.write(n)%>
> > mail: <% response.write(e)%>
> > mess: <% response.write(m)%>
> > <% response.write(d)%>
> >
> >
> > <%
> > Set Conn = Server.CreateObject("ADODB.Connection")
> > Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _
> > Server.Mappath("Guestbook.mdb")
> >
> > Dim strSQL
> >
> >
> > strSQL="INSERT INTO guestbook VALUES ('" & n & "', '" & e & "', '" & d &
> "',
> > '" & m & "');"
> > response.write (strSQL)
> >
> > Conn.execute(strSQL)
> >
> > Response.Write "Wij hebben uw inschrijving goed ontvangen."
> >
> > objRecordset.Close
> >            Set objRecordset = Nothing
> >
> > Conn.close
> >
> > %>
> >
> >
> >
>
>
> 1. Plak uw query eens rechtstreeks in Access en kijk of daar alles werkt

als ik die plak werkt dat perfect.


> 2. Check nogmaals of de IUSR full control heeft op de directory (moet
> namelijk het .ldb bestand kunnen aanmaken en verwijderen en wijzigen in de
> db).

ldb kan aangemaakt worden.


> 3. Probeer eens met Conn.Mode = 3 'adModeReadWrite (dit voor het openen
van
> de connectie)
>

Dan geeft hij een fout op het openen van de database:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-stuurprogramma]Algemene fout Kan de
registersleutel Temporary (volatile) Jet DSN for process 0x1b50 Thread
0x1a1c DBC 0x25e0fcc Jet niet openen.



>
> Nog twee opmerkingen:
>
> 1. Het is niet zo verstandig om de databank binnen het bereik van IIS te
> zetten, op deze manier kan iedereen gewoon de databank downloaden...
> Je gebruikt beter een UDL bestand dat je buiten het bereik van IIS zet
> (bijvoorbeeld C:\Guestbook.udl).
> De connectiestring wordt dan "file name=C:\Guestbook.udl" (dus Conn.Open
> "file name=C:\Guestbook.udl")
>
> 2. Wat indien bijvoorbeeld Peter 't Paard zou noemen, dan krijg je
> gegarandeerd fouten omdat je SQL op dat moment ongeldig is.
> Je kan dit oplossen door de single quotes te ontdubbelen
>
> Function CleanSQL(sValue)
>     CleanSQL = Replace(sValue, "'", "''")
> End Function
>
> Jouw SQL ziet er dan uit als volgt:
>
> strSQL="INSERT INTO guestbook VALUES ('" & CleanSQL(n) & "', '" &
> CleanSQL(e) & "', '" & CleanSQL(d) & "', '" & CleanSQL(m) & "');"
>
>
>
> Nog veel succes met de website!
>
>