%@language=VBScript%> <% dim oRS, sqltext ' create a pointer to an object 'set crit to be the url workid crit = Request.QueryString("workid") sqltext = "SELECT * FROM genres" Set oConn = Server.CreateObject("ADODB.Connection") strConn = "Driver={MySQL}; DATABASE=garycarpenterdb; UID=garycarpenter; PASSWORD=garyin2db;" oConn.Open strConn Set oRS=Server.CreateObject("ADODB.RecordSet") 'create the object oRS.ActiveConnection = oConn oRS.open sqltext, oConn ' perform the quer %>