El Cuentorro

<%@ Language=VBScript %> <% set CUENTO = Server.CreateObject("ADODB.Connection") CUENTO.Open "dsn=MNENOS;uid=;pwd=;" IF Request.Form.Count=0 then else nom=Request.Form("NOMBRE") em=Request.Form("EMAIL") aport=Request.Form("APORTA") pai=Request.Form("PAIS") ed=Request.Form("EDAD") If pai="" then pai="Desconocido" IF nom="" THEN nom="Anónimo" IF em="" then em="nomail" if aport="" then ELSE tim=CStr(time) fech=CStr(date) ipis=Request.ServerVariables("REMOTE_ADDR") Instcuento="INSERT INTO CUENTORRO (NOMBRE,EMAIL,EDAD,PAIS,APORTACION,IPES,HORA,FECHA) VALUES ('"+nom+"','"+em+"','"+ed+"','"+pai+"','"+aport+"...','"+ipis+"','"+tim+"','"+fech+"')" ON ERROR RESUME NEXT CUENTO.Execute(Instcuento) end if end if %> El Cuentorro

		Os vamos a contar lo que mi amiga Culebrilla y yo hemos escrito. ¡Espero que os guste mucho!
		Después vosotros tendréis que continuar la historia
		¡ALLÁ VAMOS!

      Salía Lolito de su casa cargadito de juguetes. Tenía prisa por llegar a casa de su amiguito Roque, para jugar con la pelota y soltar los globos y que estos volaran libres por el cielo.
      Hacía calor, era un día precioso. Lolito estaba contento y ansioso por ver a su amigo Roque. Todo parecía marchar bien. El camino era hermoso como siempre. Pero de pronto....
      -¿Qué es eso que veo allá lejos?- se preguntó Lolito.
      ¡Una palmera!
      Una palmera grande y verde había aparecido repentinamente en medio del camino. Lolito estaba boquiabierto. ¡Jamás la había visto antes y eso que pasaba por ese camino cada día para ir a la escuela.
      -¡Qué misterio tan sorprendente! ¿Cómo es posible que una palmera tan grande haya crecido en este camino de un día para otro?
      ¡Todo un enigma!
      Lolito estaba algo asustado. Aquello parecía magia. Pensó en regresar y encerrarse en su casa pero no lo hizo.
      -¡Debo ser valiente y investigar este misterio!- se dijo para infundirse ánimos.
      Y así lo hizo. Ni corto ni perezoso, Lolito se encaminó apresuradamente hacia la misteriosa palmera mágica.
<% dibujito=Array("balun.gif","pelota.gif","calvin.gif","casa.gif") d=0 obtdatos="SELECT NOMBRE,EDAD,PAIS,APORTACION FROM CUENTORRO" ON ERROR RESUME NEXT SET datoobt=CUENTO.Execute(obtdatos) dobt=datoobt.GetRows(100) datoobt.close for f=0 to Ubound(dobt,2) step 1 if d=4 then d=0 %>

<% d=d+1 f=f+1 if f > Ubound(dobt,2) then Response.Write("

<%Response.Write(dobt(0,f))%>
- <%Response.Write(dobt(1,f))%> años-
<%Response.Write(dobt(2,f))%>

<%Response.Write(dobt(3,f))%>

") exit for end if%> <%Response.Write(dobt(0,f))%>
- <%Response.Write(dobt(1,f))%> años-
<%Response.Write(dobt(2,f))%> <%Response.Write(dobt(3,f))%> <% next %>

¡CONTINÚA EL RELATO!