% dim myconnection dim rs, rs2 dim strlanes dim strstates dim SQLQuery set myconnection = Server.CreateObject("ADODB.Connection") myconnection.open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\db\kegler.mdb")) SQLQuery = "Select * from keglerstats;" set rs = Server.CreateObject("ADODB.Recordset") set rs = myconnection.Execute(SQLQuery) rs.movefirst str1990 = rs("Since1990") strlanes = rs("TotalLanes") strstates = rs("TotalStates") strcenters = rs("Centers") set rs=Nothing set myconnection=Nothing %>
|
|||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||