?? wried

Og fejlen er helt præcis ?

*G* undskyld! *s*

Serverobjekt fejl \'ASP 0177 : 800a0035\'

Server.CreateObject blev ikke udført

/Default.asp, linje 19

00000000


    Set rs = Conn.OpenTextFile(\"tracker.txt\", 8, 0)  //Linie 19

Set rs = Conn.OpenTextFile(\"tracker.txt\", 8, True, 0)  //Linie 19

Laver filen hvis den ikke eksisterer, alternativt kontroller om den findes med fileexists metoden

Med andre ord; du manglede en parameter. den 3. parameter kan selvfølgelig også være False

hmm... fatter minus af det med txt filer! *G*

kan du ikke prøve at sætte det ind!?

Uden at have analyseret resten af din kode, vil jeg mene den skal se sådan ud:

<% @Language=\"VBScript\" %>
<% Option Explicit %>
<%
Dim fs, FileName, Text, Count, ReadFile, WriteFile
Set fs = CreateObject(\"Scripting.FileSystemObject\")
FileName = Server.MapPath(\"counter.txt\")
Set ReadFile = fs.OpenTextFile(FileName, 1, False)
Text = ReadFile.ReadLine
Count = Text+1
Set WriteFile = fs.OpenTextFile(FileName, 2, True)
WriteFile.WriteLine(Count)

WriteFile.Close
ReadFile.Close
Set fs = Nothing

Dim Conn, rs, strLine
    Set Conn = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set rs = Conn.OpenTextFile(\"tracker.txt\", 8, True, 0)
    rs.WriteLine \"Ip: \" & Request.ServerVariables(\"Remote_Host\") & \" \" &_
    Chr(10) & \"Tidspunkt: \" & Now & Chr(10) &_
    \"-------------------------------------------------------------------------\"
    If Request.QueryString(\"valg\") = \"resultat\" Then

    Set rs = Conn.OpenTextFile(\"c:\\inetpub\\wwwroot\\div\\links.txt\", 1, True, 1)

    Do While rs.AtEndOfStream <> True
        strLine  = rs.ReadLine
        StrLine  = Server.HTMLEncode(strLine)
        Response.Write strLine & \"<br>\" & VbCrLf
    Loop
End If

%>

hmm... godt nok kommer den ikke med nogen fejl, men der bliver ikke skrevet noget i txt filen!

fandt ud af en anden løsning!

Men tak for hjælpen tmceu ! -du får 10 point!

Takker.

Grunden til at den ikke skriver noget, er nok at du har glemt rs.close til at lukke filen med.