---
title: "felmeddelande"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/154706-felmeddelande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ridder"
published: "2006-12-09T16:45:15.000Z"
updated: "2006-12-15T19:17:09.000Z"
replies: 15
views: 721
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/154706-felmeddelande"
---

# felmeddelande

## #1 — ridder, 2006-12-09T16:45Z

Hej.
jag får felmeddelande: 
Microsoft VBScript runtime error '800a000d' 
Type mismatch 

/nyclub3/poll.asp, line 29 

Vad menas med detta och vad behöver göras?

//mvh

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

## #2 — @nders, 2006-12-09T16:46Z

Det betyder att det är något fel som är trasigt. 
Om du inte visar koden kan vi inte hjälpa dig mycket mer än så.

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

## #3 — ridder, 2006-12-09T16:51Z

Koden ser ut så här:

\<%Dim strVotedPoll
Set Check = Conn.Execute("SELECT votedPoll From com_users Where active=1 and userid=" & FixaTecken(Session("user_id"))) 
  strVotedPoll = Check(0)
Check.Close:Set Check=Nothing

If Request.Querystring("action") = "" Then%\>
\<table cellpadding="2" cellspacing="0" border="0" width="100%" align="center"\>

\<%Set Fraga=Conn.Execute("SELECT pollid,fraga From com_fraga Order by PollId desc limit 1")
If Fraga.EOF Then%\>
  \<tr\>
    \<td colspan="2"\>\<%=strPoll_NoPost%\>\</td\>
  \</tr\>
\<%Else%\>
  \<tr\>
    \<td colspan="2"\>\<b\>\<%=Fraga(1)%\>\</b\>\</td\>
  \</tr\>
  \<%totalt = Conn.Execute("SELECT sum(klick) From com_svar Where pollID=" & FixaTecken(Fraga(0))).Fields(0)
  SQL1 = "SELECT pollID,klick,svar,id From com_svar Where pollID="& FixaTecken(Fraga(0)) & " Order By svarnr"
  arrRecSet = GetDbRows(SQL1)
  If Not IsArray(arrRecSet) Then%\>
    \<tr\>
      \<td colspan="2"\>\<b\>\<%=strPoll_NoSvar%\>\</b\>\</td\>
    \</tr\>
  \<%Else
    For i = 0 To ubound(arrRecSet,2)
      stat     = arrRecSet(1,i)
      If stat \<\> 0 Then
        res      = (stat/totalt)\* 100
      Else
        res = "0"
      End If
      If Int(strVotedPoll) = Int(Fraga(0)) Then%\>
        \<tr\>
          \<td width="82%"\>\<%=arrRecSet(2,i)%\> (\<%=stat%\>)\</td\>
          \<td rowspan="2" width="18%" valign="bottom" align="right"\>\<%=Round(res,0)%\>%\</td\>
        \</tr\>
        \<tr\>
          \<td bgcolor="\<%=sidBG%\>" height="5"\>\<img src="gfx/stapel.gif" width="\<%=Round(res,0)%\>%" height="5" border="1"\>\</td\>
        \</tr\>
      \<%Else%\>
        \<tr\>
          \<td width="82%"\>\<a href="default.asp?action=vote&svarID=\<%=arrRecSet(3,i)%\>&pollId=\<%=Fraga(0)%\>" class="vit"\>\<%=arrRecSet(2,i)%\>\</a\> (\<%=stat%\>)\</td\>
          \<td rowspan="2" width="18%" valign="bottom" align="right"\>\<%=Round(res,0)%\>%\</td\>
        \</tr\>
        \<tr\>
          \<td bgcolor="\<%=sidBG%\>" height="5"\>\<img src="gfx/stapel.gif" width="\<%=Round(res,0)%\>%" height="5" border="1"\>\</td\>
        \</tr\>
      \<%End If
    Next%\>
    \<tr\>
      \<td\>\<br\>\<%=strPoll_Rost%\>: \<%For i=1 to Len(totalt)%\>\<%=Mid(totalt,i,1)%\>\<%Next%\>\</td\>
      \<td align="right"\>\<br\>\<a href="old_poll.asp"\>\<%=strPoll_Aldre%\>\</a\>\</td\>
    \</tr\>
  \<%End If
