Ciao a tutti,
lo so che il codice si dovrebbe scrivere con il notepad, ma io anche per capire velocemente come funzionano le asp sto provando il suddetto programma.
Il problema è questo, ho creato un recordset per interrogare il db northwind ma il browser non lo legge, il codice è questo:
------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/provanorth.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_provanorth_STRING
Recordset1.Source = "SELECT * FROM Clienti"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table border="1">
<tr>
<td>IDCliente</td>
<td>NomeSocietà</td>
<td>Contatto</td>
<td>Posizione</td>
<td>Indirizzo</td>
<td>Città</td>
<td>Zona</td>
<td>CAP</td>
<td>Paese</td>
<td>Telefono</td>
<td>Fax</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
<tr>
<td><%=(Recordset1.Fields.Item("IDCliente").Value)%></td>
<td><%=(Recordset1.Fields.Item("NomeSocietà").Value)%></td>
<td><%=(Recordset1.Fields.Item("Contatto").Value)%></td>
<td><%=(Recordset1.Fields.Item("Posizione").Value)%></td>
<td><%=(Recordset1.Fields.Item("Indirizzo").Value)%></td>
<td><%=(Recordset1.Fields.Item("Città").Value)%></td>
<td><%=(Recordset1.Fields.Item("Zona").Value)%></td>
<td><%=(Recordset1.Fields.Item("CAP").Value)%></td>
<td><%=(Recordset1.Fields.Item("Paese").Value)%></td>
<td><%=(Recordset1.Fields.Item("Telefono").Value)%></td>
<td><%=(Recordset1.Fields.Item("Fax").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
------------------------------------------
mi spiegate se cè qualcosa che non va?
la connessione è con un dns e questo è il codice:
----------------------------------------------
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_provanorth_STRING
MM_provanorth_STRING = "dsn=northwind;"
%>
-------------------------------------------------
e infine questo è il messaggio d'errore che mi compare con Ie5
------------------------------------------------
Informazioni tecniche (per il personale del supporto tecnico)
Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Impossibile usare "(sconosciuto)". File già in uso.
/sito di prova/pagine/TMP1ypvi5b6rj.asp, line 8
Tipo di browser:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
Pagina:
GET /sito di prova/pagine/TMP1ypvi5b6rj.asp
Ora:
sabato 9 novembre 2002, 13.30.57
----------------------------------------------------
Vi ringrazio per le risposte e mi scuso per la prolissità del messaggio, ma sono davvero alle prime armi.
Un saluto
Alfonso Pone
