<!DOCTYPE html>
<html>
<body>
<%
set con=Server.CreateObject("ADODB.Connection")
con.Open("Provider=MSDAORA.1;user id=provide user name;password=provide password;datasource=service name in TNSNAMES.ORA file")
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "select filed1,filed2.... from tablename", con
%>
<table border="1" width="100%">
<%do until rs.EOF%>
<tr>
<%for each orec in rs.Fields%>
<td><%Response.Write(orec.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
con.close
%>
</table>
</body>
</html>
<html>
<body>
<%
set con=Server.CreateObject("ADODB.Connection")
con.Open("Provider=MSDAORA.1;user id=provide user name;password=provide password;datasource=service name in TNSNAMES.ORA file")
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "select filed1,filed2.... from tablename", con
%>
<table border="1" width="100%">
<%do until rs.EOF%>
<tr>
<%for each orec in rs.Fields%>
<td><%Response.Write(orec.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
con.close
%>
</table>
</body>
</html>
No comments:
Post a Comment