End If%\>
\</table\>

\<%ElseIf Request.Querystring("action") = "vote" Then
  If Int(strVotedPoll) = Int(Request.Querystring("pollId")) Then
    'Conn.Close:Set Conn=Nothing
    Response.Write "\<script language=Javascript\>"
    Response.Write "self.location.href='default.asp';"
    Response.Write "\</script\>"
  Else
    'Conn.Close:Set Conn=Nothing
    Response.Redirect "default.asp?action=saveVote&svarID=" & Request.QueryString("svarID") & "&pollId=" & Request.Querystring("pollId")
  End If

ELseIf Request.Querystring("action") = "saveVote" Then
  Conn.Execute("Update com_svar Set klick=klick+1 Where id=" & FixaTecken(Request.QueryString("svarID")))
  Conn.Execute("Update com_users Set votedPoll=" & FixaTecken(Request.Querystring("pollId")) & " Where userid=" & FixaTecken(Session("user_id")))

  'Conn.Close:Set Conn=Nothing
  Response.Write "\<script language=Javascript\>"
  Response.Write "self.location.href='default.asp';"
  Response.Write "\</script\>"
End If%\>

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

## #4 — @nders, 2006-12-09T16:52Z

Iiih, snälla, lägg koden mellan \[kod\] och \[/ kod\] (utan mellanslag), så den går att läsa, och markera vilken rad det blir fel på.

Edit: Antagligen stavas dock felet subtypskonvertering. Använd Clng() eller Cdbl() (beroende på om det är hel- eller decimaltal) på de tal du försöker räkna med. Det är inte bra att försöka dela strängar med varandra.

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

## #5 — ridder, 2006-12-09T17:00Z

Sorry.. vet inte om jag fick till det bättre nu heller. Markerade iaf med rött. (rad 19).

```
<%Dim strVotedPoll
Set Check = Conn.Execute("SELECT votedPoll From com_users Where active=1 and userid=" & FixaTecken(Session("user_id"))) 
  strVotedPoll = Check(0)
Check.Close:Set Check=Nothing

If Request.Querystring("action") = "" Then%>
<table cellpadding="2" cellspacing="0" border="0" width="100%" align="center">

<%Set Fraga=Conn.Execute("SELECT pollid,fraga From com_fraga Order by PollId desc limit 1")
If Fraga.EOF Then%>
  <tr>
    <td colspan="2"><%=strPoll_NoPost%></td>
  </tr>
<%Else%>
  <tr>
    <td colspan="2"><b><%=Fraga(1)%></b></td>
  </tr>
  <%totalt = Conn.Execute("SELECT sum(klick) From com_svar Where pollID=" & FixaTecken(Fraga(0))).Fields(0)
  [red]SQL1 = "SELECT pollID,klick,svar,id From com_svar Where pollID="& FixaTecken(Fraga(0)) & " Order By svarnr"[/red]
  arrRecSet = GetDbRows(SQL1)
  If Not IsArray(arrRecSet) Then%>
    <tr>
      <td colspan="2"><b><%=strPoll_NoSvar%></b></td>
    </tr>
  <%Else
    For i = 0 To ubound(arrRecSet,2)
      stat     = arrRecSet(1,i)
      If stat <> 0 Then
        res      = (stat/totalt)* 100
      Else
        res = "0"
      End If
      If Int(strVotedPoll) = Int(Fraga(0)) Then%>
        <tr>
          <td width="82%"><%=arrRecSet(2,i)%> (<%=stat%>)</td>
          <td rowspan="2" width="18%" valign="bottom" align="right"><%=Round(res,0)%>%</td>
        </tr>
        <tr>
          <td bgcolor="<%=sidBG%>" height="5"><img src="gfx/stapel.gif" width="<%=Round(res,0)%>%" height="5" border="1"></td>
        </tr>
      <%Else%>
        <tr>
          <td width="82%"><a href="default.asp?action=vote&svarID=<%=arrRecSet(3,i)%>&pollId=<%=Fraga(0)%>" class="vit"><%=arrRecSet(2,i)%></a> (<%=stat%>)</td>
          <td rowspan="2" width="18%" valign="bottom" align="right"><%=Round(res,0)%>%</td>
        </tr>
        <tr>
          <td bgcolor="<%=sidBG%>" height="5"><img src="gfx/stapel.gif" width="<%=Round(res,0)%>%" height="5" border="1"></td>
        </tr>
      <%End If
    Next%>
    <tr>
      <td><br><%=strPoll_Rost%>: <%For i=1 to Len(totalt)%><%=Mid(totalt,i,1)%><%Next%></td>
      <td align="right"><br><a href="old_poll.asp"><%=strPoll_Aldre%></a></td>
    </tr>
  <%End If
End If%>
</table>

<%ElseIf Request.Querystring("action") = "vote" Then
  If Int(strVotedPoll) = Int(Request.Querystring("pollId")) Then
    'Conn.Close:Set Conn=Nothing
    Response.Write "<script language=Javascript>"
    Response.Write "self.location.href='default.asp';"
    Response.Write "</script>"
  Else
    'Conn.Close:Set Conn=Nothing
    Response.Redirect "default.asp?action=saveVote&svarID=" & Request.QueryString("svarID") & "&pollId=" & Request.Querystring("pollId")
  End If

ELseIf Request.Querystring("action") = "saveVote" Then
  Conn.Execute("Update com_svar Set klick=klick+1 Where id=" & FixaTecken(Request.QueryString("svarID")))
  Conn.Execute("Update com_users Set votedPoll=" & FixaTecken(Request.Querystring("pollId")) & " Where userid=" & FixaTecken(Session("user_id")))

  'Conn.Close:Set Conn=Nothing
  Response.Write "<script language=Javascript>"
  Response.Write "self.location.href='default.asp';"
  Response.Write "</script>"
End If%>
```

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

