guestbook

Les messages reçus

<% s = request.querystring("s") if len(s)<1 then s = 0 s=s*10 'set con = server.createobject ("ADODB.Connection") ' set rs = server.CreateObject ("ADODB.Recordset") ' con.open "Provider=SQLOLEDB;Server=BALELEC_SRV;Database=BALELEC;uid=IIS;pwd=INTERNET;" ' sql2 = "INSERT INTO Guestbook (name, mail, subject, message, creation)" ' sql2 = sql2 & " VALUES ('" & new_name &"','" & new_mail &"','" & new_homepage &"','" & new_mitteilung &"','" & new_erstellung & "')" ' set rs = con.execute(sql2) ' rs.Close ' con.Close ' set rs=Nothing set db = Server.CreateObject("ADODB.Connection") set rs = server.CreateObject ("ADODB.Recordset") connect= "Provider=SQLOLEDB;Server=BALELEC_SRV;Database=BALELEC;uid=IIS;pwd=INTERNET;" db.Open connect sql = "select count(id) as alleEintraege from Guestbook where creation < '2004-03-15'" set rs = db.Execute(sql) alleEintraege = int(rs("alleEintraege")) nummer = alleEintraege - (s) %>

page:

<%for t = 0 to fix((alleEintraege-1)/10)%> <%if t=(s/10) then%><%end if%><%=t+1%><%if t=(s/10) then%><%end if%> <%next%>

<% sql = "select name, mail, subject, message, creation, id from Guestbook where creation < '2004-03-15' order by id desc" set rs = db.Execute(sql) while not rs.eof count = count +1 if count>s and count<=(s+10) then name = rs("name") mail = rs("mail") homepage = rs("subject") new_mitteilung = rs("message") new_mitteilung=Replace(new_mitteilung, ":)", "

") new_mitteilung=Replace(new_mitteilung, ":(", "

") new_mitteilung=Replace(new_mitteilung, ":D", "

") new_mitteilung=Replace(new_mitteilung, ":o:", "

") new_mitteilung=Replace(new_mitteilung, ";)", "

") new_mitteilung=Replace(new_mitteilung, ":p:", "

") new_mitteilung=Replace(new_mitteilung, ":cry:", "

") new_mitteilung=Replace(new_mitteilung, ":nono:", "

") new_mitteilung=Replace(new_mitteilung, ":sigh:", "

") new_mitteilung=Replace(new_mitteilung, ":shy:", "

") new_mitteilung=Replace(new_mitteilung, ":cool:", "

") new_mitteilung=Replace(new_mitteilung, ":rolleyes:", "

") new_mitteilung=Replace(new_mitteilung, ":mad:", "

") new_mitteilung=Replace(new_mitteilung, ":sleep:", "

") new_mitteilung=Replace(new_mitteilung, ":none:", "

") new_mitteilung=Replace(new_mitteilung, ":confused:", "

") new_mitteilung=Replace(new_mitteilung, ":cheers:", "

") new_mitteilung=Replace(new_mitteilung, "

", "
") erstellung = rs("creation") new_erstellung = kaos_date("%d.%m.%Y à %h:%t",erstellung) 'if len(homepage)>1 then ' if left(homepage,7)<>"http://" then homepage = "http://" & homepage ' homepage = "" & homepage & "" 'end if %>Message de <%if len(mail)>1 then response.write "" & name & "" else if len(name)>1 then response.write name else response.write("") end if end if%>, le <%=new_erstellung%>');">
<% if len(homepage)>1 then %>
<%=homepage%>
<%end if%>
<%=new_mitteilung%>

<% nummer = nummer -1 end if rs.movenext wend db.Close set db=Nothing set rs=Nothing %>

page:

<%for t = 0 to fix((alleEintraege-1)/10)%> <%if t=(s/10) then%><%end if%><%=t+1%><%if t=(s/10) then%><%end if%> <%next%>

<% Dim userAgent userAgent=Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) %>

Laissez un message après le bip sonore

Le guestbook 2003 a été désactivé.

Rendez-vous sur www.balelec.ch
<% if e="mc2" then response.write "Attention
Si vous mettez une adresse e-mail (facultatif), assurez-vous qu'elle soit correcte!
" %>