Hejsa
Er der nogen, der vil kigge på mit script?
Jeg fåer en fejl '800a0046'
Microsoft VBScript runtime error '800a0046'
Permission denied
/annoncer/koebanno.asp, line 29
Linie 29 er denne:
Set textFile = fileObject.OpenTextFile( koebliste, 8, True )
Her er hele scriptet
<% @LANGUAGE =VBScript %>
<%
Option Explicit
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns = "
http://www.w3.org/1999/xhtml">
<head>
<title>Køb, salg og bytte ved Filatelist.dk</title>
</head>
<body>
<%
Dim fileObject, textFile, koebListe, mailtoUrl
koebliste = Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\koebliste.txt"
Set fileObject = Server.CreateObject( "Scripting.FileSystemObject" )
If Request( "hiddenInput" ) = "true" Then
Call Response.Write( "Tak for din indtastning " & Request( "username" ) & "!" )
%>
<hr />
<%
mailtoUrl = Date() & " <a href = " & Chr( 34) & "mailto:" & Request( "email" ) & Chr( 34 ) & ">" & Request( "username" ) & "</a>: "
Set textFile = _
fileObject.OpenTextFile( koebliste, 8, True )
Call textFile.WriteLine( "<hr />" & mailtoUrl & Request( "comment" ) )
Call textFile.Close()
End If
%>
<p>Indtast din annonce herunder.</p>
<form action = "koebanno.asp" method = "post">
<table>
<tr>
<td>Dit navn: </td>
<td><input type = "text" size = "60" name = "username" /></td>
</tr>
<tr>
<td>Din e-mailadresse: </td>
<td><input type = "text" size = "60" name = "email" />
</tr>
<tr>
<td>Indtast din annonce: </td>
<td><textarea name = "comment" rows = "3" Cols = "50"></textarea></td>
</tr>
</table>
<input type = "submit" value = "send" />
<input type = "reset" value = "slet felter" />
<input type = "hidden" name = "hiddenInput" value = "true" />
</form>
<%
If fileObject.FileExists( koebListe ) = True Then
Set textFile = fileObject.OpenTextFile( koebliste, 1 )
Call Response.Write( "Annoncer:<br />" & textFile.ReadAll() )
Call textFile.Close()
End If
%>
</body>
</html>
Hvad er fejlen?
Det ligger på en apache-server og asp-fortolkeren er fra chilisoft.
Adressen er
http://www.filatelist.dk/annoncer/koebanno.asp
Med venlig hilsen
Lene Nielsen