%@ Language=VBScript %> <% CID = Request.querystring("CID") MainID = Request.querystring("MainID") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "GPALSDB","Admin","" StrSql = "SELECT * FROM Tools " StrSql = StrSql & "WHERE cID = " & CID & " " Set RS = Conn.Execute(StrSql) Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "GPALSDB","Admin","" StrSql = "SELECT * FROM Tools_Category " StrSql = StrSql & "WHERE cID = " & CID & " " Set RS2 = Conn.Execute(StrSql) %>
|
||||||||||||||||||||||||||||||||||||||||||||