%@ codepage="874" %> <% On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") 'conn.Open "PROVIDER=SQLOLEDB;" & _ '"DATA SOURCE=Oasis;DATABASE=WWW_Static;" & _ '"USER ID=user;PASSWORD=user;" conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("servey.mdb") set RS =Server.CreateObject("ADODB.Recordset") rs.open "Select * from Servey_STOUCHANNEL",Conn,1,3 %>
|