connessione database e ricerca dati

[02perla]

Ciao
sono alle prime armi con la costruzione di un database.
Ho inserito la seguente stringa.......che ovviamente non funziona.


code:
--------------------------------------------------------------------------------

<div id="Layer1" style="position:absolute; left:300px; top:151px; width:501px; height:193px; z-index:1">
<%
Dim connSet conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/db1.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT top 15 * from tabella1 order by id")
Do While NOT objRs.EOF
<table width="500" height="108" border="1"> <tr>
<td width="117"> </h5>response.write "foto = " & objRs("foto")</td> <td width="179"></h5>response.write "nome sito = " & objRs("nome sito")</td>
<td width="182"> </h5>response.write "descrizione = " & objRs("descrizione")</td> </tr>
</table>
Conn.Close Set Conn=Nothing
%>
</div>

--------------------------------------------------------------------------------

Volevo effetuare la connesione al database e far apparire all'interno della tabella i record indicati.

Grazie
Elena

[ThePenguin]

<%
'apro la connessione con il db
set myConn = server.CreateObject("ADODB.Connection")
dim strConnDb
strConnDb = ""
strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/Clienti.mdb")
myConn.Open(strConnDb)
mySqlSelect = "select * from tabella order by id"
set myRSComS = server.CreateObject("ADODB.Recordset")
myRSComS.Open mySqlSelect, myConn
%>
   <div class="testibarra">

<%
	if not(myRSComS.EOF) and not(myRSComS.BOF) then	
		do while not(myRSComS.EOF)	%>
		 
		 <table width="450" cellpadding="0" cellspacing="0" style="margin-bottom: 5px;" border="1" bordercolor="#FFFFFF"> 
		  <tr>
		   <td width="20" align="left" style="padding-left:5px"><%response.write(myRSComS("Id"))%></td>
		   <td width="430" align="left" style="padding-left:5px">Data e Ora:<%response.write(myRSComS("Data"))%><%response.write(myRSComS("ora"))%>
IP Locale:<%response.write(myRSComS("iplocale"))%>
IP Remoto:<%response.write(myRSComS("ipremoto"))%>
Download File Pdf:<%response.write(myRSComS("download"))%></td>
		  </tr>
		 </table>
		 <% myRSComS.MoveNext
		loop
	else
%>   
     <div class="elencomessaggi">Al Momento non ci sono <%=Titoletto%></div>
<%end if
myRSComS.Close
set myRSComS=nothing	
myConn.Close
set myConn=nothing%>

   </div>

non sono stato lì a modificare il codice secondo le tue esigenze ma questo funziona ed è un codice valido per l'accesso e la lettura dei record da un db access

[nekke]

<div id="Layer1" style="position:absolute; left:300px; top:151px; width:501px; height:193px; z-index:1">

<%
set  conn = Server.CreateObject("ADODB.Connection")

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/db1.mdb")

Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT top 15 * from tabella1 order by id")

Do While NOT objRs.EOF
%>

<table width="500" height="108" border="1"> <tr>
<td width="117"> </h5>response.write "foto = " & objRs("foto")</td> <td width="179"></h5>response.write "nome sito = " & objRs("nome sito")</td>
<td width="182"> </h5>response.write "descrizione = " & objRs("descrizione")</td> </tr>
</table>
<%
objRS.movenext
loop

Conn.Close 
Set Conn=Nothing
%></div>

[santino83_11_04]

http://asp.html.it/guide/leggi/62/guida-asp-di-base/