<%@ Language=VBScript %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "dsn=MNENOS;uid=;pwd=;" IF Request.Form.Count=0 then else nom=Request.Form("NOMBRE") em=Request.Form("EMAIL") opi=Request.Form("CONTINUARA") IF nom="" THEN nom="Anónimo" END IF IF em="" then em="nomail" END IF if opi="" then ELSE tim=CStr(time) fech=CStr(date) ipis=Request.ServerVariables("REMOTE_ADDR") Instruccion="INSERT INTO FLECHA (NOMBRE,EMAIL,CONTINUARA,IPES,HORA,FECHA) VALUES ('"+nom+"','"+em+"','"+opi+"...','"+ipis+"','"+tim+"','"+fech+"')" 'Response.Write(Instruccion) Conn.Execute(Instruccion) end if end if %>

Ahora te toca a ti ponernos la carne de gallina.
Continúa este relato intentando que sea lo más escalofriante posible. Esta es tu oportunidad para convertirte en un genio del terror. Ánimo y adelante.

<% Instruccion="SELECT NOMBRE,CONTINUARA,EMAIL FROM FLECHA" Set RS=Conn.Execute(Instruccion) %> <% ' Crea 100 filas en una segunda matriz v=RS.GetRows(100) RS.close Conn.close %> <% for row = 0 to UBound(v,2) 'Le resto 1 ya que la ultima es la mia ' repetición a través de las filas en la matriz %> <%for col = 0 to UBound(v,1)-1%> <%next%> <%next%>

      Mitsuo se ajustó la larga y negra túnica que lo recubría y se internó en la obscuridad. La flecha del gran Mago Ballone acababa de cruzarse ante sus atemorizados ojos. No le quedaba más opción que hundirse en las tinieblas y seguirla. Su deseo era alcanzar el poder mágico de su maestro Ballone, solo superando sus espeluznantes pruebas de terror lo conseguiría. Así que, aunque su corazón estaba más atemorizado que nunca, aunque su piel se había erizado hacía ya un buen rato y aunque sus rodillas temblaban sin descanso, se abrió paso entre las sombras de la noche y se encaminó a las catacumbas de Mandei. Mandei, la ciudad maldita lo aguardaba repleta de horrores y espantos, con la única misión de arrancarle el valor, la vida y el alma.
       Respiró hondo y empujó la destartalada puerta de carbón que flanqueaba la ciudad maldita.
       -Estoy preparado- murmuró Mitsuo.
       No lo estaba, desde luego. Ningún ser mortal está preparado nunca para soportar los terrores de Mandei, la ciudad eternamente maldita.
       Caminaba Mitsuo con el corazón encogido entre una obscuridad mortal que lo atenazaba, cuando de pronto...

<%if (row mod 2)=0 then Response.Write("") else Response.Write("") end if %> <%IF col=0 THEN IF v(2,row)="nomail" then Response.Write(v(col,row)) else Response.Write(""+v(col,row)+"") end if else Response.Write(v(col,row)) end if%>

CONTINUA EL RELATO