<%
Option Explicit
'Written by: Lukas Tan
'Written on: 21/04/2010
'Altered on: 21/04/2010
'Runs lots of queries usign an ODBC connection string that doesn't specify a default database
'Arguments (HTTP Get)
'--------------------
'None
'Constants
'---------
'None
'Variables
'---------
dim localDBConn
dim localDBConnString
dim localDBResult
dim query 'DB query
dim queryCount 'Query counter
'Javascript
'----------
'None
'Main
'----
'HTML
%>
No Default Database
Starting.....
<%
'Init DB connection string
localDBConnString = "Driver={MySQL ODBC 5.1 Driver}; Server=localhost; Port=19196; User=lolcats; Password=meow; Option=3;"
'Notes re connection string:
'* No "Database=_____"
'* User lolcats has SELECT privilege on schema lolcats
'Init query
query = "SELECT tbl_kittehs.kitteh_id, tbl_kittehs.kitteh_name "
query = query & "FROM lolcats.tbl_kittehs "
'Run lots of queries, with a new DB connection each time
for queryCount = 1 to 5000
'Report to user
response.write("Query # " & querycount & "
")
response.flush 'Force output
'Init DB connection
set localDBConn = Server.CreateObject("ADODB.Connection")
localDBConn.Open localDBConnString
set localDBResult = Server.CreateObject("ADODB.recordset")
localDBResult.CursorType = 0 'adOpenForwardOnly
localDBResult.LockType = 3 'adLockOptimistic
'Run the query
localDBResult.open query, localDBConn
'Print sample query result
response.write("Result line 1: [" & localDBResult("kitteh_name").Value & "]
")
'Close DB connection
set localDBResult = nothing
localDBConn.close
next 'queryCount
'HTML
%>
All done!