previsto end

[naps]

scusate mi potreste controllare se la sintassi e' giusta? sto
impazzendo..

<%
Dim recvedischede
Dim recvedischede_numRows

Set recvedischede = Server.CreateObject("ADODB.Recordset")
recvedischede.ActiveConnection = MM_connarchivioweb_STRING
If Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellodue, "'", "''") + "'"
else
If Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellotre, "'", "''") + "'"
End If
If Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
else
If Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
end if
If Session("MM_UserAuthorization") = "1" Then
recvedischede.Source = "SELECT * FROM archivio"
End If
recvedischede.CursorType = 0
recvedischede.CursorLocation = 2
recvedischede.LockType = 1
recvedischede.Open()

recvedischede_numRows = 0
%>

<%
recvedischede.Close()
Set recvedischede = Nothing
%>

e poi mi dice errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'

[Roby_72]

La sintassi deve essere:

if then
elseif then
elseif then
elseif then
else
end if

Roby

[Dirk Pitt]

<%
Dim recvedischede
Dim recvedischede_numRows

Set recvedischede = Server.CreateObject("ADODB.Recordset")
recvedischede.ActiveConnection = MM_connarchivioweb_STRING
If Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellodue, "'", "''") + "'"
else
If Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellotre, "'", "''") + "'"
End If
End If 
If Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
else
If Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
end if
End If
If Session("MM_UserAuthorization") = "1" Then
recvedischede.Source = "SELECT * FROM archivio"
End If
recvedischede.CursorType = 0
recvedischede.CursorLocation = 2
recvedischede.LockType = 1
recvedischede.Open()

recvedischede_numRows = 0
%>

Prova così.

[naps]

cosi?

<%
Dim recvedischede
Dim recvedischede_numRows

Set recvedischede = Server.CreateObject("ADODB.Recordset")
recvedischede.ActiveConnection = MM_connarchivioweb_STRING
If then Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellodue, "'", "''") + "'"
else if
Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellotre, "'", "''") + "'"
else if
Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
else if
Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
else
If Session("MM_UserAuthorization") = "1" Then
recvedischede.Source = "SELECT * FROM archivio"
End If
recvedischede.CursorType = 0
recvedischede.CursorLocation = 2
recvedischede.LockType = 1
recvedischede.Open()

recvedischede_numRows = 0
%>

:rollo:

[Roby_72]

Ho detto

elseif

non

else if

http://www.w3schools.com/vbscript/tr...=vbdemo_elseif

Roby

[naps]

neanche cosi':

<%
Dim recvedischede
Dim recvedischede_numRows

Set recvedischede = Server.CreateObject("ADODB.Recordset")
recvedischede.ActiveConnection = MM_connarchivioweb_STRING
If Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellodue, "'", "''") + "'"
elseif
Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellotre, "'", "''") + "'"
elseif
Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
elseif
Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
else
Session("MM_UserAuthorization") = "1" Then
recvedischede.Source = "SELECT * FROM archivio"
End If
recvedischede.CursorType = 0
recvedischede.CursorLocation = 2
recvedischede.LockType = 1
recvedischede.Open()

recvedischede_numRows = 0
%>

[Roby_72]

elseif Session("MM_UserAuthorization") = "3" Then

...
...

Roby

[naps]

perdonami

ora funziona tutto alla GRANDE!


naps