|
<%
if request.querystring("NOTISINO")="N" then
Query = "Select * from clasificados where (tipo='N' or tipo='NC') And Celular='A'"
else
Query = "Select * from clasificados where (tipo='N' or tipo='NC') And Celular='A' And Email='S'"
end if
sDB = "db3.mdb"
sScriptDir = Request.ServerVariables("SCRIPT_NAME")
sScriptDir = StrReverse(sScriptDir)
sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/"))
sScriptDir = StrReverse(sScriptDir)
sPath = "c:\clientes\codetel\adm@topodata.com\topodata.com\www\asp\"
sDSNFil = "c:\clientes\codetel\adm@topodata.com\topodata.com\www\asp\access.dsn"
'sPath = "D:\WEBS\TOPODATA.COM.DO\WWW\ASP\"
'sPath=Server.MapPath(sScriptDir) & "\"
'sDSNFil = "D:\WEBS\TOPODATA.COM.DO\WWW\ASP\access.dsn"
sDSN = "filedsn=" & sDSNFil & ";DefaultDir=" & sPath & ";DBQ=" & sPath & sDB & ";"
set Rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.CursorType = 3
rs.Open Query,sDSN,3
%>
|
