Foros del web, para los que viven de bits

Error de Microsoft VBScript en tiempo de ejecución error '800a0046'

Permiso denegado

/LM/W3SVC/247121831/Root/global.asa, línea 52

Sub Session_OnStart

'Abre la conexion con la base de datos
'Reservas.Open (Application("ConexionStringCasas"))
Reservas.Open ("Provider=SQLOLEDB; Data Source=192.168.1.101; Initial Catalog=db_Reservas; User Id=sa; Password=LE6260ZBNW;")

'abro bbdd db_reservasinvitado
ReservasInvitado.Open ("Provider=SQLOLEDB; Data Source=192.168.1.101; Initial Catalog=db_ReservasInvitado; User Id=sa; Password=LE6260ZBNW;")

' Create a server object
set fso = createobject("scripting.filesystemobject")

' Target the text file to be opened
set act = fso.opentextfile(server.mappath("Contador.txt"))



' Read the value of the text document
' If the text document does not exist then the on error resume next
' will drop down to the next line
counter = clng(act.readline)

' Add one to the counter
counter = counter + 1

' Close the object
act.close

' Create a new text file on the server, esta es la linea 52 \/ donde me da el error
Set act = fso.CreateTextFile(server.mappath("Contador.txt"), true)

' Write the current counter value to the text document
act.WriteLine(Application("contador"))

Application("contador")=counter
' Close the object
act.Close



Session("Start") = Now()
Session.TimeOut = 100


End Sub

<td width="60%" align="center">
<input type="hidden" value=<%=Application("contador")%> name=numeral size="10" onKeypress="if (event.keyCode<48 || event.keyCode>57) event.returnValue=false;" onblur="this.setAttribute('value', this.value);" maxlength="10">
<img src="udjat.jpg" width="18" height="18">&nbsp;<font color="#CC0033" face="Geneva, Arial, Helvetica, sans-serif, Rockwell"><script language="JavaScript">romanise()</script></font>&nbsp;<img src="udjat_2.jpg" width="18" height="18"></td>

function romanise(){

var persian=numeral.value;
var roman="";
var ronumdashes="";
var buffer=10-persian.length;

while (buffer>0) {persian="0"+persian;buffer--}

var units=new Array("","I","II","III","IV","V","VI","VII","VIII" ,"IX");
var tens=new Array("","X","XX","XXX","XL","L","LX","LXX","LXXX" ,"XC");
var hundreds=new Array("","C","CC","CCC","CD","D","DC","DCC","DCCC" ,"CM");
var thousands=new Array("","M","MM","MMM","MV","V","VM","VMM","VMMM" ,"MX");
var billionsdashes=new Array("","=","==","===","==","=","==","===","====" ,"==");

romandashes=billionsdashes[persian.substring(0,1)];

var hundredmillionsdashes=new Array("","=","==","===","==","=","==","===","====" ,"==");

romandashes+=hundredmillionsdashes[persian.substring(1,2)];

var tenmillionsdashes=new Array("","=","==","===","==","=","==","===","====" ,"==");

romandashes+=tenmillionsdashes[persian.substring(2,3)];

var millionsdashes=new Array("","_","__","___","_=","=","=_","=__","=___" ,"_=");

romandashes+=millionsdashes[persian.substring(3,4)];

var hundredthousandsdashes=new Array("","_","__","___","__","_","__","___","____" ,"__");

romandashes+=hundredthousandsdashes[persian.substring(4,5)];

var tenthousandsdashes=new Array("","_","__","___","__","_","__","___","____" ,"__");

romandashes+=tenthousandsdashes[persian.substring(5,6)];

var thousandsdashes=new Array("","","",""," _","_","_","_","_"," _");

romandashes+=thousandsdashes[persian.substring(6,7)];

roman=thousands[persian.substring(0,1)];

roman+=hundreds[persian.substring(1,2)];

roman+=tens[persian.substring(2,3)];

roman+=thousands[persian.substring(3,4)];

roman+=hundreds[persian.substring(4,5)];

roman+=tens[persian.substring(5,6)];

roman+=thousands[persian.substring(6,7)];

roman+=hundreds[persian.substring(7,8)];

roman+=tens[persian.substring(8,9)];

roman+=units[persian.substring(9,10)];
//este br iria romandashes+"<br>"+roman;


var result = romandashes+roman;

document.write(result);


}
</script>