Vegger DreamTeam
Indoor football guru's
Forside
Kampe
Spillere
Debatforum
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("vegger.mdb") Conn.Open DSN strSQL = "Select * from nyheder order by id desc" Set rs = Conn.Execute(strSQL) if rs.eof then response.write "Der er ingen kampe!" else Do Response.write "" & rs("overskrift") & "
" & rs("tekst") & "

" rs.MoveNext Loop While Not rs.EOF end if Conn.Close Set Conn = Nothing %>

Kampprogram
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("vegger.mdb") Conn.Open DSN strSQL = "Select * from kampeude order by id asc" Set rs = Conn.Execute(strSQL) if rs.eof then response.write "Der er ingen kampe!" else Do Response.write "" rs.MoveNext Loop While Not rs.EOF end if %>
DatoTidHalResultat
" & rs("dato") & "" & rs("tid") & "" & rs("hjemmehold") & "-" & rs("udehold") & "" & rs("bane") & "" & rs("hjemmescore") & " - " & rs("udescore") & "

<% strSQL = "Select * from topscore order by score desc" Set rs = Conn.Execute(strSQL) if rs.eof then response.write "Der er ingen kampe!" else Do Response.write "" rs.MoveNext Loop While Not rs.EOF end if Conn.Close Set Conn = Nothing %>
Topscorere
SpillerKampeMål
" & rs("spiller") & "" & rs("kampe") & "" & rs("score") & "
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000
00000000 Det var kampprogrammet for nu... Der kommer selvfølgelig mere her på siden senere... så følg med!
Cheers
'Direktøren'
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000