hvad er min fejl???!?
jeg sætter lige mine koder ind. Fatter så lidt hvorfor de ik virker.<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Clansite</title>
<style>
.lstreg {
border-style: solid;
border-top-width: 0px;
border-left-width: 1px;
border-bottom-width: 0px;
border-right-width: 0px;
width: 1;
}
.vbtstreg {
border-style: solid;
border-top-width: 1px;
border-left-width: 0px;
border-bottom-width: 1px;
border-right-width: 0px;
width: 100%;
}
a {text-decoration: none;}
</style>
<base target="_self">
</head>
<body bgcolor="#0066CC">
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="1%"><div class="lstreg" style="height: 100%; width: 1">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>
</div>
</td>
<td width="99%">
<table border="0" width="100%">
<tr>
<td width="100%"><font size="2"><b> Latest news:</b></font></td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
<tr>
<td width="100%"> <font size="2"><b>Latest result:</b><br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DB/wars.mdb")
Conn.Open DSN
strSQL = "Select TOP 2 * From wars Order by Id Desc"
Set rs = Conn.Execute(strSQL)
Do Until rs.EOF
If (Cint(rs("os1") + rs("os2") + rs("os3") + rs("os4"))) > 24 Then
Response.Write "<font size='2' color='#008000'>Os vs " & Rs("modstander") & "<br>" & (Cint(rs("os1") + rs("os2") + rs("os3") + rs("os4"))) & " - " & (Cint(rs("dem1") + rs("dem2") + rs("dem3") + rs("dem4"))) & "<p>"
Else If (Cint(rs("os1") + rs("os2") + rs("os3") + rs("os4"))) = 24 Then
Response.Write "<font size='2' color='#0000FF'>Os vs " & Rs("modstander") & "<br>" & (Cint(rs("os1") + rs("os2") + rs("os3") + rs("os4"))) & " - " & (Cint(rs("dem1") + rs("dem2") + rs("dem3") + rs("dem4"))) & "<p>"
Else
Response.Write "<font size='2' color='#FF0000'>Os vs " & Rs("modstander") & "<br>" & (Cint(rs("os1") + rs("os2") + rs("os3") + rs("os4"))) & " - " & (Cint(rs("dem1") + rs("dem2") + rs("dem3") + rs("dem4"))) & "<p>"
End If
rs.MoveNext
loop
Set rs = Nothing
Set strSQL = Nothing
Conn.Close
Set Conn = Nothing
%></font></td>
</tr>
</table>
<p>
</div>
</td>
</tr>
</table>
</body>
</html>
