%
Dim conn, rs
Dim connStr, mySQL, blackBeltID
blackBeltID = Request.QueryString("ID")
if blackBeltID = "" then
blackBeltID = 1
end if
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
connStr = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\gearhost\hostingaccounts\datakey2\4dbs\arango\aw.mdb;"
'connStr = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\arangowarrior\aw.mdb;"
mySQL = "SELECT * FROM profile WHERE blackBeltID = " & blackBeltID
conn.Open(connStr)
rs.Open mySQL, conn
%>
The Martial Arts Insitute - Black Belt Instructors