---
title: "Microsoft VBScript runtime error '800a01f4'"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43546-microsoft-vbscript-runtime-error-800a01f4"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "costodia"
published: "2002-05-12T07:30:44.000Z"
updated: "2002-05-12T10:20:48.000Z"
replies: 6
views: 310
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/43546-microsoft-vbscript-runtime-error-800a01f4"
---

# Microsoft VBScript runtime error '800a01f4'

## #1 — costodia, 2002-05-12T07:30Z

Jag tänkte lägga in pallemans linkadder på min förstasida ( <http://ebid.se> ), men har lite problem med att det blir 

```php
Microsoft VBScript runtime error '800a01f4' 

Variable is undefined: 'strDbPath' 

/costodia/linkadder_settings.asp, line 2
```

 

det konstiga är att den funkar helt utan problem på <http://ebid.se/costodia/linkadder.asp> och det är den sidan som jag tar include file på på ebid.

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

## #2 — PatrikB, 2002-05-12T07:56Z

Variabeln är inte deklarerad.

Du behöver lägga in Dim strDbPath antingen i includfilen eller på sidan som du includar filen på.

cya,
PatrikB

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

## #3 — costodia, 2002-05-12T08:20Z

nu blir det 

```php
Microsoft VBScript runtime error '800a01f4' 

Variable is undefined: 'mittantal' 

/costodia/linkadder_settings.asp, line 6
```

 

istället.

linkadder_inc.asp ser ut så här:

```php

<%
'--------------------------------------------------------------------------------------------------------------------------------###

SUB ADD()

'------------------------------------------------------------###

Response.Write "<td height='150'>"

	If Request.Cookies("pallelink").Haskeys = FALSE Then
	Response.Cookies("pallelink")("linkadder") = "linkadded"
	Response.Cookies("pallelink").Expires = date + 1

	
		Response.Write "<form method='post' action='linkadder.asp?linkadder=spara'>"

			Response.Write "<table border='0' cellspacing='0' cellpadding='0'>"
			Response.Write "<tr><td>Namn på sidan:</td></tr>"
			Response.Write "<tr><td><input type='text' name='namn' maxlength='20'></td></tr>"
			Response.Write "<tr><td>Adress:</td></tr>"
			Response.Write "<tr><td><input type='text' name='adress'></td></tr>"
			Response.Write "<td><input type='submit' name='Submit' value='Skicka'></td>"
			Response.Write "</table>"

		Response.Write "</form>"
	

	Else
	

	Response.Write "<center>"
	Response.Write "<b>Hoppsan!</b><br><br>"
	Response.Write "Du har redan skickat in din länk idag, du får vänta tills i morgon.<br><br>"
	Response.Write "<input type='button' onClick=""javascript:history.back()"" value=' <- Bakåt '>"
	Response.Write "</center>"
	
Response.Write "</td>"

	End If 

'------------------------------------------------------------###

END SUB

'--------------------------------------------------------------------------------------------------------------------------------###

SUB SAVE()

'------------------------------------------------------------###

Response.Write "<td height='150'>"
	
	If Request.Form("namn") = "" Then
		Response.Write "Du har inte fyllt i namnet på sidan... <br>"
		Response.Write "<a href='javascript:history.back()'> <-- Tillbaka </a>"
			
		ElseIf Request.Form("adress") = "" Then
			Response.Write "Du har inte fyllt i adressen till sidan...<br>"
			Response.Write "<a href='javascript:history.back()'> <-- Tillbaka </a>"

Response.Write "</td>"

	Else

		strRef = Request.ServerVariables("HTTP_REFERER")
		strNamn = trim(Request.Form("namn"))
		If trim(Left(Request.Form("adress"),7)) = "http://" Then
			strAdress = trim(Request.Form("adress"))

		Else
			strAdress = "http://" & trim(Request.Form("adress"))

		End If
		

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(strDbPath)

		SQL = "INSERT INTO lankar(Namn, Adress, Raknare) VALUES('"& strNamn &"','"& strAdress &"','0')"
		Connect.Execute(SQL)

	Connect.Close
	Set Connect = Nothing

	Response.Redirect "linkadder.asp"
		
	End If
		
'------------------------------------------------------------###

END SUB

'--------------------------------------------------------------------------------------------------------------------------------###

SUB ALL()

'------------------------------------------------------------###		
		
Response.Write "<td valign='top' height='150'>"

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(strDbPath)

	SQL = "SELECT * FROM lankar ORDER BY Raknare DESC"
	Set RecSet = Connect.Execute(SQL)

	If RecSet.EOF Then
		Response.Write "Just nu finns det inga länkar."
	
	Else
		Do Until RecSet.EOF
		
		strCounter = RecSet("Raknare")
		strID = RecSet("ID")
		strNamn = RecSet("Namn")
		strAdress = RecSet("Adress")
	%>
		&nbsp; (<%=strCounter%>) &nbsp; <a href="linkadder.asp?linkadder=vidare&ID=<%=strID%>" target="_blank" OnClick="javascript:location.reload()" onMouseOver="self.status='<%=strAdress%>';return true" onMouseOut="self.status=' ';return true"><%=Server.HTMLEncode(strNamn) %></a><br>
	<%
		RecSet.movenext
		Loop

	RecSet.Close
	Set RecSet = Nothing

	Connect.Close
	Set Connect = Nothing
	
	End If

Response.Write "</td>"

'------------------------------------------------------------###

END SUB

'--------------------------------------------------------------------------------------------------------------------------------###

SUB RANDOM()

'------------------------------------------------------------###	

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(strDbPath)

	SQL = "SELECT Count(*) AS strPosts FROM lankar"
	Set RecSet = Connect.Execute(SQL)
	
		strPoster = RecSet("strPosts")

	RecSet.Close
	Set RecSet = Nothing

	Randomize
	strRandom = Int(RND*strPoster) - 1
	
	SQL = "SELECT * FROM lankar"
	Set RecSet = Connect.Execute(SQL)

	Do While strRandom >= 0
	RecSet.MoveNext

	strRandom = strRandom - 1
	Loop

		Response.Redirect RecSet("Adress")

	RecSet.Close
	Set RecSet = Nothing

	Connect.Close
	Set Connect = Nothing

'------------------------------------------------------------###

END SUB

'--------------------------------------------------------------------------------------------------------------------------------###

SUB REDIRECT()

'------------------------------------------------------------###	

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(strDbPath)

	Set RecSet = Connect.execute("SELECT * FROM lankar WHERE ID= "& Request.Querystring("ID"))

		strUrl = RecSet("Adress")
		strCount = RecSet("Raknare") + 1
	
	RecSet.Close
	Set RecSet = Nothing

	Connect.execute("UPDATE lankar SET Raknare = '"& strCount &"' WHERE ID = "& Request.Querystring("ID"))

	Response.Redirect(strUrl)

	Connect.Close
	Set Connect = Nothing

'------------------------------------------------------------###

END SUB

'--------------------------------------------------------------------------------------------------------------------------------###

SUB MAIN_SITE()

'------------------------------------------------------------###

Response.Write "<td height='150' valign='top'>"

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(strDbPath)
	Set RecSet = Connect.Execute("SELECT * FROM lankar ORDER BY ID DESC")

	count = 0
	
	If RecSet.EOF Then
		Response.Write "Just nu finns det inga länkar."

	Else
		Do Until RecSet.EOF OR count = mittantal

		strCounter = RecSet("Raknare")
		strID = RecSet("ID")
		strNamn = RecSet("Namn")
		strAdress = RecSet("Adress")
	%>
		&nbsp; (<%=strCounter%>) &nbsp; <a href="linkadder.asp?linkadder=vidare&ID=<%=strID%>" target="_blank" OnClick="javascript:location.reload()" onMouseOver="self.status='<%=strAdress%>';return true" onMouseOut="self.status=' ';return true"><%=Server.HTMLEncode(strNamn) %></a><br>
	
	<%

	count = count + 1
	RecSet.MoveNext
	Loop

	RecSet.Close
	Set RecSet = Nothing
	
	Connect.Close
	Set Connect = Nothing
	
	End If

Response.Write "</td>"

'------------------------------------------------------------###

END SUB

'--------------------------------------------------------------------------------------------------------------------------------###
%>
```

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

## #4 — @nders, 2002-05-12T09:12Z

Om du använder option explicit måste du deklarera alla variabler innan du kan använda dem.

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

## #5 — costodia, 2002-05-12T10:07Z

okej lite så här snabbt, hur gör jag det lättast?

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

## #6 — PatrikB, 2002-05-12T10:18Z

Blir till att ta dem en och en .... eller ta bort Option Explicit .... fast, det är ju inte att rekommendera :e

cya,
PatrikB

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

## #7 — PatrikB, 2002-05-12T10:20Z

Och variablerna bör dimmas inne i sina respektive subbar .... om det ej är globala variabler 

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/43546-microsoft-vbscript-runtime-error-800a01f4