| <%dim dbasepath, provider
' path when viewed alone
dbasepath = Server.MapPath("../fpdb/wamdata.mdb") 'original path that works when used inside include
' path when included in another page
'dbasepath = Server.MapPath("fpdb/wamdata.mdb")' when not used in an include
provider = "Microsoft.Jet.OLEDB.4.0"
'variables
dim Conn, Connstring, Sql_Get, TheArray, Recordset
'database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = provider
Conn.ConnectionString = dbasepath
Conn.Open
'Sql statement
Sql_Get="SELECT * FROM sponsortbl where active='y' ORDER BY Company_name"
Set Recordset = Conn.Execute(Sql_Get)
'get the recordset data in memory using getrows()
TheArray = RecordSet.Getrows
'Response.Write ("test print of array" & TheArray(2,1))
Dim pointer, numrecs
numrecs=UBound(TheArray,2) +1
'response.write(" number of datafiles is : " & numrecs)
%>
|
|
