<% if request.querystring("sprak")="swe" then response.write "Filer" %><% if request.querystring("sprak")="eng" then response.write "Files" %>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/data.mdb")
%>
|
<% if request.querystring("sprak")="swe" then response.write "Fil" %><% if request.querystring("sprak")="eng" then response.write "File" %>
|
<%
SQL = "SELECT * FROM Filer WHERE TävlingsID = " & request.querystring("tavlingsID") & " ORDER BY ID"
Set rsFiler = db.Execute(SQL)
if not rsFiler.EOF then
do
%>
|
"><% =rsFiler("Namn") %>
|
<%
rsFiler.movenext
loop until rsFiler.eof
else
%>
|
<% if request.querystring("sprak")="swe" then response.write "Det finns inga filer ännu." %><% if request.querystring("sprak")="eng" then response.write "There are no files yet." %>
|
<%
end if
rsFiler.close
db.close
%>
|