Suomen Miekkailuliitto .. Finlands Fäktförbund .. Finnish Fencing Association
ETUSIVU MIEKKAILULIITTO MIEKKAILU SEURAT KALENTERI TULOSPÖRSSI UUTTA LINKIT
RANKING
TULOSPÖRSSI ( => UUSI SIVU KILPAILUKUTSUJA) <% Response.Buffer = True ' Connection String Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("FileDB.mdb") %> <% ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [ID],[File Name],[File Size],[Content Type],[First Name]," & _ "[Last Name],[Profession], [Aika] from Files order by [Aika] desc", connStr, 3, 4 If Not rs.EOF Then Response.Write "" While Not rs.EOF Response.Write "" rs.MoveNext Wend Else Response.Write "No Record found" End If rs.Close Set rs = Nothing %> " Response.Write "Arkistossa on " & rs.RecordCount Response.Write " tiedostoa " Response.Write " " ' Response.Write rs("FileID") & " " ' Response.Write rs("ID") & " " Response.Write "" Response.Write rs("File Name") & " " ' Response.Write rs("File Size") & " " ' Response.Write rs("Content Type") & " " Response.Write rs("First Name") & " " Response.Write rs("Last Name") & " " Response.Write rs("profession") Response.Write "
:info@miekkailuliitto.fi	DreamDimensions