<%
Dim Tablename, strCodename
Tablename= request.form("Tablename")
strCodename= request.form("codename")
if Tablename <> "" then
sqlString = "SELECT * FROM " & Tablename &" WHERE Codename LIKE '" & strCodename & "'"
'Response.write("sqlString= " & sqlString)
'Open database connection
dim DataConn, cmdDC, rsDC, Item, iFieldCount, iLoopVar
' Create and establish data connection
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = 15
DataConn.CommandTimeout = 30
'Access connection code
'DataConn.Open "DBQ=" & Server.MapPath("IK_Web.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"
'Connection code for ODBC
DataConn.Open "testStudents"
' Create and link command object to data connection then set attributes and SQL query
set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConn
cmdDC.CommandText = sqlString
cmdDC.CommandType = 1
' Create recordset and retrieve values using command object
Set rsDC = Server.CreateObject("ADODB.Recordset")
' Opening record set with a forward-only cursor (the 0) and in read-only mode (the 1)
rsDC.Open cmdDC, , 0, 1
end if
%>
WKU Bio 113 Assignments
You must use the Blackboard
site to check your assignments.
