Nogmaals bedankt dat je me wil helpen AMD!
Ik heb er nu dit van gemaakt:
PHP-code:
<%
Dim db, rs, sSQL
sSQL = "IF EXISTS(SELECT 'True' FROM Subscription WHERE strEmail = '" & email & "') "
sSQL = sSQL & "BEGIN "
sSQL = sSQL & "INSERT INTO Guestbook(Email, Message, Date) VALUES('" & email & "','" & message & "', 'now()') "
sSQL = sSQL & "END ELSE BEGIN "
sSQL = sSQL & "SELECT 'Email van geen lid' "
sSQL = sSQL & "END"
Set db = Server.CreateObject("ADODB.Connection")
openStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
db.Open openStr
Set rs = db.Execute(sSQL)
If rs(0) = "Email van geen lid" Then
Response.Write "Enkel leden mogen berichten posten"
Else
Response.Write "Je bericht werd toegevoegd..."
End If
%>
<html>
<head>
<title>Guestbook</title>
</head>
<body>
<% if Request.querystring("act") = "send" then response.write message %>
<FORM METHOD="POST" method="POST" action="guestbook.asp?act=send">
Name: <INPUT NAME="name" size="33"><br>
Email: <INPUT NAME="email" size="33"><br>
Message: <textarea rows="6" name="message" cols="30">
</textarea><br>
<INPUT TYPE="SUBMIT" VALUE="SEND">
</form>
</body>
</html>
Klopt dit nog?
Ik krijg echter deze fout bij uitvoering:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.
/BPM-Forum site/guestbook_new.asp, line 14
Zit er nog een fout in mijn code?
Favorieten/bladwijzers