%@LANGUAGE = VBScript %> <% DBug = TRUE%> <% on error resume next dim mySQL, connTemp, rsTemp, rsCount, pid call opendb() Set rsTemp = Server.CreateObject("ADODB.Recordset") %>