in asp mit vbscript sieht das ganze dann ungefähr so aus:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%option explicit%>
<html>
<head>
<title>Mein Gästebuch</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#CCCCFF">
<table width="300" border="0">
<tr>
<td align="center"><font color="#0066CC" size="+2" face="Arial, Helvetica, sans-serif"><strong>Ins
Gästebuch eintragen</strong></font></td>
</tr>
</table>
<p>
<%
dim nick, entr, mail, hp, ort, info
'Variablen für Formularübergabe werden dimensioniert.
'Aufgrund von option explicit muss dies geschehen
info=""
nick=request.querystring("nick") 'Nick
entr=request.querystring("entr") 'Eintrag
ort=request.querystring("ort") 'Ort
hp=request.querystring("hp") 'Homepage
mail=request.querystring("mail") 'Email
if request.querystring.count>0 then
'wenn "Get-Methodenzählen mehr als 0 ist" beginnt
if nick="" and entr="" then
'wenn alle Pflichtfelder leer sind, kommt die fehlermeldung:
info="Nachricht und Name erforderlich!"
elseif nick="" then
'sonst, wenn nick leer ist, dann kommt die fehlermeldung:
info="Bitte den Namen ausfüllen!"
elseif entr="" then
'sonst, wenn der eintrag leer ist, dann kommt die fehlermeldung:
info="Eine Nachricht ist erforderlich!"
end if
'Pflichtfelderunterabfrage endet
response.write("<h3>"&info&"</h3>")
end if
%>
</p>
<form name="guestbook" method="post" action="">
<tr>
<td width="82"><font color="#666666" face="Arial, Helvetica, sans-serif">Name:</font></td>
<td width="208"> <div align="left">
<input name="nick" type="text" id="nick3" value="<%=nick%>">
</div></td>
<!-- Feld für nick und hat wegen get-Methode das value der Variable-->
</tr>
</table>
<hr align="left" width="300">
<table width="300" border="0">
<tr>
<td width="81"><font color="#666666" face="Arial, Helvetica, sans-serif">Herkunft:</font></td>
<td width="209"><div align="left"><font face="Arial, Helvetica, sans-serif">
<input name="ort" type="text" id="ort" value="<%=ort%>">
</font></div></td>
<!-- Feld für ort und hat wegen get-Methode das value der Variable-->
</tr>
<tr>
<td><font color="#666666" face="Arial, Helvetica, sans-serif">Homepage:</font></td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif">
<input name="hp" type="text" id="hp" value="<%=hp%>">
</font></div></td>
<!-- Feld für hp und hat wegen get-Methode das value der Variable-->
</tr>
<tr>
<td><font color="#666666" face="Arial, Helvetica, sans-serif">Email:</font></td>
<td><div align="left"><font face="Arial, Helvetica, sans-serif">
<input name="mail" type="text" id="mail" value="<%=mail%>">
</font></div></td>
<!-- Feld für mail und hat wegen get-Methode das value der Variable-->
</tr>
</table>
<hr align="left" width="300">
<font color="#0066CC" size="+1" face="Arial, Helvetica, sans-serif">Eintrag:</font><br>
<textarea name="entr" cols="34" id="entr"><%=entr%></textarea>
<!-- Feld für eintrag und hat wegen get-Methode das value der Variable-->
<hr align="left" width="300">
<font color="#666666" size="-1" face="Arial, Helvetica, sans-serif">Info für
alle</font><font size="-1" face="Arial, Helvetica, sans-serif"> <strong><font color="#0066CC">Spammer:</font></strong>
<font color="#666666">Ihre</font> <strong><font color="#0066CC">IP</font></strong>
<font color="#666666">wird mitgeloggt!</font></font>
<hr align="left" width="300">
<table width="300" border="0">
<tr>
<td width="196"><div align="right">
<input name="reset" type="reset" id="reset" value="verwerfen">
<!-- resetknopfi-->
</div></td>
<td width="94"><div align="right">
<input type="submit" name="ok" id="ok2" value="absenden">
<!-- abschickenknopfi-->
</div></td>
</tr>
</table>
</form>
<font size="-1" face="Arial, Helvetica, sans-serif"> </font>
<hr align="left" width="300">
<hr align="left" width="300">
<p><% 'Scriptbegrenzungszeichen auf
dim ip, wmail, dat, datum, condb, condbstr, sql, auslesen, query
'Variablen für Datenbank &ein paar fürs Formular.
'Variable condb erstellt in weiterer Folge die Verbindung mit der db
'Variable auslesen enthält i. w. f. die Sql-Anweisung fürs auslesen,
'welche das recordset dargestellt.
'Variable query wird benötigt, um die Sql-Anweisung auszuführen
'und die jeweiligen Felder an andere Variablen zu übergeben.
'condbstr enhält i. w. f. den ms jet oledb connectionstring.
nick=request.form("nick") 'Variablen für formularübergabe werden '
'auf die jeweiligen formularfelder gebunden.
entr=request.form("entr")
ort=request.form("ort")
hp=request.form("hp")
mail=request.form("mail")
ip=request.servervariables("REMOTE_ADDR") 'Die IP des Users wird vom Server aus-
'gelesen und an die Variable übergeben.
dat=now() 'Datum wird auf Jetzt und Uhrzeit wird auf Jetzt gesetzt.
set condb=server.createobject("adodb.connection") 'ADODB.Connection wird auf
'Variable condb gebunden.
'createobject heißt soviel wie
'Verbindungsobjekt erstellen.
'Durch set wird das Objekt erstellt
condbstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../datenbank/gaestebuch.mdb")
'oleobjekt wird auf condbstr gebunden
sql="insert into gaestebuch (nick, ort, hp, ip, entr, mail, dat) values ('"&nick&"', '"&ort&"', '"&hp&"', '"&ip&"', '"&entr&"', '"&mail&"','"&dat&"')"
'Auf die Variable wird der Sql-Befehl gebunden.
'Alle wichtigen Datensätze, dekrement nach Datum & Uhrzeit geordnet,
'werden aus d. Tabelle gaestebuch ausgelesen.
if request.form.count>0 then
if nick<>"" and entr<>"" then
condb.open condbstr 'condb wird geöffnet über OLEDB-Variable condbstr
condb.execute(sql) 'Sql-Befehl wird über das recordset an
'die DB weitergegeben und ausgeführt.
condb.close 'verbindung zu db wird geschlossen.
set condb=nothing 'verbindung wird gekillt Variableninhalt wird gelöscht.
else
response.redirect("lesenschreiben.asp?nick="&nick&"&entr="&entr&"&ort="&ort&"&hp="&hp&"&mail="&mail)'
end if
end if
set condb=server.createobject("adodb.connection")
'ADODB.Connection wird auf Variable condb gebunden.
'createobject heißt soviel wie Verbindung herstellen. Durch set wird das Objekt erstellt.
auslesen="select nick, ort, hp, entr, mail, dat from gaestebuch order by dat desc"
'Auf die Variable wird der Sql-Befehl gebunden.
'Alle wichtigen Datensätze, dekrement nach Datum & Uhrzeit geordnet,
'werden aus d. Tabelle gaestebuch ausgelesen.
condb.open condbstr 'condb wird geöffnet über OLEDB-Variable condbstr.
set query=condb.execute(auslesen) 'Sql-Befehl wird an die DB ausgeführt.
'Die Datensätze werden als recordset zwischengespeichert.
%>
</p><table width="300" border="0">
<tr>
<td align="center"><font color="#0066CC" face="Arial, Helvetica, sans-serif"><strong><font size="+2">Gästebucheinträge</font></strong><font size="+2"><strong> </strong></font></font></td>
</tr>
</table>
<hr align="left" width="300">
<%
while not query.eof 'Schleife zum "Datensätze bis EndOfFile auslesen" beginnt.
nick=query("nick") 'Datensätze werden vom Recordset an die jeweiligen Variablen übergeben.
mail=query("mail")
datum=query("dat")
ort=query("ort")
hp=query("hp")
entr=query("entr")
entr=replace(entr,vbcrlf,"<br>") 'ersetzt Entereingaben mit html<br>,
'damit diese korrekt in der Tabelle übergeben werden.
if hp<>""then 'vor then: Überprüfung, ob die URL vorhanden ist.
if left(hp,7)<>"http://" then 'Überprüfung, ob die URL ein http:// enthält.
hp="<a href='http://"&hp&"' target='_blank'>"&hp&"</a>" '
'http:// wird notfalls angehängt und als Link dargestellt.
else
hp="<a href='"&hp&"' target='_blank'>"&hp&"</a>"
'ansonsten wird die hp mit einem Link erweitert.
end if 'Unterüberprüfung "URL korrekt" zu
end if 'Überprüfung zu "URL vorhanden" zu
if mail<>"" then 'vor then: Überprüfung, ob die Mailadresse vorhanden ist.
wmail="<a href='mailto:"&mail&"'>"&mail&"</a>"
'die Hilfsvariable für die Mailadresse selbst bekommt einen mailto-Link
nick="<a href='mailto:"&mail&"'>"&nick&"</a>"
'der nick bekommt einen mailto-Link und die Mailadresse
end if ' Überprüfung "Mailadresse vorhanden" zu
%>
<table width="300" border="0">
<tr>
<td><font color="#0066CC" size="+1" face="Arial, Helvetica, sans-serif"><strong> Eintrag</strong></font></td>
</tr>
</table>
<table width="300" border="0">
<tr>
<td width="81"><font color="#666666" face="Arial, Helvetica, sans-serif">von</font></td>
<td width="219"><font face="Arial, Helvetica, sans-serif"><%=nick%></font></td>
</tr>
<tr>
<td width="81"><font color="#666666" face="Arial, Helvetica, sans-serif">aus</font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=ort%></font></td>
</tr>
<tr>
<td width="81"><font color="#666666" face="Arial, Helvetica, sans-serif">Homepage</font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=hp%></font></td>
</tr>
<tr>
<td width="81"><font color="#666666" face="Arial, Helvetica, sans-serif">am</font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=formatdatetime(datum,vbshortdate)%></font></td>
</tr>
<tr>
<td width="81"><font color="#666666" face="Arial, Helvetica, sans-serif">um</font></td>
<td><font face="Arial, Helvetica, sans-serif"><%=formatdatetime(datum,vbshorttime)%></font></td>
</tr>
</table>
<hr align="left" width="300">
<table width="300" border="0">
<tr>
<td><font color="#0066CC" size="+1" face="Arial, Helvetica, sans-serif"><strong>mit
folgender Nachricht</strong></font></td>
</tr>
</table>
<br>
<table width="300" border="0">
<tr>
<td><font face="Arial, Helvetica, sans-serif"><%=entr%></font></td>
</tr>
</table>
<hr align="left" width="300">
<font face="Arial, Helvetica, sans-serif"> <strong><font color="#666666">IP erfolgreich
gespeichert!</font></strong><br>
</font>
<hr align="left" width="300">
<hr align="left" width="300">
<font face="Arial, Helvetica, sans-serif"><br>
<%
query.movenext 'nächster Datensatz und es wird wieder eine Zeile in der HTML-Tabelle erzeugt.
wend
query.close 'recordset wird geschlossen.
set query=nothing 'recordset wird gekillt - die Speicherung am Server wird wieder freigegeben.
condb.close 'Verbindung zu db wird geschlossen.
set condb=nothing 'Verbindung wird gekillt Variableninhalt wird gelöscht.
%>
</body>
</html>
hab dir dieses lächerliche script sogar auskommentiert - und selbst ist der mann
kannst ja auf deiner workstation das iis-paket nachinstallen und das ganze als aspdatei abspeichorn und eine db anlegen...