Expected statement

[Diplodus]

Ciao a tutti.
Le meraviglie del web (per me) non finiscono mai.

Ho questo errore:

Microsoft VBScript compilation error '800a0400'

Expected statement

/mafiarsala/include/layer_sx.asp, line 7

End If
^

e il codice alla linea 7 è questo:
<option value="<%=u%>" selected<% End If %> <% If u = iMonth Then %>>

dov'è che sbaglio? grazie a chi volesse aiutarmi e anche a coloro che non lo vorrà

[viki1967]

prova così:

<option value="<%=u%>" selected<% End If %> <% If u = iMonth Then %>">

[SGr33n]

Questo errore indica che hai chiuso un if inesistente alla riga 7, quindi dovresti incollarci un pò tutto il codice fino alla riga n. 7.

[maximum]

In ogni caso in questo codice vedo un "end if" a se e a seguire un "if ... then" senza "end if".

<option value="<%=u%>" selected<% End If %> <% If u = iMonth Then %>">

Quindi, o c'è l'errore di fondo, oppure questa riga è parte di un contesto più ampio e allora se è così devi postarci il codice di tutta la pagina.

[Diplodus]

E' un file di inclusione.
ma la cosa bella è che nel server missioneapollo.com funziona, mentre nel server occhiocieco.it no.
Sarà perchè il primo è un server serio mentre il secondo è aruba?

<td width="180" align="center" valign="top"><% CALL DisplaysmallCalendar(sMonth, iYear) %>
<form method="post" action="index.asp">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td> <select name="month" class="form">
<% For u = 1 To 12 %>
<option value="<%=u%>" selected<% End If %> <% If u = iMonth Then %>>
<%=Left(NameFromMonth(u),3)%></option>
<% Next %>
</select> </td>
<td> <select name="year" class="form">
<% For y = 2003 To 2050 %>
<option <% If y = iYear then %> selected <% End if %>><% = y %></option>
<% Next %>
</select> </td>
<td> <input type="submit" name="Submit" value="<% = strLangDateGo %>" class="form">
</td>
</tr>
</table>
</form>
<% = strLangCurrentMonth %>







[img]immagini/powered.gif[/img]
</td>

[SGr33n]

Il server ha ragione... c'è una chiusura di "statement" che non è aperta... proprio quell'end if alla riga 7

mi sa che hai stravolto un pò il codice... ad intuito direi che è:

<option value="<%=u%>" <% If u = iMonth Then Response.Write("selected")%>>

Sostituisci la riga 7 con questa, ho fatto in modo che non ci sia bisogno di chiudere lo statement, così togliamo da mezzo baracche e baracchelle :P

Bye

[Diplodus]

non cambia nulla.. sempre lo stesso errore mi da...
qui funziona
qua invece no
e il codice è uguale uguale uguale!!!

[maximum]

Il fatto che funzioni, non vuol dire che sia corretto (cito la famosa firma di weppos).

Ad ogni modo secondo me questo blocco di codice:

<% For u = 1 To 12 %> 
<option value="<%=u%>" selected<% End If %> <% If u = iMonth Then %>> 
<%=Left(NameFromMonth(u),3)%></option> 
<% Next %>

va rettificato così:

<% For u = 1 To 12 %> 
<option value="<%=u%>"><% If u = iMonth Then %>selected<% End If %>>
<%=Left(NameFromMonth(u),3)%></option> 
<% Next %>

[Roby_72]

Io farei così, occhio agli spazi, anche l'HTML vuole la sua fetta di "correttezza":

<% For u = 1 To 12 %> 
<option value="<%=u%>"><%If u = iMonth Then%> selected="selected"<%End If%>>
<%=Left(NameFromMonth(u),3)%></option> 
<% Next %>

Roby

[Diplodus]

niente.. sempre lo stesso errore...