Asp/Access Php/MySql

Example of Generic SQL Select Response

Using VBScript, ASP, ADO and a OLEDB Connection

Prepared by Lon Hosford

 
Back to index
  
<!-- Name = WebClubSQL.asp -->

<html>
<head>
<title>
Web Masters SQL
<!-- #include file = "adovbs.inc" -->

</title>
</head>
<body>
<%
set oRs = nothing
set oConn = Server.CreateObject("ADODB.Connection")

ConnString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" 
ConnString = ConnString & Request.ServerVariables("APPL_PHYSICAL_PATH") & "WebMaster.mdb"
response.write "<center>Connection String = " & ConnString & "</center>"

oConn.open ConnString
'oConn.Open "Lon"

SQL = Request.Form("SQL")
set oRs = oConn.Execute (SQL)
response.write "<center>SQL Statement = " & SQL
%>
<table border = 1 align=center>
   <tr>
      <%for each field in oRs.Fields %>
         <td valign = "Top" align = "left">
            <table>
               <tr>
                  <td valign = "Top"><b><%= field.name %></b><td>
               </tr>
               <tr>
                  <td valign = "Top" align = "left">
                      <font size="-2">
                      Size: <%= field.DefinedSize %>
                      <br>
                      Type: [<%= field.Type %>] -
                      <% If field.Type = adVarChar then %>
                         Text
                       <% elseIf  field.Type = adSmallInt then %>
                         Integer
                       <% elseIf  field.Type = adInteger then %>
                         Long
                       <% elseIf  field.Type = adSingle then %>
                         Single
                       <% elseIf  field.Type = adDouble then %>
                         Double
                       <% elseIf  field.Type = adCurrency then %>
                         Currency
                       <% elseIf  field.Type = adDate then %>
                         Date
                       <% elseIf  field.Type = adTime then %>
                         Time
                       <% elseIf  field.Type = adBoolean then %>
                         Boolean
                       <% else %>
                         Not listed in program
                      <% End If %>
                   </font>
                  </td>
                </tr>
            </table>
          </td>
       <%next%>
   </tr>
<% do while not oRs.Eof %>

   <tr>
      <%for each field in oRs.Fields %>
      <td>
         <%= field.value %>
      </td>
      <%next%>
   </tr>

   <%ors.movenext
loop%>

</table>
</body>
</html>