<% if session("autorizado") = "" then response.Redirect("index.asp") end if guarda = request.QueryString("guarda") if guarda = "si" then atleta = request.Form("atleta") carpeta = Replace(atleta," ","") dim fs,f,tfile set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.CreateFolder("D:\websites\internetworkshost\sportsti\sportstime.com.mx\web\" & carpeta) set tfile=fs.CreateTextFile("D:\websites\internetworkshost\sportsti\sportstime.com.mx\web\" & carpeta & "\index.asp") texto = "" & vbcr texto = texto & "<" & chr(37) & vbcr texto = texto & "modulo=cstr(request.QueryString(" & chr(34) & "modulo" & chr(34) & "))" & vbcr texto = texto & "cont=cstr(Request.QueryString(" & chr(34) & "cont" & chr(34) & "))" & vbcr texto = texto & "deporte = " & chr(34) & carpeta & chr(34) & vbcr texto = texto & chr(37) & ">" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & ".:" & atleta & ":. || Sports Time México" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr texto = texto & "
" & vbcr texto = texto & "<" & chr(37) & vbcr texto = texto & "contenido deporte,modulo,cont" & vbcr texto = texto & chr(37) & ">" & vbcr texto = texto & "
" & vbcr texto = texto & "" & vbcr texto = texto & "" & vbcr tfile.WriteLine(texto) tfile.close set f=fs.CreateFolder("D:\websites\internetworkshost\sportsti\sportstime.com.mx\web\imagenes\" & carpeta) set tfile=nothing set f=nothing set fs=nothing Set DB = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:/websites/sportstime.com.mx/httpdocs/db/_spmdb.mdb") SQL = "INSERT INTO atletas (atleta, carpeta) VALUES ('" & atleta & "', '" & carpeta & "')" set rs= DB.execute(SQL) set rs = nothing DB.close end if %> .:Agrega Atleta:. || Sports Time México

Ingresa el Nombre del Atleta:
Nombre del Atleta: