% Dim mySessionID mySessionID = Session.SessionID 'dtbs = Server.MapPath(".") & "\Data\sitenimonweb.mdb" 'set con = Server.CreateObject("Adodb.connection") 'con.Provider= "Microsoft.Jet.OLEDB.4.0;Data Source=" &dtbs& " " '";Jet OLEDB:Database Password=" &pass& " " 'con.Open '"server="& serv &";database="& 'Set rs = Server.CreateObject("ADODB.Recordset") ''Set rs1 = Server.CreateObject("ADODB.Recordset") 'Set rs2 = Server.CreateObject("ADODB.Recordset") %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||