webForumDet fria alternativet
Logga in / Bli medlem

Felmeddelande!

ASPur ASP

38 svar · 609 visningar · startad av wunderbaren

wunderbarenMedlem sedan dec. 2002105 inlägg
#1

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?

RodanMedlem sedan juli 20021 523 inlägg
#2

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

LarsGMedlem sedan dec. 200012 464 inlägg
#3

Visa koden som orsakar felet.

wunderbarenMedlem sedan dec. 2002105 inlägg
#4

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

wunderbarenMedlem sedan dec. 2002105 inlägg
#5

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äll på CDON.com</a><br><br>
<%
Response.Write(RecSet("kod"))
Count = Count + 1
RecSet.MoveNext
Loop

RecSet.Close
MinCon.Close

End If
%>

solbulleMedlem sedan mars 20015 287 inlägg
#6

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

wunderbarenMedlem sedan dec. 2002105 inlägg
#7

Hur fixar man det då?

wunderbarenMedlem sedan dec. 2002105 inlägg
#8

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

solbulleMedlem sedan mars 20015 287 inlägg
#9

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

wunderbarenMedlem sedan dec. 2002105 inlägg
#10

Fortfarande samma meddelande =(

wunderbarenMedlem sedan dec. 2002105 inlägg
#11

nu bildas det filer i servern!

ex. "temp78643.asp"

solbulleMedlem sedan mars 20015 287 inlägg
#12

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

wunderbarenMedlem sedan dec. 2002105 inlägg
#13

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ä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>

solbulleMedlem sedan mars 20015 287 inlägg
#14

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?

solbulleMedlem sedan mars 20015 287 inlägg
#15
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))

???

solbulleMedlem sedan mars 20015 287 inlägg
#16

Skapa en fil.

Skriv i filen.

Skapa en ny fil (gamla skrivs över.)

Radera filen.

jag ser inte logiken...

wunderbarenMedlem sedan dec. 2002105 inlägg
#17

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?

solbulleMedlem sedan mars 20015 287 inlägg
#18

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?

wunderbarenMedlem sedan dec. 2002105 inlägg
#19

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

solbulleMedlem sedan mars 20015 287 inlägg
#20

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.

143 ms totalt · 3 externa anrop · v20260731065814-full.a2ca460b
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
140 ms — hämta tråd, inlägg och bilagor (db)