errore 800a01c2

**danielix05** · 26-10-2007, 10:36

******************************
http://forum.aspitalia.com/forum/pos...-800a01c2.aspx
******************************

ciao,
utilizzo questo codice

codice:

<%
	QSID = Request.QueryString("id")
	If QSID = "" OR NOT IsNumeric(QSID) OR QSID = Null Then
		QSID = 0
	Else
		QSID = cLng(Request.QueryString("id"))
	End If

	If Request.QueryString("a") = "conferma" Then
		FTitolo = Request.Form("Titolo")
		FLocalita = Request.Form("localita")
		FTesto = Request.Form("Testo")

		If QSID <= 0 Then
			Errore = Errore & "Il campo ID è obbligatorio (errore parametri)"
		End If
		If FTitolo = "" Then
			Errore = Errore & "Il campo Titolo è obbligatorio"
		End If
		If FTesto = "" Then
			Errore = Errore & "Il campo Testo è obbligatorio"
		End If

		SQL = " SELECT Titolo FROM Tabella WHERE Tabella.ID = "& QSID &" "
		Set RS = Server.CreateObject("ADODB.Recordset")
		RS.Open SQL, Conn, 1, 3
		If NOT RS.EOF Then
			FTitoloVecchio = RS("Titolo")
		End If
		Set RS = Nothing

		If Errore = "" AND FTitoloVecchio <> "" Then
			Set FSO = CreateObject("Scripting.FileSystemObject")

