|
Ricerca in:
|
<%
Dim sConn
Dim objCmd
Dim path
Dim rs
Dim NColl
Dim par1, par2, par3, par4
par1 = 0
par2 = 0
par3 = 0
par4 = 0
sConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("catalogo.mdb")
Set objCmd = Server.CreateObject("ADODB.Command")
Set objCon = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
objCon.Open sConn
strSql = "SELECT DISTINCT collocazione FROM Collocazione"
objCmd.ActiveConnection = objCon
objCmd.CommandText = strSql
set rs = objCmd.Execute(sConn)
if not rs.eof then
response.write ""
end if
%>
|
