---
title: "Anropa en sub?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/47416-anropa-en-sub"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Poppe25"
published: "2002-07-07T10:25:03.000Z"
updated: "2005-10-01T11:32:05.000Z"
replies: 11
views: 303
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/47416-anropa-en-sub"
---

# Anropa en sub?

## #1 — Poppe25, 2002-07-07T10:25Z

Har laddat ner ett Poll-script från forum, men lyckas inte anropa det.  

 Till main inkuderar man en sida som innehåller en sub - 

               Sub ThePoll(SelectPoll)
                       ' databasuppkoppling,     
                       ' utskrift i tabeller 
               End Sub

 Någon som vet hur och var jag ska anropa ThePoll? 

 Har testat lite olika varianter, men inget funkar.

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

## #2 — OlleBoop, 2002-07-07T10:41Z

Generellt anropar du en Sub med Call Namnpåsub(argument)
Vad är SelectPoll? Namn på pollen?

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

## #3 — Poppe25, 2002-07-07T10:44Z

SelectPoll är namnet som ligger i en tabell, ex "Huvudsida.asp". Fråga mig inte varför den heter " .asp ", det står bara så. Men var gör man anropet i koden ngnstans då? Är suben samma som en funktion?

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

## #4 — Poppe25, 2002-07-07T10:47Z

När jag skriver följande kod: 

  \<BODY\>
  \<% Call ThePoll("Huvudsida.asp")%\>
  \</BODY\>

får jag följande felmeddelande:

 Microsoft VBScript runtime (0x800A000D)
 Type mismatch: 'ThePoll'
 /poll/Main.asp, line 9

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

## #5 — @nders, 2002-07-07T11:39Z

Utan kod kan vi inte hjälpa dig.

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

## #6 — Poppe25, 2002-07-07T11:43Z

Anropet:

\<%@ Language=VBScript %\>
\<!--include file ="Poll/Poll.asp"--\>
\<HTML\>
\<HEAD\>
\<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"\>
\</HEAD\>
\<BODY\>

\<% 
	Call ThePoll("Huvudsida.asp")
%\>

\</BODY\>
\</HTML\>

Poll.asp:

\<%@ Language=VBScript %\>
\<!--include file ="Poll/Poll.asp"--\>
\<HTML\>
\<HEAD\>
\<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"\>
\</HEAD\>
\<BODY\>

\<% 
	Call ThePoll("Huvudsida.asp")
%\>

\</BODY\>
\</HTML\>

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

## #7 — Poppe25, 2002-07-07T11:44Z

Ursäkta, blev fel. Här kommer Poll.asp...vore mtk tacksam för hjälp.

\<% 
Sub ThePoll(SelectPoll) 

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=DSNpoll"
SQLPollID = "Select ID, Namn, Question From Poll Where Namn = '"& SelectPoll &"' "
Set RSPollID = Conn.Execute(SQLPollID)

SQLQuestions = "Select Question, ID From Questions Where PollID = "& RSPollID("ID") &" Order By ID Asc"
Set RSQuestions = Conn.Execute(SQLQuestions)
%\>
\<table Border="0" CellSpacing="1" CellPadding="0" BgColor="Black"\>
	\<tr\>
		\<td\>
