% Dim strConexao strConexao = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("ikeda.mdb") Set Conexao = Server.CreateObject ("ADODB.Connection") Conexao.Open strConexao %> <% Dim rs Set rs = Server.CreateObject("ADODB.Recordset") Set rs.ActiveConnection = Conexao 'dim teste 'teste= request("cod") 'response.write teste %>
|