Errore inspiegabile!!!

[chycky]

Salve a tutti,

ho questo codice asp che da qualche giorno cerco di capire come mai mi da errore,

allora per prima vi faccio vedere il codice:

<form action= "update_txt.asp" method= "post">
<table align="center" border="0" width="500">

<%
Dim strVirtualPath, strFilename, Vars, Commenti, Commento, InizioCommento, FileObject, oInStream, strOutput, Buf, Idx, Index, ParteVariabile, ParteCommento
strVirtualPath = "Connections/inc_txt.asp"

strFilename = Server.MapPath(strVirtualPath)

Idx = 0
Index = 0
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0)
While NOT oInStream.AtEndOfStream
strOutput = oInStream.ReadLine
Buf = Ucase(Left(Trim(strOutput), 3))
Commento = ""
If Trim(Left(Buf, 1)) <> "" and Left(Buf, 1) <> "'" and Left(Buf, 1) <> "<" and Left(Buf, 1) <> "%" Then
If Buf <> "DIM" then
InizioCommento = InStrRev(strOutput, "'")
ParteVariabile = Replace(Mid(strOutput, 1, Len(InizioCommento) - 1), "=", "{[(~)]}", 1, 1)
ParteCommento = Mid(strOutput, InizioCommento + 1)
Commenti = Split(strOutput, "'")
If Len(InizioCommento) - 1 > 0 Then
Vars = Split(Trim(ParteVariabile), "{[(~)]}")
Commento = Trim(ParteCommento)
Else
Vars = Split(strOutput,"{[(~)]}")
If Len(Ubound(Vars)) - 1 > 0 Then
Commento = Trim(Vars(0))
End If
End If
If Len(Ubound(Vars)) - 1 > 0 Then
%>
<tr>
<td bgcolor="#FFFFEC" valign=top><b><%=Commento%></b><br>
<%
If Trim(Ucase(Vars(1))) <> "TRUE" and Trim(Ucase(Vars(1))) <> "FALSE" Then
Vars(1) = Replace(Vars(1), "<br>", vbCrLf)
If Mid(Trim(Vars(1)),1,1) = """" And Mid(Trim(Vars(1)),Len(Trim(Vars(1))),1) = """" Then
%>
<input type="hidden" Name= "Tipo<%=Index%>" Value="True">
<textarea Name= "<%=Trim(Vars(0))%>" cols="40" rows="5" style="width=380"><%=Replace(Mid(Trim(Vars(1)),2,Len(Trim(Vars(1)))-2),"""""","""")%></textarea>
<br><%
Else
%>
<input type="hidden" Name= "Tipo<%=Index%>" Value="False">
<textarea Name= "<%=Trim(Vars(0))%>" cols="40" rows="5" style="width=380"><%=Trim(Replace(Vars(1),"""",""))%></textarea>
<br><%
End If
%>
<input type="hidden" Name= "Commento<%=Index%>" Value="<%=Commento%>">
<br><%
Else
%>
<input type="hidden" Name= "Tipo<%=Index%>" Value="False"><input <%If Trim(Ucase(Vars(1))) = "TRUE" Then%>Checked<%End If%> type="Radio" Name= "<%=Trim(Vars(0))%>" Value="true">Sì&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input <%If Trim(Ucase(Vars(1))) = "FALSE" Then%>Checked<%End If%> type="Radio" Name= "<%=Trim(Vars(0))%>" Value="false">No<input type="hidden" Name= "Commento<%=Index%>" Value="<%=Commento%>"><br>
<%
End If
%>
</td>
</tr>
<%
End If
Else
%>
<input type="hidden" Name= "Tipo<%=Index%>" Value="False"><input type="hidden" Name= "Dim" Value="<%=strOutput%>"><input type="hidden" Name= "Commento<%=Index%>" Value="<%=Commento%>">
<%
End If
Else
%>
<input type="hidden" Name= "Tipo<%=Index%>" Value="False"><input type="hidden" Name= "Null<%=Idx%>" Value="<%=strOutput%>"><input type="hidden" Name= "Commento<%=Index%>" Value="<%=Commento%>">
<%
idx = idx + 1
If Mid(strOutput, 1, 2) = "'#" Then
If Mid(strOutput, 1, 3) = "'##" Then
%>
<tr>
<td>&nbsp;

</td>
</tr>
<tr>
<td valign=top><br>
<center><font color="#2B4062" size=3><b><%=Mid(strOutput, 4)%></b></font></center><br>
</td>
</tr>
<%
Else
%>
<tr>
<td valign=top>
<center><font color#2B4062"><b><%=Mid(strOutput, 3)%></b></font></center>
</td>
</tr>
<%
End If
End If
End If
Index = Index + 1
Wend
%>
<tr>
<td nowrap valign=top align="right">
<br><input type="Submit" Name= "Go" Value= "Modifica"> <!-- Non modificare il nome di questo campo -->
</td>
</tr>
</table>
</form>

come vedete ho sottolineato in rosso il punto che modificandolo in questo modo:

ParteVariabile = Replace(Mid(strOutput, 1, InizioCommento - 1), "=", "{[(~)]}", 1, 1)

mi da il seguente errore:
Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi: 'Mid'
/ecommerce/admin/modifica_parole.asp, line 41

invece la cosa strana che inserendolo come prima, cioè:

ParteVariabile = Replace(Mid(strOutput, 1, Len(InizioCommento) - 1), "=", "{[(~)]}", 1, 1)

la pagina viene visualizzata ma non con i vari campi del form, non solo lo stesso script lo utilizzato anche per un altro sito e funziona perfettamente.

Non so più come fare, cmq se c'e qualcuno che ha un pò di tempo a dedicare a questo script e vedere cosa non va.
Grazie 1000 in anticipo.

 

[daviduccio]

perché iniziocommento è una variabile String e quindi scrivere:


pippo-1 non ha senso!

ha senso invece:

len(pippo)-1

perché tradotto viene:

5-1=4


Ciao.

 

[chycky]

ciao daviduccio,

grazie per la risposta, ma come dicevo prima la cosa strana e che in questo modo:

Len(InizioCommento) - 1)