## #6 — ridder, 2006-12-09T17:02Z

sorry.. rad 29 va det ju.

```
<%Dim strVotedPoll
Set Check = Conn.Execute("SELECT votedPoll From com_users Where active=1 and userid=" & FixaTecken(Session("user_id"))) 
  strVotedPoll = Check(0)
Check.Close:Set Check=Nothing

If Request.Querystring("action") = "" Then%>
<table cellpadding="2" cellspacing="0" border="0" width="100%" align="center">

<%Set Fraga=Conn.Execute("SELECT pollid,fraga From com_fraga Order by PollId desc limit 1")
If Fraga.EOF Then%>
  <tr>
    <td colspan="2"><%=strPoll_NoPost%></td>
  </tr>
<%Else%>
  <tr>
    <td colspan="2"><b><%=Fraga(1)%></b></td>
  </tr>
  <%totalt = Conn.Execute("SELECT sum(klick) From com_svar Where pollID=" & FixaTecken(Fraga(0))).Fields(0)
  SQL1 = "SELECT pollID,klick,svar,id From com_svar Where pollID="& FixaTecken(Fraga(0)) & " Order By svarnr"
  arrRecSet = GetDbRows(SQL1)
  If Not IsArray(arrRecSet) Then%>
    <tr>
      <td colspan="2"><b><%=strPoll_NoSvar%></b></td>
    </tr>
  <%Else
    For i = 0 To ubound(arrRecSet,2)
      stat     = arrRecSet(1,i)
      If stat <> 0 Then
 [blue]       res      = (stat/totalt)* 100[/blue]
      Else
        res = "0"
      End If
      If Int(strVotedPoll) = Int(Fraga(0)) Then%>
        <tr>
          <td width="82%"><%=arrRecSet(2,i)%> (<%=stat%>)</td>
          <td rowspan="2" width="18%" valign="bottom" align="right"><%=Round(res,0)%>%</td>
        </tr>
        <tr>
          <td bgcolor="<%=sidBG%>" height="5"><img src="gfx/stapel.gif" width="<%=Round(res,0)%>%" height="5" border="1"></td>
        </tr>
      <%Else%>
        <tr>
          <td width="82%"><a href="default.asp?action=vote&svarID=<%=arrRecSet(3,i)%>&pollId=<%=Fraga(0)%>" class="vit"><%=arrRecSet(2,i)%></a> (<%=stat%>)</td>
          <td rowspan="2" width="18%" valign="bottom" align="right"><%=Round(res,0)%>%</td>
        </tr>
        <tr>
          <td bgcolor="<%=sidBG%>" height="5"><img src="gfx/stapel.gif" width="<%=Round(res,0)%>%" height="5" border="1"></td>
        </tr>
      <%End If
    Next%>
    <tr>
      <td><br><%=strPoll_Rost%>: <%For i=1 to Len(totalt)%><%=Mid(totalt,i,1)%><%Next%></td>
      <td align="right"><br><a href="old_poll.asp"><%=strPoll_Aldre%></a></td>
    </tr>
  <%End If
End If%>
</table>

<%ElseIf Request.Querystring("action") = "vote" Then
  If Int(strVotedPoll) = Int(Request.Querystring("pollId")) Then
    'Conn.Close:Set Conn=Nothing
    Response.Write "<script language=Javascript>"
    Response.Write "self.location.href='default.asp';"
    Response.Write "</script>"
  Else
    'Conn.Close:Set Conn=Nothing
    Response.Redirect "default.asp?action=saveVote&svarID=" & Request.QueryString("svarID") & "&pollId=" & Request.Querystring("pollId")
  End If

ELseIf Request.Querystring("action") = "saveVote" Then
  Conn.Execute("Update com_svar Set klick=klick+1 Where id=" & FixaTecken(Request.QueryString("svarID")))
  Conn.Execute("Update com_users Set votedPoll=" & FixaTecken(Request.Querystring("pollId")) & " Where userid=" & FixaTecken(Session("user_id")))

  'Conn.Close:Set Conn=Nothing
  Response.Write "<script language=Javascript>"
  Response.Write "self.location.href='default.asp';"
  Response.Write "</script>"
End If%>
```

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

