.:" & atleta & ":. || Sports Time México

<% if session("editor") = "" 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 & "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/" & DB_)) SQL = "INSERT INTO atletas (atleta, carpeta, status) VALUES ('" & atleta & "', '" & carpeta & "', 'A')" DB.execute(SQL) SQL = "SELECT * FROM atletas WHERE carpeta = '" & carpeta & "'" rs.open SQL, DB, 3, 3 id = rs.fields("id") rs.close DB.close response.Redirect("atletaAgregaImg.asp?id=" & id) end if %> Agregar Atleta - sportstime.com.mx

Ingresa el Nombre del Atleta: