%@Language=VBScript%> <% Dim cnH Dim rsH, rsU Dim i Set cnH = Server.CreateObject("ADODB.Connection") Set rsH = Server.CreateObject("ADODB.Recordset") cnH.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/Farming.mdb") & ";User Id=admin;Password=;" %>
|
|||||||||||