< RIGA 36 >	If FSO.FileExists(Server.MapPath("/rewr/vns/") & "\" & ConvertiTitoloInNomeScript(FTitoloVecchio, QSID)) Then
				Set Documento = FSO.GetFile(Server.MapPath("/rewr/vns/") & "\" & ConvertiTitoloInNomeScript(FTitoloVecchio, QSID))
				Documento.Delete
				Set Documento = Nothing
			End If

			SQL = " UPDATE Tabella SET Titolo = '"& Replace(FTitolo, "'", "''") &"', localita = '"& Replace(FLocalita, "'", "''") &"', Testo = '"& Replace(FTesto, "'", "''") &"' WHERE Tabella.ID = "& QSID &" "
			Set RS = Server.CreateObject("ADODB.Recordset")
			RS.Open SQL, Conn, 1, 3
			Set RS = Nothing

			Set Documento = FSO.OpenTextFile(Server.MapPath("/rewr/vns/") & "\" & ConvertiTitoloInNomeScript(FTitolo, QSID), 2, True)
			ContenutoFile = ""
			ContenutoFile = ContenutoFile & "<" & "%" & vbCrLf
			ContenutoFile = ContenutoFile & "VarID = "& QSID &"" & vbCrLf
			ContenutoFile = ContenutoFile & "%" & ">" & vbCrLf
			ContenutoFile = ContenutoFile & ""
			Documento.Write ContenutoFile
			Set Documento = Nothing
	
			Set FSO = Nothing
		End If
	End If
%>
<html>
<head>
	<title>Modifica</title>
</head>

<body>
<%
	SQL = " SELECT Titolo, Testo, localita FROM Tabella WHERE Tabella.ID = "& QSID &" "
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open SQL, Conn, 1, 3

	If NOT RS.EOF Then
		RS.MoveFirst
%>
	<form action="modifica.asp?id=<%=QSID%>&a=conferma" method="post">
		Titolo
		
<input type="textbox" name="Titolo" value="<%=Server.HTMLEncode(RS("Titolo"))%>" size="53" maxlength="50" />
		
Testo
		Località
		
<input type="textbox" name="localita" value="<%=Server.HTMLEncode(RS("localita"))%>" size="150" maxlength="150" />
		
<textarea name="Testo" rows="5" cols="40"><%=Server.HTMLEncode(RS("Testo"))%></textarea>
		
<input type="submit" name="modifica" value="Modifica" />
	</form>
<%
	End If
	Set RS = Nothing
%>
</body>
</html>
<%
	Conn.Close
	Set Conn = Nothing
%>

per modificare un db. tutto funzionava fino a 2 campi "Titolo e Testo", adesso sto cercando di inserire un altro campo "localita" ma mi restituisce questo errore.

codice:

Errore di run-time di Microsoft VBScript errore "800a01c2'

Numero errato di argomenti o assegnazione di proprietà non valida: 'ConvertiTitoloInNomeScript'

/rewr/vns/admin/modifica.asp, riga 36

dove sbaglio?

grazie.

**optime** · 26-10-2007, 10:40

l'errore parla chiaro! usi in maniera errata la funzione "ConvertiTitoloInNomeScript"

se tu hai una funzione (ad es)

Function Pippo(a,b,c)
...
End Function

e la chiami così

Pluto=Pippo(a1,b1,c1,d1,e1)

ti dà errore

rimedia!

**danielix05** · 26-10-2007, 12:26

ok, io guardavo sempre al file modifica.asp non pensando all'inclusione.

il fatto è che sto cercando di far visualizzare in query, nel mio caso si tratta di un url rewrite, oltre che al "titolo" e all"id" anche il campo "testo" separato non dal "-" ma da uno slash.

operazioni fallite proprio perchè non riesco a piazzare i valori senza avere come risposta l'errore 800a01c2_file.

non capisco e aspetto.

**Wama** · 26-10-2007, 15:19

If FSO.FileExists(Server.MapPath("/rewr/vns/") & "\" & ConvertiTitoloInNomeScript(FTitoloVecchio, QSID)) Then

non c'è un pò di incoerenza??

**danielix05** · 27-10-2007, 11:35

il fatto è che fintanto setto solo due parametri da convertire nell'url finale, quindi fintanto lascio titolo e id, tutto procede tranquillamente con questa funzione.

ma, vorrei, come già detto, inserire nell'url finale almeno la località separata da uno /

il risultato finale dovrebbe essere sito.it/id/localita/titolo.asp

ma non sto venendo a capo di questa funzione.

mannaggi

**optime** · 27-10-2007, 12:07

dani, se la funzione accetta 2 parametri, NON puoi dargliene 3.

**danielix05** · 30-10-2007, 10:59

quindi non c'è possibilità di mettere mano in questa funzione?

**optime** · 30-10-2007, 10:59

a danie', e io che ne so? è roba tua

**danielix05** · 30-10-2007, 15:01

ciao optime ho risolto con la variabile e la funzione, ma - secondo te - perchè non riesco a dividere le due variabili segnalate dalla riga 33 con lo slash??
ora il codice è questo

codice:

<%
	Function NoHTML(Stringa)
		Set RegEx = New RegExp
		RegEx.Pattern = "<[^>]*>"
		RegEx.Global = True
		RegEx.IgnoreCase = True
		NoHTML = RegEx.Replace(Stringa, "")
	End Function

	Function ConvertiTitoloInNomeScript(Titolo, localita, IDArticolo)
		Risultato = Titolo
		Risultato = NoHTML(Risultato)
		Risultato = LCase(Risultato)
		Risultato = Replace(Risultato, " ", "-")
		Risultato = Replace(Risultato, ":", "-")
		Risultato = Replace(Risultato, "*", "-")
		Risultato = Replace(Risultato, "?", "-")
		Risultato = Replace(Risultato, "<", "-")
		Risultato = Replace(Risultato, ">", "-")
		Risultato = Replace(Risultato, "|", "-")
		Risultato = Replace(Risultato, """", "")
		Risultato = Replace(Risultato, "'", "-")
		Risultato = Replace(Risultato, "(", "")
		Risultato = Replace(Risultato, ")", "")
		Risultato = Replace(Risultato, ",", "")
riga 33-->		Risultato = IDArticolo & "-" & localita & "-" & Risultato & ".asp"
		ConvertiTitoloInNomeScript = Risultato
	End Function
%>

vorrei che il segno in riga 33 fosse uno slash e non un trattino.
se sostituisco lo slash in quel punto, mi si restituisce questo errore

codice:

Errore di run-time di Microsoft VBScript errore "800a004c'

Impossibile trovare il percorso

/admin/aggiungi.asp, riga 33

la riga 33 è proprio quella indicata in grassetto.

perchè non funzia???

**optime** · 30-10-2007, 16:17

questa riga

Risultato = IDArticolo & "-" & localita & "-" & Risultato & ".asp"

non può dare un path/file access error, dato che FSO NON è coinvolto. la riga 33 sarà senz'altro un'altra...

Discussione: errore 800a01c2

Strumenti discussione

Ricerca discussione

Visualizza

errore 800a01c2

non saprei

ok ho risolto con i parametri

Permessi di invio