home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 September
/
CHIPCD_9_99.iso
/
software
/
uaktualnienia
/
OptionPackPL
/
iis4_07.cab
/
SimpleQuery_JScript.asp
< prev
next >
Wrap
Text File
|
1998-04-27
|
1KB
|
69 lines
<%@ LANGUAGE = JScript %>
<HTML>
<HEAD>
<TITLE>Simple ADO Query</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Simple ADO Query with ASP</b></font><br>
<hr size="1" color="#000000">
Contacts within the Authors Database:<br><br>
<%
var oConn;
var oRs;
var curDir;
// Map authors database to physical path
curDir = Server.MapPath("\\iissamples\\sdk\\asp\\database\\authors.mdb");
// Create ADO Connection Component to connect with
// sample database
oConn = Server.CreateObject("ADODB.Connection");
oConn.Open("DBQ="+curDir+";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;");
// Execute a SQL query and store the results within
// recordset
oRs = oConn.Execute("SELECT * From authors");
%>
<TABLE border = 1>
<%
while (!oRs.eof) { %>
<tr>
<% for(Index=0; Index < (oRs.fields.count); Index++) { %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% } %>
</tr>
<% oRs.MoveNext();
}
%>
</TABLE>
<%
oRs.close();
oConn.close();
%>
</BODY>
</HTML>