<% Dim conn conn="DRIVER=MySQL;SERVER=plato.digiweb.at;" & _ "UID=mgdesieg;PWD=tn42ma;DATABASE=mgdesieg;" set objConn = Server.CreateObject("ADODB.Connection") objConn.Open conn set rs = Server.CreateObject("ADODB.recordset") rs.Open "Select id, Datum, Monat, Uhrzeit, Veranstaltung, ort, wer, link, Beschreibung from veranstaltung where Monat = '5' order by Datum_lang ASC", conn %>
Datum
Veranstaltung
<%do until rs.EOF%>
<%Response.Write(rs.Fields("Datum").Value & ".")%>
<%Response.Write("
" & "
" & rs.Fields("Veranstaltung").Value & "
" & "
" & "
" & rs.Fields("ort").Value & ", " & rs.Fields("Uhrzeit").Value & "
" & rs.Fields("wer").Value)%>
<%rs.MoveNext%> <%loop rs.close objConn.close %>