\<table Border="0" CellSpacing="0" CellPadding="2"\>
	\<tr\>
		\<td ColSpan="2" Align="Center" Background="Bilder/Overline.gif"\>
			\<font face="Tahoma" Size="-1" Color="Yellow"\>\<b\>
				\<%= RSPollID("Question")%\>
			\</b\>\</font\>
		\</td\>
	\</tr\>
	
	\<% 
	cLoop = 0
	Do While Not RSQuestions.EOF
	cLoop = cLoop + 1
	%\>
	
	\<tr BgColor="White"\>
		\<td\>
			\<a href="javascript:SelectOne(\<%= RSQuestions("ID")%\>)" OnFocus="blur();"\>\<img Border="0" Src="Bilder/Button.jpg" Name="Bild\_\<%= RSQuestions("ID")%\>" WIDTH="20" HEIGHT="20"\>\</a\>
		\</td\>
		
		\<td\>
			\<font face="Tahoma" Size="-2" Color="Black"\>
				\<%= RSQuestions("Question")%\>
			\</font\>
		\</td\>
	\</tr\>

	\<% 
	RSQuestions.MoveNext
	Loop
	%\>	

	\<% If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then %\>
		\<tr BgColor="White"\>
			\<td Valign="Bottom" Align="Left"\>
				\<a href="#" OnClick="javascript:window.open('../Poll/Resultat.asp?PollID=\<%= RSPollID("ID")%\>','Resultat','scrolling=no,resizable=yes,width=300,height=300')"\>\<img Src="Bilder/Resultat.Jpg" Border="0" WIDTH="50" HEIGHT="14"\>\</a\>\</td\>
			
			\<td Align="Right" Valign="Bottom"\>
				\<a href="javascript:SubmitWindow()"\>\<img Src="Bilder/Vote.Jpg" Border="0" WIDTH="45" HEIGHT="14"\>\</a\>\</td\>
		\</tr\>		
	\<% Else %\>
		\<tr BgColor="White"\>
			\<td Valign="Bottom" Align="Left"\>
				\<a href="#" OnClick="javascript:window.open('../Poll/Resultat.asp?PollID=\<%= RSPollID("ID")%\>','Resultat','scrolling=no,resizable=yes,width=300,height=300')"\>\<img Src="Bilder/Resultat.Jpg" Border="0" WIDTH="50" HEIGHT="14"\>\</a\>\</td\>
			
			\<td Align="Right" Valign="Bottom"\>
				\<a href="#" OnClick="SubmitWindow()"\>\<img Src="Bilder/Vote.Jpg" Border="0" WIDTH="45" HEIGHT="14"\>\</a\>\</td\>
		\</tr\>		
	\<% End If %\>
\</table\>
		\</td\>
	\</tr\>
\</table\>

\<script Language="Javascript"\>
var SelectedOne;
var Submitted = false;

function SelectOne(Which)
{
	if(SelectedOne != null) 
	{
		ThePic = "Bild\_" + SelectedOne	
		document.images\[ThePic\].src = '../Poll/Bilder/Button.jpg';
	}
	SelectedOne = Which;
	
	ThePic = "Bild\_" + Which;
	document.images\[ThePic\].src = '../Poll/Bilder/Button_1.jpg';
}

function SubmitWindow()
{
	if(Submitted != true && SelectedOne != null)
	{
		TheLink = "../Poll/Poll_Vote.asp?QuestionID=" + SelectedOne;
		window.open(TheLink, 'Poll', 'scrollbars=no,resizable=no,width=200,height=100');
		Submitted = true;
	}
	else
	{
		if(Submitted == true)
			alert("Du kan bara rösta en gång!");
		else
			alert("Du måste göra ett val innan du kan rösta!");		
	}
	
}
\</script\>

\<%
Set RSPollID = Nothing
Set RSQuestions = Nothing 
Conn.Close
Set Conn = Nothing

End Sub 
%\>

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

## #8 — @nders, 2002-07-07T11:46Z

Vilken är rad 9?

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

## #9 — Poppe25, 2002-07-07T11:49Z

Raden som felmeddelandet gäller är i anropet:

Call ThePoll("Huvudsida.asp") 

(Numera rad 10, råkat ändra lite...)

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

## #10 — @nders, 2002-07-07T11:51Z

Du har glömt ett # i ditt include-direktiv på den sidan. Det är inte helt omöjligt att det är det som strular till det. :)

```
<!--[b]#[/b]include file ="Poll/Poll.asp"-->
```

Mvh,

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

## #11 — Poppe25, 2002-07-07T11:53Z

TAAACK!!!! Jättetack...det är så man kan bli galen, men det är helt underbart att kunna låta ngn annan titta på sin kod....

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

## #12 — John m, 2005-10-01T11:32Z

Var i koden, eller var är koden som skriver in resultatet av ens röst i databasen?   :q  Har lite problem med den här koden.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/47416-anropa-en-sub