## #7 — @nders, 2006-12-09T17:05Z

Ok: 

> **@nders skrev:**
>
> Edit: Antagligen stavas dock felet subtypskonvertering. Använd Clng() eller Cdbl() (beroende på om det är hel- eller decimaltal) på de tal du försöker räkna med. Det är inte bra att försöka dela strängar med varandra.

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

## #8 — ridder, 2006-12-09T17:08Z

tack för din snabba hjälp.
Är dock inte själv så duktigt på asp så vart skall jag sätta in dessa?

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

## #9 — @nders, 2006-12-09T17:09Z

```
        res      = (Clng(stat)/Clng(totalt))* 100
```

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

## #10 — ridder, 2006-12-09T17:11Z

Tack ska du ha! fungerar nu!

Härligt med folk som vill hjälpa till.

Mvh

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

## #11 — @nders, 2006-12-09T17:12Z

> Härligt med folk som vill hjälpa till.

Yes, det är det vi är här för. :bire

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

## #12 — ridder, 2006-12-09T17:25Z

hmm.. du. När jag nu skall kolla "äldre" frågor på omröstningne får jag:

Microsoft VBScript runtime error '800a000d' 
Type mismatch 

/nyclub3/old_poll.asp, line 56 

(Har markerat rad 56.)

```
<%Dim strVotedPoll
Set Check = Conn.Execute("SELECT votedPoll From com_users Where active=1 and userid=" & FixaTecken(Session("user_id"))) 
  strVotedPoll = Check(0)
Check.Close:Set Check=Nothing

If Request.Querystring("action") = "" Then%>
<table cellpadding="2" cellspacing="0" border="0" width="100%" align="center">

<%Set Fraga=Conn.Execute("SELECT pollid,fraga From com_fraga Order by PollId desc limit 1")
If Fraga.EOF Then%>
  <tr>
    <td colspan="2"><%=strPoll_NoPost%></td>
  </tr>
<%Else%>
  <tr>
    <td colspan="2"><b><%=Fraga(1)%></b></td>
  </tr>
  <%totalt = Conn.Execute("SELECT sum(klick) From com_svar Where pollID=" & FixaTecken(Fraga(0))).Fields(0)
  SQL1 = "SELECT pollID,klick,svar,id From com_svar Where pollID="& FixaTecken(Fraga(0)) & " Order By svarnr"
  arrRecSet = GetDbRows(SQL1)
  If Not IsArray(arrRecSet) Then%>
    <tr>
      <td colspan="2"><b><%=strPoll_NoSvar%></b></td>
    </tr>
  <%Else
    For i = 0 To ubound(arrRecSet,2)
      stat     = arrRecSet(1,i)
      If stat <> 0 Then
        res      = (Clng(stat)/Clng(totalt))* 100
      Else
        res = "0"
      End If
      If Int(strVotedPoll) = Int(Fraga(0)) Then%>
        <tr>
          <td width="82%"><%=arrRecSet(2,i)%> (<%=stat%>)</td>
          <td rowspan="2" width="18%" valign="bottom" align="right"><%=Round(res,0)%>%</td>
        </tr>
        <tr>
          <td bgcolor="<%=sidBG%>" height="5"><img src="gfx/stapel.gif" width="<%=Round(res,0)%>%" height="5" border="1"></td>
        </tr>
      <%Else%>
        <tr>
          <td width="82%"><a href="default.asp?action=vote&svarID=<%=arrRecSet(3,i)%>&pollId=<%=Fraga(0)%>" class="vit"><%=arrRecSet(2,i)%></a> (<%=stat%>)</td>
          <td rowspan="2" width="18%" valign="bottom" align="right"><%=Round(res,0)%>%</td>
        </tr>
        <tr>
          <td bgcolor="<%=sidBG%>" height="5"><img src="gfx/stapel.gif" width="<%=Round(res,0)%>%" height="5" border="1"></td>
        </tr>
      <%End If
    Next%>
    <tr>
      <td><br><%=strPoll_Rost%>: <%For i=1 to Len(totalt)%><%=Mid(totalt,i,1)%><%Next%></td>
      <td align="right"><br><a href="old_poll.asp"><%=strPoll_Aldre%></a></td>
    </tr>
  <%End If
[red]End If%>[/red]
</table>

<%ElseIf Request.Querystring("action") = "vote" Then
  If Int(strVotedPoll) = Int(Request.Querystring("pollId")) Then
    'Conn.Close:Set Conn=Nothing
    Response.Write "<script language=Javascript>"
    Response.Write "self.location.href='default.asp';"
    Response.Write "</script>"
  Else
    'Conn.Close:Set Conn=Nothing
    Response.Redirect "default.asp?action=saveVote&svarID=" & Request.QueryString("svarID") & "&pollId=" & Request.Querystring("pollId")
  End If

ELseIf Request.Querystring("action") = "saveVote" Then
  Conn.Execute("Update com_svar Set klick=klick+1 Where id=" & FixaTecken(Request.QueryString("svarID")))
  Conn.Execute("Update com_users Set votedPoll=" & FixaTecken(Request.Querystring("pollId")) & " Where userid=" & FixaTecken(Session("user_id")))

  'Conn.Close:Set Conn=Nothing
  Response.Write "<script language=Javascript>"
  Response.Write "self.location.href='default.asp';"
  Response.Write "</script>"
End If%>
```

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

