ursäkta...

Kod?

HAHA om jag postar all den koden så flyr alla sin kos :) men jag har redan löst det... fast det fungerar inte så bra än hehe

<!--#include file="konfig.asp" -->
<%
dim lagen
dim sql, rs
n = antallag()
redim lagen(n - 1)

   i = 0
   sql = "select * from dnLag order by distrikt"
   set rs = dbCom.Execute(sql)
   if not (rs.BOF and rs.EOF) then
     do while not rs.EOF
       set lagen(i) = new lagObj
       lagen(i).setData(rs.Fields("lagID").Value)
       i = i + 1
       rs.MoveNext
     loop
   end if
%>
<table>
<% div = 0
   alt = false
   for i = 0 to UBound(lagen)
     if div <> lagen(i).distrikt then
       n = 0
       div = lagen(i).distrikt
       alt = false %>
 %>
	<tr>
		<td>Lag</td>
		<td>Totalt</td>
	</tr>
<%   end if
     if not alt then %>
<tr align="right">
<%   else %>
<tr align="right" class="alt">
<%   end if
     alt = not alt %>
  <td align="left">
	<tr>
		<td>
			<a href="test.asp?id=<% = lagen(i).id %>"><% = "<b>" & lagen(i).lagnamn & "</b>" %></a>%>
		</td>
		<td>
			<%= lagen(i).ResTotal%>
		</td>
	</tr>
<%next%>
</table>

<%
'-----------------------------------------------------
'Räkna ut antal lag
'-----------------------------------------------------

	function antallag()

     dim sql, rs

     antallag = 0
     sql = "select count(lagID) as totalt from dnLag"
     set rs = dbCom.Execute(sql)
     if not (rs.BOF and rs.EOF) then
       antallag = rs.Fields("totalt").Value
     end if

   end function

'-----------------------------------------------------
' lagObjektet som håller all info om lagen
'-----------------------------------------------------
		Class lagObj
	
			Public id, lagNamn, distrikt
			
			Public resTotal
			
			private sub Class_Initialize()
			totalt = 0
			end sub

     		private sub Class_Terminate()
     		end sub
			
			public sub setData(lagID)
			dim sql, rs
			
			id = lagID
			
			'-----------------------------------------------------
			' hämta lagID, lagNamn
			'-----------------------------------------------------
			sql = "select * from dnLag where lagID = " & lagID & ""
       		set rs = dbCom.Execute(sql)
       			if not (rs.BOF and rs.EOF) then
       			distrikt = rs.Fields("distrikt").Value
   				lagNamn = rs.Fields("lagNamn").Value
       			end if
			
			'-----------------------------------------------------
			' hämta poängen
			'-----------------------------------------------------
			sql = "select * from dnLag, dnMatcher" _
          	& " where Resultat <> ''" _
          	& " and" _
          	& " ((bortalagID = " & lagID & " and lagID = hemmalagID)" _
         	& "  or" _
          	& "  (hemmalagID    = " & lagID & " and lagID = bortalagID))" _
          	& " order by dnMatcher.Omg"
       		set rs = dbCom.Execute(sql)
			
			'-----------------------------------------------------
			' lägg ihop den totala poängen
			'-----------------------------------------------------
			
		   	if rs.Fields("hemmalagID").Value = lagID then
             resTotal = resTotal + rs.Fields("hemmalagVP").Value
           	else
             resTotal = resTotal + rs.Fields("bortalagVP").Value
           	end if	
			
			End Sub	
		End Class
	%>

ja det var ju en del <% %>, vilken rad ligger felet på ?

"Type Mismatch (Inkompatibla typer). En datatyp som inte kan hanteras påträffades."

betyder iaf felmeddelande ASP 0106...