% ' Sektion 1 - Sätt upp förbindelsen med databasen Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnString StrSQL1="select * from info" Set objRS = Conn.Execute(StrSQL1) header=objRS("title") del=objRS("namn") objRS.close set objRS=nothing %>
Namn | " response.write "||||||||||
" & pos &". | " & objRS2("fornamn") &" " & objRS2("efternamn") &", " & objRS2("ort") & " | " if artantal=objRS2("tipset") then response.write "" & objRS2("tipset") &" | " else if artantal>objRS2("tipset") then response.write "#### | " else response.write "" & objRS2("tipset") &" | " end if end if response.write "" & objRS2("antalx") &" | " & objRS2("artnamn") &" | " if date()=objRS2("datum") or date()-1=objRS2("datum") then response.write "" & objRS2("datum") & " | " else response.write " | " & objRS2("datum") & " | " end if %> " target="luckor" onclick="w=window.open('', 'luckor', 'width=240,height=440,toolbar=0,location=0,directories=0,status=0,menubar=0,resizable=1,scrollbars=1');">Visa |