<%Response.Buffer = True%>
Agregar Pregunta
<% ' Cadena de conexion Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("foro\efivent\foro.mdb") %> <% ' Objeto de conexion Dim con Set con = Server.CreateObject("ADODB.Connection") con.Open connStr ' Recordset Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' conectamos rs.Open "select [ID],[Files],[cuando],[por] from foro order by [cuando] desc", con, 3, 4 If Not rs.EOF Then Dim recCount recCount = rs.RecordCount Response.Write "" Dim rsID Dim x x=0 While Not rs.EOF If Len(rsID) < 1 Then rsID = rs("ID") End If Dim f Response.Write "") rs.MoveNext Wend ' If recCount > 5 Then ' con.Execute("DELETE * FROM Files WHERE ID < " & rsID) ' End If Else Response.Write "No se encontró ninguno" End If rs.Close Set rs = Nothing con.Close Set con = Nothing %>
" Response.Write "Cuestiones en base de datos: " & recCount Response.Write "


" Response.Write "
Id: " Response.Write rs("ID") & "" f=1 Response.write("Realizada por: '") Response.write rs.fields("por") Response.write("', con última modificación a fecha: ") Response.write rs.fields("cuando") Do WHILE f<=rs("files") if ( x mod 2 >0 )then Response.write ("

") else Response.write ("

") end if x=x+1 Dim mio Dim MyFile Dim i i = CSTR(rs.fields("id")) mio = Server.MapPath(".") mio = mio +"\foro\efivent\" ' mio = mio+"\" MyFile = mio+i MyFile =MyFile +"-" MyFile =MyFile +CSTR(f) MyFile =MyFile +".txt" ' response.write MyFile ' MyFile = MyFile+rs("ID")+"_"+f+".txt" ' response.write MyFile 'Opens the guestbook file if it exists Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject") IF MyFileObj.FileExists(MyFile) THEN Set MyTextFile=MyFileObj.OpenTextFile(MyFile) 'Reads a line, and outputs it WHILE NOT MyTextFile.AtEndOfStream %> <% response.write MyTextFile.ReadLine%> <% WEND 'Closes the textfile MyTextFile.Close else response.write "Fichero inexistente, por favor comuníquelo al administrador." END IF' Does file exist 'Response.Write "" 'Response.Write rs("Files") & "

" 'Response.Write rs("software") & "" f=f+1 response.write("

") LOOP x=0 Response.Write ("

") Response.write ("Responder") Response.write("