Invalid path character?!

Kan du inte bara skriva:

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& db

kanske, ska testa

noep

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(db)

sorry. detta som är raderna som felet ligger i (tror ja)

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

Timer()? Du kanske vill ha now() istället?

ytterligare en skum rad till det hela

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

Fick:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method

/navigation.asp, line 27

sen jag bytte till now()

Hur ser strName ut? Kan du testa createtextfile med ett valigt namn (utan now())?

ÄHH! glöm det tidigare. skickar nytt. alltihop.

<%
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" & Now() & ".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

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

Med det här blir följande fel:

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

Invalid Path Character

/db/navigation.asp, line 50

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

rad 50:

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

tack!

http://www.webforum.nu/showthread.php?s=&threadid=60222 ???

haha, då kom nästa fel när jag tog bort now()

Server object error 'ASP 0228 : 80004005'

Server.Execute Error

/navigation.asp, line 60

The call to Server.Execute failed while loading the page

rad 60:
Server.Execute strName

Jag hjälper en annan kille så jag vet inte ens vad scriptet ska göra, och han verkar inte heller veta det med en så felig kod

haha, det var den killen det. ni kan nog radera den här tråden