<% if session("autorizado") = "" then response.Redirect("index.asp") end if nota = "" guarda = request.QueryString("guarda") if guarda = "si" then atleta = request.Form("atleta") carpeta = Replace(atleta," ","") imagen = request.Form("imagen") 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 & "atleta = " & 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 atleta,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=" + Server.MapPath("../../db/_spmdb.mdb")) SQL = "INSERT INTO atletas (atleta, carpeta, imagen, status) VALUES ('" & atleta & "', '" & carpeta & "', '" & imagen & "', 'A')" set rs= DB.execute(SQL) set rs = nothing DB.close nota = "
El atleta " & atleta & " ha sido agregado." end if %> .:Agrega Atleta:. || Sports Time México

Ingresa el Nombre del Atleta:

<%= nota %>
Nombre del Atleta:
Imagen:
 
<<Regresar al menu