<html>
<head>
</head>
<body>
<form method="post" action="sqltest.asp" id="frmSQL">
<table style="font-family: arial; font-size: 8pt;">
<tr>
<td>SQL Statement</td><td><input type="Text" id="txtSQL" name="txtSQL" size="100" value="<%=Request.form("txtSQL")%>"></td>
</tr>
<tr>
<td>Database</td><td><input type="text" id="txtDbase" name="txtDbase" value="<%=Request.form("txtDbase")%>"></td>
</tr>
<tr>
<td>User ID</td><td><input type="text" id="txtUserID" name="txtUserID" value="<%=Request.form("txtUserID")%>"></td>
</tr>
<tr>
<td>Password</td><td><input type="Password" id="txtPassword" name="txtPassword" value="<%=Request.form("txtPassword")%>"></td>
</tr>
<tr>
<td colspan="2"><input type="Submit"></td>
</tr>
</table>
</form>
<%
if len(Request.form("txtSQL")) > 0 then
dim cn, rs, i, cString
set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.Createobject("ADODB.Recordset")
cString = "DistribTx=0;Data Source=" & Request.form("txtDbase") & ";User ID=" & Request.form("txtUserID") & ";Password=" & Request.form("txtPassword") & ";"
with cn
.Provider = "ORAOLEDB.Oracle"
.Connectionstring = cString
.open
end with
dim sql
sql = Request.form("txtSQL")
rs.open sql, cn,3,3
if rs.eof = true then
Response.write "No Data in recordset"
else
rs.movefirst
%>
<table border="1" style="font-family: arial; font-size: 8pt;">
<tr bgcolor="#a4a4a4" style="font-weight: bold;">
<%
for i = 0 to rs.fields.count - 1
%>
<td><%= rs.fields(i).name %></td>
<%
next
%>
</tr>
<%
do until rs.eof = true
%>
<tr>
<%
for i = 0 to rs.fields.count - 1
%>
<td><%=rs.fields(i).value %></td>
<%
next
%>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
end if
end if
%>
</body>
</html>