Ins Gästebuch eintragen
 		  
     
   


<% Set zConnect = Server.CreateObject("ADODB.Connection") zConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("dbase1/daten.mdb") sql="SELECT * FROM gaestebuch WHERE freigeschaltet=TRUE ORDER BY IDeintrag DESC" set rsG=zConnect.execute(sql) if not rsG.eof then rsG.MoveFirst else response.write "

Kein Eintrag vorhanden

" end if do while not rsG.eof %>
<%=rsG.fields("eintrag")%> 
<%=server.HTMLEncode(rsG.fields("Name"))%><%if len(rsG.fields("Adresse"))>2 then%>, <%end if%><%=server.HTMLEncode(rsG.fields("Adresse"))%><%if len(rsG.fields("plz"))>3 OR len(rsG.fields("Ort"))>2 then%>, <%end if%><%=server.HTMLEncode(rsG.fields("plz"))%> <%=server.HTMLEncode(rsG.fields("Ort"))%>
" class="gaestebuch"><%=server.HTMLEncode(rsG.fields("email"))%>   " target="_blank" class="gaestebuch"><%=server.HTMLEncode(rsG.fields("homepage"))%>

<%rsG.MoveNext loop%>