Newsgroup: it.comp.www.asp
Titolo: [URGENTISSIMO x favore...] Mi spiegate xche IE5.5 mi da questo errore?

Dunque quando carico la suddetta pagina da un link normalissimo in href IE
mi da un problema scrivendo
aggiorna
http 500.(qualcosa)   errore server ASP
internet information services
ora vi posto l'intera pagina!!! Chi ha tempo di vederla mi dice dove puo'
essere l'errore???Uso un DB access 97
ecco il codice:
----------------------------------------------------------------------------
----------------------------------------------------------------------------
-----------
<html>
<% language = "vbscript"
Dim ObjConnection
Dim RSCodcommessa
Dim RSCdc
Dim RSCdr
%>
<head>
    <title>Ricerca</title>
</head>
<body bgcolor = "#F3FLAF">
    <font face="arial black"color="#680a68" size"+4"><h1
align="center">RICERCA</H1></FONT>
<%
      indirizzo = Session("Indirizzo") + "irvin/attivita.asp"
    response.write "<form name='Ricerca' action =" & indirizzo &
"method='post'>"
    response.write "<br>"
    response.write "<br>"
    response.write "<center> <table border = 2>"
   Set ObjConnection = Server.CreateObject("ADODB.Connection")
   ObjConnection.open "ADOIrvin"
   RSCodcommessa = "select gcc_cod_int from gc_comms"
   Set RSCodcommessa = ObjConnection.Execute(RSCodcommessa)
   if not RSCodcommessa.EOF then
     response.write "<TR>"
     response.write "<TD>COMMESSA</TD>"
     response.write "<TD>"
     response.write "<select name='cbo_codcommessa'>"
       Do while not RSCodcommessa.EOF
             response.write " <option>'" & RSCodcommessa("gcc_cod_int") &
"'</option>"
             RSCodcommessa.movenext
       loop
       response.write "</select>"
       response.write "</TD>"
       response.write "</TR>"
       RSCodcommessa.close
   end if
    response.write "<TR>"
    response.write "<TD>COGNOME</TD>"
    response.write "<TD><input name = 'Txt_cognome' type = 'text'></TD>"
    response.write "<TD>NOME</TD>"
    response.write "<TD><input name = 'Txt_nome' type = 'text'></TD>"
    response.write "</TR>"
    response.write "<TR>"
    response.write "<TD>DAL</TD>"
    response.write "<TD><input name = 'Txt_dal' type = 'text'></TD>"
    response.write "<TD>AL</TD>"
    response.write "<TD><input name = 'Txt_al' type = 'text'></TD>"
    response.write "</TR>"
    response.write "<TR>"
    response.write "<TD>ORE</TD>"
    response.write "<TD><input name='Txt_ore' type='text'></TD>"
    response.write "<TD>"
    response.write "<select name='cbo_segni'>"
    response.write "<option>  >  </option>"
    response.write "<option>  <  </option>"
    response.write "<option>  =  </option>"
    response.write "<option>  >= </option>"
    response.write "<option>  <= </option>"
    response.write "</TD>"
    response.write "</TR>"
   Set ObjConnection = Server.CreateObject("ADODB.Connection")
   ObjConnection.open "ADOIrvin"
   RSCdc = "select gcd_cod_int from gc_cdc"
   Set RSCdc = ObjConnection.Execute(RSCdc)
   if not RSCdc.EOF then
       response.write "<TR>"
       response.write "<TD>CDC</TD>"
       response.write "<TD>"
       response.write "<select name='cbo_cdc'>"
       Do while not RSCdc.EOF
             response.write " <option>'" & RSCdc("gcd_cod_int") &
"'</option>"
             RScdc.movenext
      loop
        response.write "</select>"
        response.write "</TD>"
        response.write "</TR>"
        RSCdc.close
  end if
  Set ObjConnection = Server.CreateObject("ADODB.Connection")
   ObjConnection.open "ADOIrvin"
   RSCdr = "select id_cdr from cdr"
   Set RSCdr = ObjConnection.Execute(RSCdr)
   if not RSCdr.EOF then
     response.write "<TR>"
     response.write "<TD>CDR</TD>"
     response.write "<TD>"
     response.write "<select name='cbo_cdr'>"
       Do while not RSCdr.EOF
             response.write "<option>'" & RSCdr("id_cdr") & "'</option>"
             RSCdr.movenext
      loop
    response.write "</select>"
    response.write "</TD>"
    response.write "</TR>"
    RSCdr.close
  end if
response.write "</table>"
response.write "<br>"
response.write "<input type = 'submit' name = 'BTINVIA' value = 'Ricerca'>"
response.write "</form>"
%>
</body>
</FORM>
</html>

Di prima vista, cosě, la dichiarazione del linguaggio č fatta in maniera
errata.
O modifichi in questo modo:
<html>
<%
Dim ObjConnection
Dim RSCodcommessa
Dim RSCdc
Dim RSCdr
%>
...
oopure:
<%@ language="vbscript"%>
<html>
<%
Dim ObjConnection
Dim RSCodcommessa
Dim RSCdc
Dim RSCdr
%>
Ma forse l'errore č piů sotto, non so.
Ciao,
Andrea Z.

l'errore è la dichiarazione di script: deve essere cosi:
<%@ Script language=VBScript %>
i tag ASP devono essere chiusi ( <% .... %> ) e ci deve essere la at @@@@@
di seguito il codice o html o asp.
Bye !!