17/02/2002, 17:49
|
| | | Fecha de Ingreso: diciembre-2001
Mensajes: 248
Antigüedad: 23 años, 4 meses Puntos: 0 | |
| Base d datos en Brinkster
Buenas encontré este código para hacer lo de la imagen del día:
<% Option Explicit
Dim strID,strThought,strPhoto,intCount
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Photo / Thought for the Day</title>
</head>
<body bgcolor="#FFFFFF">
<%Dim intDays,intStart,rsSite,rsTopNumber,objConn
set objConn =server.createobject("ADODB.connection")
objConn.open "DSN=Photo"
set rsTopNumber=objConn.execute("select count(*) from tblPhoto")
intCount = rsTopNumber(0)
rsTopNumber.close
set rsTopNumber=Nothing
intDays = DatePart("y",now)
intStart = intdays Mod intCount
intStart = intStart + 1
Dim sqlSELsite,ObjRSSel
sqlSELsite = "SELECT fldID,fldThought,fldPhoto FROM tblPhoto WHERE fldID = '" & intStart & "'"
Set ObjRSSel = Server.CreateObject("ADODB.Recordset")
ObjRSSel.Open sqlSELsite,objConn
strID = ObjRSSel(0)
strThought = ObjRSSel(1)
strPhoto = ObjRSSel(2)
%>
<table width="170" border="0" cellpadding="1" cellspacing="0" bgcolor="#CC0000">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
<tr bgcolor="#FFCCCC" valign="top">
<td height="20" bgcolor="#CC0000">
<div align="center"><font face="Arial, Helvetica, sans-serif" color="#FFFFFF" size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Photo/Thought
for the Day</font></b></font></div>
</td>
</tr> |