---
title: "ursäkta..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51219-ursäkta"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2002-08-25T10:40:43.000Z"
updated: "2002-08-25T17:40:33.000Z"
replies: 5
views: 297
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/51219-ursäkta"
---

# ursäkta...

## #1 — CatZ, 2002-08-25T10:40Z

Feltyp:
Response-objekt, ASP 0106 (0x80020005)
En ohanterad datatyp påträffades.
/test/TMP726a51ebhy.asp

Vad betyder det ? Var ska jag börja leta ? :e

Permalänk: https://www.webforum.nu/p/51219

## #2 — OveRRidE, 2002-08-25T11:08Z

Kod?

Permalänk: https://www.webforum.nu/p/762533

## #3 — CatZ, 2002-08-25T11:22Z

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

Permalänk: https://www.webforum.nu/p/762538

## #4 — CatZ, 2002-08-25T11:22Z

```
<!--#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
	%>
```

Permalänk: https://www.webforum.nu/p/762539

## #5 — Nickemannen, 2002-08-25T12:02Z

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

Permalänk: https://www.webforum.nu/p/762550

## #6 — Denniz PoP, 2002-08-25T17:40Z

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

betyder iaf felmeddelande ASP 0106...

Permalänk: https://www.webforum.nu/p/762708

---

Tråden på webben: https://www.webforum.nu/amne/asp/51219-ursäkta