<%
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=npa"
N = Request.Form("Name")
If N = "" then
%>
<%
else
Response.write "Danke für Ihren Eintrag in unserem Gästebuch"
E = request.form("Email")
if E = "" then E = "@"
C = Request.Form ("Comment")
U = request.form ("URL")
if U = "" then U = "http://"
Do
I = Instr(C,"'")
If I = 0 then exit do
C = Left(C,I-1) & "`" & Right(C,Len(C)-I)
Loop
SQL = "Insert into kurzfund (name,email,url,info,created, dbkurz) values ('" & N & "','" & E & "','" & U & "','" & C & "',#" & Date & " " & Time & "#,3)"
Connection.Execute (SQL)
end if
response.write ("")
Set RS = Connection.Execute ("Select * from kurzfund where dbkurz = 3 order by created")
while not rs.eof
if (rs("email") <> "@") then
response.write ("" & rs("name") & "")
else
response.write (rs("name"))
end if
response.write (" - " & rs("created"))
if (rs("url") <> "http://") then response.write ("
" & rs("url") & "")
response.write ("" & rs("info") & "
")
rs.movenext
wend
rs.close
connection.close
response.write ""
%>
|