<!-- #include file = "_myFunctions.asp"-->
<%
Dim DB, SQL, rs
dim fs,tfile
set fs=Server.CreateObject("Scripting.FileSystemObject")
set tfile=fs.CreateTextFile(server.MapPath("flashVars.txt"))
Set DB = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\" & DB_)
tipo = request.QueryString("tipo")
SQL = "SELECT * FROM " & tipos(tipo) & " WHERE status = 'A'"
rs.open SQL, DB, 3, 3
while not rs.eof
	varz = varz & rs.fields("id") & "," & rs.fields("titulo") & ","
	rs.movenext
wend
tfile.WriteLine("notas=" & chr(34) & varz & chr(34) & "")
tfile.close
set tfile=nothing
set fs=nothing
%>