<%@ Language=VBScript %> <% dim rs dim objConn set objConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString = "DSN=pca;uid=sa;pwd=;" objConn.Open %>
 
   
   
 
 
 
<% rs.Close objConn.Close set rs = nothing set objConn = nothing %>