function Spil(spilid)
font = "<font size='2' face='Verdana'>"
faktor = 1
barcolor = "#FF0000"
Set RsVote = Server.CreateObject("ADODB.Connection")
RsVote.Open "DRIVER={MySQL}; server=*******; database=******; uid=*******; ********;"
Sql = "Select * from spil1 where spilid = " & spilid & " order by bane"
Set rs = RsVote.Execute(Sql)
If Not rs.EOF then
response.write "<title>" & rs("spilnavn") & "</title>"
response.write "</head>"
response.write "<body bgproperties='fixed' background='generals/gen.jpg' link='#000000' vlink='#000000' alink='#000000'>"
response.write "<div align='center'>"
response.write "<center>"
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#5D9AEF' width='430' id='AutoNumber4'>"
response.write "<tr>"
response.write "<td align='center' valign='top'>"
response.write "<table border='0' cellpadding='0' cellspacing='5' style='border-collapse: collapse' bordercolor='#5D9AEF' width='100%' id='AutoNumber6'>"
response.write "<tr>"
response.write "<td width='100%' valign='top'>"
response.write "<table border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#5D9AEF' width='100%' id='AutoNumber7'>"
response.write "<tr>"
response.write "<td align='center' width='100%'>"
response.write "<b><font size='2' color='#FFFFFF'>" & rs("spilnavn") & "</font><br>"
response.write "<font color='#FFFFFF' size='1'>Denne side er fortalt og udarbejdet af <a href='mailto:alex@bigk.dk?subject=bigk.dk^Command and Counquer Generals'>Alex Ram-Pedersen</a></font></b></td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
do While Not rs.EOF
response.write "<tr>"
response.write "<td width='100%' valign='top'>"
response.write "<table border='1' cellpadding='5' cellspacing='0' style='border-collapse: collapse' bordercolor='#5D9AEF' width='420' id='AutoNumber8'>"
response.write "<tr>"
response.write "<td align='center' width='100%' colspan='2'>"
response.write "<b><font size='2' color='#FFFFFF'>" & rs("bane") & "</font></b></td>"
response.write "</tr>"
do While rs = rs("bane")
response.write "<tr>"
response.write "<td width='300' valign='top'><font size='2'><b>"
response.write "Image1:</b> Det første man skal "
response.write "sørge for er at samle så mange mænd man kan og så gå op mod "
response.write "dem med alt.</font><p> </p>"
response.write "<p><font size='2'><b>Image2:</b>"
response.write "Husk</font></td>"
response.write "<td width='120' valign='top' align='center'>"
response.write "<a target='_blank' href='generals/sshot014.jpg'><img border='0' src='generals/sshot014.jpg' width='110' height='81'></a><br><br>"
response.write "<a target='_blank' href='generals/sshot014.jpg'><img border='0' src='generals/sshot014.jpg' width='110' height='81'></a></td>"
response.write "</tr>"
rs.MoveNext
Loop
response.write "</table>"
response.write "</td>"
response.write "</tr>"
rs.MoveNext
Loop
else
response.write font & "Id findes ikke!!!"
end if
end function
%>
er det som jeg har lejet lidt med men det driller
