Två frågor: en databas och en FSO

3 svar · 205 visningar · startad av Cy-4 1 feb. 2002

Cy-4Medlem sedan maj 200180 inlägg

Frågan1 feb. 2002 17:33#1

Hallå!

Jag har två frågor. Hoppas någon kan hjälpa mig:

1: Vad är det för fel på denna kod:

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

Set objRecset = Server.CreateObject("ADODB.Recordset")

sqlGettopic = "SELECT Topic, Viewed FROM Forum_topic WHERE ID = " & intGetRefid
objRecset.Open sqlGettopic, objDatabas, 3, 3

'Kollar om man ska lägga till ett på antalet gånger 
'tråden är läst och gör det om det ska göras
If Request.Querystring("add") = "1" Then

objRecset("Viewed") = objRecset("Viewed") + 1
objRecset.Update

End If

Får detta felmeddelandet:
Error Type:
Microsoft JET Database Engine (0x80040E09)
Cannot update. Database or object is read-only.
/egen_X/includes/forum_subs.asp, line 592

Rad 592 är:
objRecset("Viewed") = objRecset("Viewed") + 1

2: Den här koden funkar inte heller som den ska:

Set textfil = FSO.OpenTextFile("c:\inetpub\wwwroot\ag_deblock\total.txt")

intTotalCounter = Cint(textfil.ReadLine)
intTotalCounter = intTotalCounter + 1

textfil.Close

Set textfil = FSO.CreateTextFile("c:\inetpub\wwwroot\ag_deblock\total.txt", True)
textfil.WriteLine intTotalCounter

Felmeddelande:
Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/ag_deblock/deblocker.asp, line 31

Rad 31 är:
Set textfil = FSO.CreateTextFile("c:\inetpub\wwwroot\ag_deblock\total.txt", True)

Hoppas att nåfon kan hjälpa mig dessa problem.

VideMedlem sedan dec. 19998 577 inlägg

1 feb. 2002 17:56#2

Har du satt skrivrättigheter på mapparna? Det måste du har.

------------------
Mostly Harmless

LarsGMedlem sedan dec. 200012 464 inlägg

1 feb. 2002 18:00#3

Fel och fel, jag skulle ha skrivit databaskoden så här

'Kollar om man ska lägga till ett på antalet gånger 
'tråden är läst och gör det om det ska göras
If Request.Querystring("add") = "1" Then
   Set objDatabas = Server.CreateObject("ADODB.Connection")
   objDatabas.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& strMdbFilePath
   objDatabas.execute "update forum_topic set viewed = viewed + 1 where id = " & intGetRefid,,128
   objDatabas.close
   set objDatabas = nothing
end if

FSO-fallet ser ut som om du (IUSR_<servername> är det väl egentligen) inte har rättigheter att skapa filer. Det får du ändra med utforskaren. Det kan också vara samma problem med mdb-filen.

------------------
essentitia preter non sans multiplicandum

Cy-4Medlem sedan maj 200180 inlägg

1 feb. 2002 18:02#4

Tack för svaren, ska genast kolla om jag får det att funka. Får jag inte det så återkommer jag.