Här ser du dom som redan hörsammat vår kallan:

<%PrintList%>

Namn	Klubb	Scootermodell	Meddelande

« Tillbaka till förstasidan
<% Sub PrintList Dim conn, rs Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={MySQL};SERVER=localhost;DATABASE=d2594_1;UID=d2594;PWD=Lo72go58;" Set rs = conn.Execute("SELECT * FROM tbl_applications") Do while not rs.eof Response.Write "" Response.Write "" & rs("tapl_name") & "" Response.Write "" & rs("tapl_club") & "" Response.Write "" & rs("tapl_scooter") & "" Response.Write "" & rs("tapl_shout") & "" Response.Write "" rs.movenext loop conn.Close Set conn = Nothing End Sub %>