Hey!
Ik ben een gastenboek aan het maken en het uit de tabel halen van commentaar werkt al wel maar als ik iets wil toevoegen gebeurd er niks.
De volgende code heb ik:
<%
%><!--#include virtual="/succo/db_conn.inc"--><%
set rs = Server.CreateObject("ADODB.RecordSet")
name = request.form("name")
comment = request.form("comment")
if Len(comment) > 0 then
conn.execute "insert into GuestbookJoost values ('" & name & "','" & comment & "')"
end if
%>
<HTML>
<HEAD>
<Link Href="common/style.css" TYPE="text/css" REL="stylesheet">
<script language="vbscript"><!--
Sub Validate()
if Len(document.NewGBI.name.value) < 1 then
MsgBox "U moet wel een naam invullen"
elseif Len(document.NewGBI.comment.value) < 1 then
MsgBox "U moet wel commentaar invullen"
else
MsgBox "Dank u voor uw bijdrage"
document.NewGBI.submit()
end if
End Sub
//--></script>
<!--mstheme--><link rel="stylesheet" href="aftr1011.css">
<meta name="Microsoft Theme" content="aftrnoon 1011">
</HEAD>
<BODY>
<table border=2>
<td><b>Naam</b></td><td><b>Bericht</b></td><td></td>
<%
rs.open "select * from GuestbookJoost", conn
do until rs.eof
response.write "<tr><td>" & rs("Name") & "</td><td>" & rs("Comment") & "</td><td></td></tr>"
rs.movenext
loop
rs.close
conn.close
%>
</table><table>
<form name="NewGBI" action="guestbookjoost.asp" method="post">
<tr>
<td>Naam:</td>
</tr><tr>
<td><input type="text" name="name"></td>
</tr><tr>
<td>Bericht:</td>
</tr><tr>
<td><input type="text" name="comment"></td>
</tr><tr>
<td><input type="button" value="Toevoegen" onClick="Validate()"></td>
</tr>
</form>
</table>
</BODY>
</HTML>
Ook zou ik graag de site verversen daarna zodat je het zojuist toegevoegde berichtje kunt zien...
Hopelijk kan er iemand mij helpen!
Groetjes,
Joost
Ik ben een gastenboek aan het maken en het uit de tabel halen van commentaar werkt al wel maar als ik iets wil toevoegen gebeurd er niks.
De volgende code heb ik:
<%
%><!--#include virtual="/succo/db_conn.inc"--><%
set rs = Server.CreateObject("ADODB.RecordSet")
name = request.form("name")
comment = request.form("comment")
if Len(comment) > 0 then
conn.execute "insert into GuestbookJoost values ('" & name & "','" & comment & "')"
end if
%>
<HTML>
<HEAD>
<Link Href="common/style.css" TYPE="text/css" REL="stylesheet">
<script language="vbscript"><!--
Sub Validate()
if Len(document.NewGBI.name.value) < 1 then
MsgBox "U moet wel een naam invullen"
elseif Len(document.NewGBI.comment.value) < 1 then
MsgBox "U moet wel commentaar invullen"
else
MsgBox "Dank u voor uw bijdrage"
document.NewGBI.submit()
end if
End Sub
//--></script>
<!--mstheme--><link rel="stylesheet" href="aftr1011.css">
<meta name="Microsoft Theme" content="aftrnoon 1011">
</HEAD>
<BODY>
<table border=2>
<td><b>Naam</b></td><td><b>Bericht</b></td><td></td>
<%
rs.open "select * from GuestbookJoost", conn
do until rs.eof
response.write "<tr><td>" & rs("Name") & "</td><td>" & rs("Comment") & "</td><td></td></tr>"
rs.movenext
loop
rs.close
conn.close
%>
</table><table>
<form name="NewGBI" action="guestbookjoost.asp" method="post">
<tr>
<td>Naam:</td>
</tr><tr>
<td><input type="text" name="name"></td>
</tr><tr>
<td>Bericht:</td>
</tr><tr>
<td><input type="text" name="comment"></td>
</tr><tr>
<td><input type="button" value="Toevoegen" onClick="Validate()"></td>
</tr>
</form>
</table>
</BODY>
</HTML>
Ook zou ik graag de site verversen daarna zodat je het zojuist toegevoegde berichtje kunt zien...
Hopelijk kan er iemand mij helpen!
Groetjes,
Joost