Varios selects con una misma conexion

[Julcar]

Tengo esta funcion:

Código PHP:

   
<&#37;
 
Option Explicit
Dim Conn, RS
 
Function conectar(conn, RS)
 
Conn = Server.CreateObject("ADODB.Connection")
RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ 
Server.MapPath ("datos/clasificadosnet.mdb") & ";" 
end Function
%>
 
<%
Dim strSQL
 
strSQL = "SELECT categorias.id_categoria, categorias.nombre_categoria, categorias.orden_categoria "  & _
"FROM categorias ORDER BY categorias.orden_categoria ASC"
conectar(strsql)
%> 
   

y me da el sig error:

The script reported following error: Wrong number of arguments or invalid property assignment: 'conectar' (error number 0x800A01C2 hex)

In file /clasificadosnet/

on line 20, position 0 :


conectar(strsql)