## #13 — J.N., 2006-12-11T09:19Z

HEJ!

Några lösa trådar att nysta i för att komma vidare:

\- får du någon text utskriven på sidan, dvs fungerar vissa röstningar?
\- skiljer sig de äldre röstningarna på något sätt mot de nyare?

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

## #14 — @nders, 2006-12-11T09:22Z

J.N., detta problem är löst. <http://www.webforum.nu/showthread.php?t=151221>

Tips till trådskaparen: posta inte samma problem på flera ställen, samt använd funktionen "Acceptera som slutgiltigt svar".

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

## #15 — J.N., 2006-12-11T09:30Z

> **@nders skrev:**
>
> J.N., detta problem är löst.<http://www.webforum.nu/showthread.php?t=151221>

Jepp, såg det när jag fortsatte uppåt i forumet.

> **@nders skrev:**
>
> Tips till trådskaparen: posta inte samma problem på flera ställen, samt använd funktionen "Acceptera som slutgiltigt svar".

Två alldeles utmärkta tips, där det andra tydligen måste upprepas i all oändlighet. :l

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

## #16 — medialabs, 2006-12-15T19:17Z

> **@nders skrev:**
>
> ```
>         [B]Clng([/B]uträkning)
> ```

**TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK! TACK!**    

  :) 

Min webbassistent på sidan mådde inge vidare och vägrade svara på frågor. Alltid något som ska krångla som fungerat tidigare. Googlade och googlade, men ditt inlägg löste biffen.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/154706-felmeddelande