% Set RS = Server.CreateObject( "ADODB.Recordset" ) If IsObject(Con) = false Then Set Con = Server.CreateObject( "ADODB.Connection" ) Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\inetpub\champions\kickboxing\champbeta1\mas_2000.mdb;" End If ' Get the Product Informatino sqlString1 = "SELECT PersonalProfiles.lname,PersonalProfiles.fname," &_ " logs.profileId,logs.date, Personalfinance.contactid,logs.logId," &_ " Personalfinance.currentrankid, logs.notes, PersonalProfiles.id" &_ " FROM logs, Personalprofiles, Personalfinance " sqlString = "SELECT logs.date FROM logs" RS.ActiveConnection = Con set RS= Con.execute ( sqlString ) %>
![]() |
![]() |
![]() |
|||
|
|
|
![]() |
![]() |
![]() |
||
|
Receive informative newsletters and current events by entering your e-mail address.
|
|
Name: Charlie Kelsch Rank: Hi-Brown Belt
|
![]() |
||||
|
125 East 1st Street
North Vancouver, BC
604-983-3799
|