Ciao a tutti!!!! sono alle prime armi per cui ho bisogno di aiutoooo....
Ho creato una pagina asp con dreamweaver che ha il seguente codice per la connessione al db:
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_prodotti_STRING
MM_prodotti_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= c:\Inetpub\wwwroot\sitotelefoninoserver\mdb-database\Prodotti1.mdb"
%>
dopodichè ho creato un'altra pagina asp dalla quale richiamo la connessione e creo dei recorset... che ha il seguente codice:

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Risulatatimodello
Dim Risulatatimodello_numRows

Set Risulatatimodello = Server.CreateObject("ADODB.Recordset")
Risulatatimodello.ActiveConnection = MM_prodotti_STRING
Risulatatimodello.Source = "SELECT Modello FROM Prodotti1"
Risulatatimodello.CursorType = 0
Risulatatimodello.CursorLocation = 2
Risulatatimodello.LockType = 1
Risulatatimodello.Open()

Risulatatimodello_numRows = 0
%>
<%
Dim Risultatimarca
Dim Risultatimarca_numRows

Set Risultatimarca = Server.CreateObject("ADODB.Recordset")
Risultatimarca.ActiveConnection = MM_prodotti_STRING
Risultatimarca.Source = "SELECT Marca FROM Prodotti1"
Risultatimarca.CursorType = 0
Risultatimarca.CursorLocation = 2
Risultatimarca.LockType = 1
Risultatimarca.Open()

Risultatimarca_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Risulatatimodello_numRows = Risulatatimodello_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 10
Repeat2__index = 0
Risultatimarca_numRows = Risultatimarca_numRows + Repeat2__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 10
Repeat2__index = 0
Risulatatimodello_numRows = Risulatatimodello_numRows + Repeat2__numRows
%>


Questa è una pagina ASP creata alle ore
<%= Time %>




<table width="750" border="0" cellspacing="0" cellpadding="0">

<tr>
<td>
<%
Risulatatimodello.Close()
Set Risulatatimodello = Nothing
%>
<table border="1">
<tr>
<td>Modello</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT Risulatatimodello.EOF)) %>
<tr>
<td><%=(Risulatatimodello.Fields.Item("Modello").V alue)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Risulatatimodello.MoveNext()
Wend
%>
</table>

</td>
<td>
<%
Risultatimarca.Close()
Set Risultatimarca = Nothing
%>
<table border="1">
<tr>
<td>Marca</td>
</tr>
<% While ((Repeat2__numRows <> 0) AND (NOT Risultatimarca.EOF)) %>
<tr>
<td><%=(Risultatimarca.Fields.Item("Marca").Value) %></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Risultatimarca.MoveNext()
Wend
%>
</table>
</td>
</tr>
</table>
</p>

Se vado in anteprima mi da il seguente errore :

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0411)
Nome ridefinito
/sitotelefoninoserver/TMP107tixcrji.asp, line 48, column 4
Dim Repeat2__numRows
---^



Se qualcuno può dirmi cosa sbaglio gliene sarai molto grato !!!!
Thanks