codice:
<html>
<head>
<title>Vedi database</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK href="../utilities_Marco/verdana.css" type="text/css" rel="stylesheet">
</head>
<body>
<div align="right">
<script type = "text/javascript" language = "JavaScript" src = "http://www.larianaweb.com/myasg/stats_js.asp"> </script>
</div>
<%
'Stringa per la connessione
cString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/prova.mdb")
'set connession to database
Set objConn=Server.CreateObject("ADODB.Connection")
'open connession to database
objConn.Open cstring
Set rs = Server.CreateObject("ADODB.Recordset")
nometabella="test" ' inserisci qui il nome della tabella da vedere
sql = "SELECT * from "&nometabella&""
'apro il rs
rs.Open sql, objConn, 3, 3 'cursore dinamico
rs.movefirst
%>
<center><table border="0" width="80%">
<tr>
<td align="center">Questa è la tabella <%=nometabella%></td>
</tr>
</table>
<%
if rs.eof then
%>
<center><table border="0" width="80%">
<tr>
<td align="center">Niente dati</td>
</tr>
</table>
</center>
<%
else
%>
<table class="gialloc" border="1" cellspacing='1' cellpadding='1' width="40%">
<tr>
<%
For Each campo in rs.Fields
Response.Write ("<td align='center'>"&campo.name&"</td>")
Next
%>
</tr>
<%
rs.movefirst
do until rs.eof
%><tr><%
For Each campo in rs.Fields
Response.Write ("<td>"&campo.value&"</td>")
next
%></tr><%
rs.movenext
loop
end if
%>
</table>
</center>
<%
rs.close
set rs=nothing
'chiudo tutto
objConn.close
set objconn=nothing
%>
<div align="right">[img]/images/earth.gif[/img]</div>
<div align="right"> LarianaWeb HomePage</div>
</body>
</html>
Rispondi quotando