non mi visualizza i campi del form con i commenti, in prattica questa pagina deve inserire dei commenti nei vari campi del form, il file che deve legere e il seguente:

strVirtualPath = "Connections/inc_txt.asp"

quindi stavo dicendo che su questo sito non funziona e su l'altro si, ovviamente tutte due in localhost.....

 

[daviduccio]

Mmmmm, non avevo letto il tuo codice.......

prova con

cint(Iniziocommento)-1

 

[chycky]

ciao daviduccio,

la tua soluzione non va, mi da sempre errore MID.....
che strazio....non riesco a capire da che cosa dipende.

 

[PoLe]

ciao daviduccio,

la tua soluzione non va, mi da sempre errore MID.....
che strazio....non riesco a capire da che cosa dipende.

Il metodo:
ParteVariabile = Replace(Mid(strOutput, 1, len(InizioCommento) - 1), "=", "{[(~)]}", 1, 1)
è giusto, controlla piuttosto che la variabile InizioCommento non sia vuota, perchè l'errore potrebbe dipendere da questo

:byebye:

 

[chycky]

ciao PoLe

il punto e che la funzione:

ParteVariabile = Replace(Mid(strOutput, 1, len(InizioCommento) - 1), "=", "{[(~)]}", 1, 1)

non mi da errore, e che non mi visualizza i campi del form...
e a dire la verrità questa funzione:

ParteVariabile = Replace(Mid(strOutput, 1,InizioCommento - 1), "=", "{[(~)]}", 1, 1)

lo utilizzata per un altro sito e funziona regolarmente....

 

[PoLe]

...
il punto e che la funzione:
...
non mi da errore, e che non mi visualizza i campi del form...
e a dire la verrità questa funzione:
...
lo utilizzata per un altro sito e funziona regolarmente....

Allora, come diceva Morandotti, un metodo infallibile per risolvere qualsiasi problema consiste nell'incorporarlo in uno maggiore

Postaci il codice della pagina così, ci siamo un'occhiata :byebye:

 

[chycky]

ciao PoLe,

grazie per il tuo interessamento,

il codice della pagina e il primo post che ho inserito nel forum, inserisci i tag html, ed e fatta, e tutto li il codice non c'e altro, anzi si, ma e un file di testo che viene letto atraverso il INCLUDE File e che i campi del form devono inserire i valori ritrovati nel file di testo...o pure se si fanno delle modifiche nel form vengono salvate in questo file.... tutto qua.

:byebye: , grazie.

 

[PoLe]

ciao PoLe
...
il codice della pagina e il primo post che ho inserito nel forum...

Ah ah ah ah, è vero, che scemo che sono!!!!! :quote:

Scusami chycky, ma stamattina sono davvero fuso!

Appena ho un pò di tempo do un occhio allora, ciao! :byebye:

 

[chycky]

Appena ho un pò di tempo do un occhio allora, ciao!

guarda che cosi ci rimani cieco.

grazie PoLe....

 

[PoLe]

guarda che cosi ci rimani cieco.

grazie PoLe....

Eh eh

Comunque a prima vista non sembra ci siano errori (tieni conto che non ho provato il codice, l'ho solo guardato).

Sono tuttavia abbastanza convinto che si verifichi un errore nel passaggio delle variabili, e che qualcuna di queste, essendo vuota, mandi in bomba tutto

Prova ad iniziare a controllare la variabile Iniziocommento che valore ha, per poi controllare anche le altre.

Ora vado, buon week-end! :byebye: