---
title: "Felmeddelande!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/61488-felmeddelande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "wunderbaren"
published: "2002-12-07T18:51:34.000Z"
updated: "2002-12-08T22:28:25.000Z"
replies: 38
views: 652
page: 1
pages: 2
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/61488-felmeddelande"
---

# Felmeddelande!

_Sida 1 av 2._

## #1 — wunderbaren, 2002-12-07T18:51Z

Jag har försökt göra allt möjligt för att fixa det. Jag hoppas att ngn kan hjälpa mig!

Server.MapPath() error 'ASP 0173 : 80004005' 

Invalid Path Character 

/db/navigation.asp, line 51 

An invalid character was specified in the Path parameter for the MapPath method. 

Nån som kan svaret på problemet? Eller vet hur man åtgärdar det?

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

## #2 — Rodan, 2002-12-07T18:52Z

du... varför visar du samma  fel meddelande 3 gånger ?
sen kan du ju visa lite kod också

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

## #3 — LarsG, 2002-12-07T18:52Z

Visa koden som orsakar felet.

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

## #4 — wunderbaren, 2002-12-07T18:54Z

' OBS: lägg till True som andra parameter, så att du kan skriva över filen:
Set objFile=objFS.CreateTextFile(Server.MapPath(strName),True)

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

## #5 — wunderbaren, 2002-12-07T19:05Z

Postar hela sidan:

\<%
If not Request.Querystring("url") = "" Then
  
Set MinCon = Server.CreateObject("ADODB.Connection")  
Set RecSet = Server.CreateObject("ADODB.RecordSet")  

db = "nyheter.mdb" 
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(db) &" " 
SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'sida'"  
RecSet.Open SQL, MinCon, 3,3

Set objFS=Server.CreateObject("Scripting.FileSystemObject")
strName="temp" & Timer() & ".asp"

' ---start av loopen---
Do While Not RecSet.EOF

Dim myMenu
myMeny = CInt(RecSet("kommentar"))

Select Case myMeny
Case 1
%\>\<!-- #include file="home_menu.asp" --\>\<%
Case 2
%\>\<!-- #include file="information_menu.asp" --\>\<%
Case 3
%\>\<!-- #include file="contact_menu.asp" --\>\<%
Case 4
%\>\<!-- #include file="media_menu.asp" --\>\<%
End Select
%\>
\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>
\<tr\>
\<td width="68%" valign="top" height="1"\>\<br\>\<%
' OBS: lägg till True som andra parameter, så att du kan skriva över filen:
Set objFile=objFS.CreateTextFile(Server.MapPath(strName),True)

Call objFile.WriteLine(RecSet("kod"))

Call objFile.Close

' OBS: lägg till True som andra parameter, så att du kan skriva över filen:
Set objFile=objFS.CreateTextFile(Server.MapPath(strName),True)

Call objFile.Close

Server.Execute strName

Loop
' ---slut på loopen---

Call obJFS.DeleteFile(Server.MapPath(strName))
Set objFS=Nothing

Call RecSet.Close
Set RecSet=Nothing

MinCon.Close

end if

'Följande if-sats körs bara om ?url är tom i querysting
If not Request.Querystring("url") = "" Then

SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'nyhet'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>
\<!-- #include file="home_menu.asp" --\>
\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>
\<tr\>
\<td width="68%" valign="top" height="1"\>
\<br\>
\<img border="0" src="../logo/nyheter.gif"\>\<br\>\<br\>
\<%
If NOT RecSet("bild_2") = "" Then
%\>
\<img border="1" src="../abc123/news/\<%=RecSet("bild_2")%\>.gif"\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="1"\>\<br\>
\<%
End If
If NOT RecSet("kommentar_2") = "" Then
%\>
\<font face="arial"\>\<%=RecSet("kommentar_2")%\>\</font\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="1"\>\<br\>
\<%
End If
If NOT RecSet("foto_2") = "" Then
%\>
\<font face="arial"\>Foto: \<%=RecSet("foto_2")%\>\</font\>
\<%
End If
If NOT RecSet("bild_2") = "" Then
%\>
\<br\>\<img border="0" src="../green/mellan.rum.gif" width="1" height="5"\>\<br\>
\<%
End If
If NOT RecSet("bild") = "" Then
%\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="38" align="right"\>
\<tr\>
\<td width="0%"\>
\<img border="1" src="../abc123/news/\<%=RecSet("bild")%\>.gif"\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="1"\>\<br\>
\</td\>
\</tr\>
\</table\>
\<%
End If
If NOT RecSet("kommentar") = "" Then
%\>
\<font face="arial"\>\<%=RecSet("kommentar")%\>\</font\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="1"\>\<br\>
\<%
End If
%\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="0%"\>
\<tr\>
\<td width="100%"\>
\<%
If NOT RecSet("foto") = "" Then
%\>
\<font face="arial"\>Foto: \<%=RecSet("foto")%\>\</font\>
\<%
End If
If NOT RecSet("bild") = "" Then
%\>
\</td\>
\</tr\>
\</table\>
\<%
End If
%\>
\</td\>
\<td width="4"\>\<img border="0" src="../green/mellan.rum.gif" width="4" height="1"\>\</td\>
\</tr\>
\</table\>
\<font size="2"\>\<b\>\<%=RecSet("rubrik")%\>\</b\>\</font\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="3"\>\<br\>
\<b\>\<%=RecSet("intro")%\>\</b\>
\<br\>\<img border="0" src="../green/mellan.rum.gif" width="1" height="3"\>\<br\>
\<%
Fixa = Server.HTMLEncode(RecSet("nyhet"))
Fixa = Replace(Trim(Fixa),"\[line\]","\<img src=images/line.gif\>")
Fixa = Replace(Trim(Fixa),"\[","\<")
Fixa = Replace(Trim(Fixa),"\]","\>")
Fixa = Replace(Trim(Fixa), vbCrLf, "\<br\>")
Response.Write Fixa
%\>
\<br\>\<br\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="201"\>
\<tr\>
\<td width="75"\>\<b\>Publicerad:\</b\>\</td\>
\<td width="126"\>\<i\>\<%=RecSet("datum")%\>\</i\>\</td\>
\</tr\>
\<tr\>
\<td width="75"\>\<b\>Uppdaterad:\</b\>\</td\>
\<td width="126"\>\<i\>\<%=RecSet("updated")%\>\</i\>\</td\>
\</tr\>
\</table\>
\<%
Count = Count + 1
RecSet.MoveNext
Loop

RecSet.Close
MinCon.Close

SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'dagbok'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>
\<!-- #include file="information_menu.asp" --\>
\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>
\<tr\>
\<td width="68%" valign="top" height="1"\>
\<br\>\<img border="0" src="../logo/dagbok.gif"\>\<br\>\<br\>
\<b\>\<%=RecSet("rubrik")%\>\</b\>\<br\>
\<img border="0" src="../hoger_meny/mellan.gif" width="1" height="5"\>\<br\>
\<%
Fixa = Server.HTMLEncode(RecSet("kod"))
Fixa = Replace(Trim(Fixa), vbCrLf, "\<br\>")
Response.Write Fixa
%\>
\<br\>\<br\>
\<b\>Publicerad:\</b\> \<%=RecSet("datum")%\>\<br\>\<br\>
\<%
Count = Count + 1
RecSet.MoveNext
Loop

RecSet.Close
MinCon.Close

SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'disko'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>
\<!-- #include file="information_menu.asp" --\>
\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>
\<tr\>
\<td width="68%" valign="top" height="1"\>
\<br\>\<img border="0" src="../logo/diskografi.gif"\>\<br\>\<br\>
\<b\>\<%=RecSet("rubrik")%\>\<br\>
\</b\>\<%=RecSet("skivdatum")%\>\<br\>\<br\>
\<img border="0" src=" <http://www.josefine-sundstrom.net/>\<%=RecSet("bild")%\>"\>
\<a target="\_blank" href="%20http:/www.cdon.com/SE"\>Best&#228;ll på CDON.com\</a\>\<br\>\<br\>
\<%
Response.Write(RecSet("kod"))
Count = Count + 1
RecSet.MoveNext
Loop

RecSet.Close
MinCon.Close

End If
%\>

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

## #6 — solbulle, 2002-12-07T21:06Z

Kan tänka mig att det är för att din kod genererar ett filnamn med kommatecken i sig.

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

## #7 — wunderbaren, 2002-12-07T22:37Z

Hur fixar man det då?

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

## #8 — wunderbaren, 2002-12-08T20:00Z

Kan ingen svaret på det eller??? blir snart galen!

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

## #9 — solbulle, 2002-12-08T20:20Z

strName="temp" & round(Timer()) & ".asp"

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

## #10 — wunderbaren, 2002-12-08T20:29Z

Fortfarande samma meddelande =(

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

## #11 — wunderbaren, 2002-12-08T20:33Z

nu bildas det filer i servern!

ex. "temp78643.asp"

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

## #12 — solbulle, 2002-12-08T20:35Z

Vilken rad är det egentligen du får felet på?

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

## #13 — wunderbaren, 2002-12-08T20:46Z

Nu finns det en MASSA temp filer. Men det går EXTREMT långsamt att komma in på sidan alltså!

SIDAN:

\<html\>
\<head\>
\<title\>Josefine Sundström Artist Page 2002\</title\>
\<link rel="stylesheet" type="text/css" href="../josefine.css"\>
\</head\>
\<body bgcolor="#BFC8C0"\>
\<div align="center"\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="1"\>
\<tr\>
\<td width="546"\>\<!-- #include file="meny2.asp" --\>\</td\>
\</tr\>
\<tr\>
\<td background="../images/background.gif" width="546" align="center"\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="97%"\>
\<tr\>
\<td width="74%" valign="top"\>\<img border="0" src="../hoger_meny/mellan.gif" width="1" height="4"\>\<%
If not Request.Querystring("url") = "" Then
  
Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

db = "nyheter.mdb" 
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(db) 
SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'sida'"  
RecSet.Open SQL, MinCon, 3,3

Set objFS=Server.CreateObject("Scripting.FileSystemObject")
strName="temp" & round(Timer()) & ".asp"

' ---start av loopen---
Do While Not RecSet.EOF

Dim myMenu
myMeny = CInt(RecSet("kommentar"))

Select Case myMeny
Case 1
%\>\<!-- #include file="home_menu.asp" --\>\<%
Case 2
%\>\<!-- #include file="information_menu.asp" --\>\<%
Case 3
%\>\<!-- #include file="contact_menu.asp" --\>\<%
Case 4
%\>\<!-- #include file="media_menu.asp" --\>\<%
End Select
%\>
\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>
\<tr\>
\<td width="68%" valign="top" height="1"\>\<br\>\<%
Set objFile=objFS.CreateTextFile(Server.MapPath(strName),True)

Call objFile.WriteLine(RecSet("kod"))

Call objFile.Close

Set objFile=objFS.CreateTextFile(Server.MapPath(strName),True)

Call objFile.Close

Loop
' ---slut på loopen---

Call obJFS.DeleteFile(Server.MapPath(strName))
Set objFS=Nothing

Call RecSet.Close
Set RecSet=Nothing

MinCon.Close

end if

'Följande if-sats körs bara om ?url är tom i querysting
If not Request.Querystring("url") = "" Then

SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'nyhet'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>
\<!-- #include file="home_menu.asp" --\>
\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>
\<tr\>
\<td width="68%" valign="top" height="1"\>
\<br\>
\<img border="0" src="../logo/nyheter.gif"\>\<br\>\<br\>
\<%
If NOT RecSet("bild_2") = "" Then
%\>
\<img border="1" src="../abc123/news/\<%=RecSet("bild_2")%\>.gif"\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="1"\>\<br\>
\<%
End If
If NOT RecSet("kommentar_2") = "" Then
%\>
\<font face="arial"\>\<%=RecSet("kommentar_2")%\>\</font\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="1"\>\<br\>
\<%
End If
If NOT RecSet("foto_2") = "" Then
%\>
\<font face="arial"\>Foto: \<%=RecSet("foto_2")%\>\</font\>
\<%
End If
If NOT RecSet("bild_2") = "" Then
%\>
\<br\>\<img border="0" src="../green/mellan.rum.gif" width="1" height="5"\>\<br\>
\<%
End If
If NOT RecSet("bild") = "" Then
%\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="38" align="right"\>
\<tr\>
\<td width="0%"\>
\<img border="1" src="../abc123/news/\<%=RecSet("bild")%\>.gif"\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="1"\>\<br\>
\</td\>
\</tr\>
\</table\>
\<%
End If
If NOT RecSet("kommentar") = "" Then
%\>
\<font face="arial"\>\<%=RecSet("kommentar")%\>\</font\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="1"\>\<br\>
\<%
End If
%\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="0%"\>
\<tr\>
\<td width="100%"\>
\<%
If NOT RecSet("foto") = "" Then
%\>
\<font face="arial"\>Foto: \<%=RecSet("foto")%\>\</font\>
\<%
End If
If NOT RecSet("bild") = "" Then
%\>
\</td\>
\</tr\>
\</table\>
\<%
End If
%\>
\</td\>
\<td width="4"\>\<img border="0" src="../green/mellan.rum.gif" width="4" height="1"\>\</td\>
\</tr\>
\</table\>
\<font size="2"\>\<b\>\<%=RecSet("rubrik")%\>\</b\>\</font\>\<br\>
\<img border="0" src="../green/mellan.rum.gif" width="1" height="3"\>\<br\>
\<b\>\<%=RecSet("intro")%\>\</b\>
\<br\>\<img border="0" src="../green/mellan.rum.gif" width="1" height="3"\>\<br\>
\<%
Fixa = Server.HTMLEncode(RecSet("nyhet"))
Fixa = Replace(Trim(Fixa),"\[line\]","\<img src=images/line.gif\>")
Fixa = Replace(Trim(Fixa),"\[","\<")
Fixa = Replace(Trim(Fixa),"\]","\>")
Fixa = Replace(Trim(Fixa), vbCrLf, "\<br\>")
Response.Write Fixa
%\>
\<br\>\<br\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="201"\>
\<tr\>
\<td width="75"\>\<b\>Publicerad:\</b\>\</td\>
\<td width="126"\>\<i\>\<%=RecSet("datum")%\>\</i\>\</td\>
\</tr\>
\<tr\>
\<td width="75"\>\<b\>Uppdaterad:\</b\>\</td\>
\<td width="126"\>\<i\>\<%=RecSet("updated")%\>\</i\>\</td\>
\</tr\>
\</table\>
\<%
Count = Count + 1
RecSet.MoveNext
Loop

RecSet.Close
MinCon.Close

SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'dagbok'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>
\<!-- #include file="information_menu.asp" --\>
\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>
\<tr\>
\<td width="68%" valign="top" height="1"\>
\<br\>\<img border="0" src="../logo/dagbok.gif"\>\<br\>\<br\>
\<b\>\<%=RecSet("rubrik")%\>\</b\>\<br\>
\<img border="0" src="../hoger_meny/mellan.gif" width="1" height="5"\>\<br\>
\<%
Fixa = Server.HTMLEncode(RecSet("kod"))
Fixa = Replace(Trim(Fixa), vbCrLf, "\<br\>")
Response.Write Fixa
%\>
\<br\>\<br\>
\<b\>Publicerad:\</b\> \<%=RecSet("datum")%\>\<br\>\<br\>
\<%
Count = Count + 1
RecSet.MoveNext
Loop

RecSet.Close
MinCon.Close

SQL = "SELECT TOP 1 \* From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'disko'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%\>
\<!-- #include file="information_menu.asp" --\>
\<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"\>
\<tr\>
\<td width="68%" valign="top" height="1"\>
\<br\>\<img border="0" src="../logo/diskografi.gif"\>\<br\>\<br\>
\<b\>\<%=RecSet("rubrik")%\>\<br\>
\</b\>\<%=RecSet("skivdatum")%\>\<br\>\<br\>
\<img border="0" src=" <http://www.josefine-sundstrom.net/>\<%=RecSet("bild")%\>"\>
\<a target="\_blank" href="%20http:/www.cdon.com/SE"\>Best&#228;ll på CDON.com\</a\>\<br\>\<br\>
\<%
Response.Write(RecSet("kod"))
Count = Count + 1
RecSet.MoveNext
Loop

RecSet.Close
MinCon.Close

End If
%\>
\<img border="0" src="images/pixel.gif"\>
\</td\>
\</tr\>
\</table\>
\</td\>
\<td width="60%" valign="top" align="center"\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="118"\>
\<tr\>
\<td width="100%"\>\<!-- #include file="meny_hoger.asp" --\>\</td\>
\</tr\>
\</table\>
\</td\>
\</tr\>
\</table\>
\</td\>
\</tr\>
\</td\>
\</tr\>
\<tr\>
\<td width="546" align="center"\>\<img border="0" src="images/copy_down.gif"\>\</td\>
\</tr\>
\</table\>
\</td\>
\</tr\>
\</table\>
\</div\>
\</body\>
\</html\>

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

## #14 — solbulle, 2002-12-08T21:00Z

Vad är det egentligen du försöker göra, vid en snabb överblick ser det ut som om du skapar en massa filer, skriver lite i dom och sen raderar dom?

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

## #15 — solbulle, 2002-12-08T21:02Z

```
Set objFile=objFS.CreateTextFile(Server.MapPath(strName),True) 

Call objFile.WriteLine(RecSet("kod")) 

Call objFile.Close 

Set objFile=objFS.CreateTextFile(Server.MapPath(strName),True) 

Call objFile.Close 

Loop 
' ---slut på loopen--- 

Call obJFS.DeleteFile(Server.MapPath(strName))
```

???

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

## #16 — solbulle, 2002-12-08T21:03Z

Skapa en fil.

Skriv i filen.

Skapa en ny fil (gamla skrivs över.)

Radera filen.

jag ser inte logiken...

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

## #17 — wunderbaren, 2002-12-08T21:03Z

Jag vill kunna visa aspkod i "kod". Nån gav mig detta scriptet, men det verkar inte funka bra. Har du nån ide om hur man kan göra för att visa aspkod?

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

## #18 — solbulle, 2002-12-08T21:09Z

Jo, men du skriver väl redan ut kod nu med detta stycket:

```
Fixa = Server.HTMLEncode(RecSet("kod")) 
Fixa = Replace(Trim(Fixa), vbCrLf, "<br>") 
Response.Write Fixa
```

Eller?

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

## #19 — wunderbaren, 2002-12-08T21:11Z

Men då görs inte ASP koden. om, det är det jag arbetar på.

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

## #20 — solbulle, 2002-12-08T21:13Z

Då körs den inte? Nej, du vill alltså köra koden som du har i databasen?
Ta bort din Fixa-funktion då:

response.write RecSet("kod")

Fast det är ingen höjdare att lägga aspkod i databas, mer eller mindre bäddat för krångel.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/61488-felmeddelande  
Nästa sida: https://www.webforum.nu/amne/asp/61488-felmeddelande/page2.md