<%
Session.LCID=1031
Set db = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
db.Open "DBQ=" & Server.Mappath("datenbank/gaestebuch11.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
if Request.Form.Count>0 then
if Request.Form("nameneu")="" or Request.Form("eintragneu")="" then
%>
|
Geben Sie bitte einen Namen
und Ihren Eintrag ein.
zurück
|
<%
else
whatsthename = Request.Form("nameneu")
whatstheemail = Request.Form("emailneu")
whatsthedate = date()
whatsthetime = time()
whatstheentry = Request.Form("eintragneu")
whatstheentry = Replace(whatstheentry,vbCrLf,"
")
sql = " INSERT INTO gaestebuch11 (name,email,datum,uhrzeit,eintrag) VALUES ('" & whatsthename & "','" & whatstheemail & "','" & whatsthedate & "','" & whatsthetime & "','" & whatstheentry & "')"
set rs = db.Execute(sql)
%>
|
Ihr Eintrag wurde ins Gästebuch aufgenommen.
zurück
|
<%
end if
else
%>
<%
end if
db.Close
set db=Nothing
set rs=Nothing
%>
|
