Newsgroup: it.comp.www.asp
Titolo: WIN98 ed NT (lungo ma importante)

Come al solito vi scrivo per un problema, questa volta abbastanza urgente.
Ho realizzato delle pagine asp che interrogano un database.
Con WIN 98 funzionano.
Portandolo su WIN NT non funzionano più.
Il consulente contattato mi ha chiesto se i file sono compatibili con IIS3
perchè secondo lui potrebbero esserci delle incompatibilità tra 98 ed NT.
Questo di seguito è il codice di uno dei file:
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<title>Elenco Documenti Imposte</title>
</head>
<body bgcolor="#73add6">
<%
Param = Request.QueryString("Param")
Data = Request.QueryString("Data")
%>
<%
If IsObject(Session("ricerca_conn")) Then
    Set conn = Session("ricerca_conn")
Else
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open "ricerca","",""
    Set Session("ricerca_conn") = conn
End If
%>
<%
    sql = "SELECT * FROM ElencoFiscale  WHERE
(((ElencoFiscale.Imposte)=Yes))   "
    If cstr(Param) <> "" And cstr(Data) <> "" Then
        sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data)
    End If
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
%>
<font FACE="Comic Sans MS" COLOR="#000000">
<p>Elenco Documenti Imposte </font></p>
<table>
  <tr>
    <td><table BORDER="0" BGCOLOR="#73add6" CELLSPACING="0" width="100%">
      <tr>
        <td><TBODY> <%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
 %> </td>
      </tr>
      <tr VALIGN="TOP">
        <td BORDERCOLOR="#c0c0c0"><font SIZE="2" FACE="Comic Sans MS"
COLOR="#000000"><img
        src="info.gif"
ALT="<%=Left(Server.HTMLEncode(rs.Fields("Descrizione").Value),900)%>..."
        width="24" height="24"> <%
if rs.Fields("Nuovo").Value=-1 Then
%> <img src="new.gif" width="31" height="12"> <%
Else
%><%
End if
%> <%
if rs.Fields("Dichiarazioni").Value=-1 Then
%> <img src="dich.gif">
<%
Else
%><%
End if
%><%
if rs.Fields("Sanzioni").Value=-1 Then
%>        <img src="sanz.gif"> <%
Else
%><%
End if
%> <%
if rs.Fields("Istruzioni").Value=-1 Then
%> <img src="istr.gif"> <%
Else
%><%
End if
%> <%
if rs.Fields("Normativa").Value=-1 Then
%> <img src="norm.gif"> <%
Else
%><%
End if
%> <a
HREF="<%=Server.HTMLEncode(rs.Fields("Doc_URL").Value)%>"><%=Server.HTMLEnco
de(rs.Fields("Titolo").Value)%></a>&nbsp;&nbsp; </font></td>
      </tr>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT>
</TFOOT>
    </table>
    </td>
  </tr>
</table>
</body>
</html>
L'errore che dava (non ricordo bene il messaggio) diceva che non riusciva ad
accedere ad un registro (purtroppo non ricordo il nome).
Può darsi che qualche istruzione scritta qui non sia compatibile o abbia
qualche altro problema esistenziale.
Confido in voi.
Marco D'Onofrio

 Il consulente contattato mi ha chiesto se i file sono compatibili con IIS3
....

Non so se il consulente ha gli occhiali o no comunque sono riuscito a
recuperare il messaggio di errore
Microsoft OLE DB Provider for ODBC Drivers Error '80004005' [Microsoft]
[ODBC Access 97 ODBC driver Driver] General error Unable to open registry
key 'DriverId'.
Per quanto riguarda il modo di programmare sono un disordinato, quello è il
risultato di continue modifiche per l'impaginazione e le condizioni che
scrivevo :-))).
Marco D'Onofrio

 wrote in message
news:8ep2jl$enr$1...@pegasus.tiscalinet.it...
