Base d datos en Brinkster

ELEONS · #1 (**permalink**) 17/02/2002, 17:49

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>

ELEONS · #2 (**permalink**) 17/02/2002, 17:52

<tr valign="top">
<td height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= strThought %></font></td>
</tr>
<tr valign="top">
<td height="22" align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&copy;<a href="http://www.stylusinc.com">Stylusinc.com</a></font></td>
</tr>
</table>
</td>
</tr>
</table>
<% ObjRSSel.close
Set ObjRSSel = Nothing
Set objConn = Nothing

%>

Pues bien esto se conecta a una baase de datos pero he intentado poner la conexion de a cuerdo a como brinkster lo manda pero no lo he conseguido, alguien me puede ayudar??

Gracais

Nochero · #3 (**permalink**) 18/02/2002, 00:01

Estas intentando conectar al DNS=Photo y en Brinkster como en otros no podes, tenes que usar DSN-less.

Reemplaza la linea
objConn.open "DSN=Photo"
por estas 2 :

Set objConn = Server.CreateObject("ADODB.connection")

objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\TuSitio\db\basededatos.mdb&q uot;) & ";")

Suerte :)

ELEONS · #4 (**permalink**) 18/02/2002, 12:58

Pos eso era lo que ya no daba hecho.

Muchisimas Gracias

ELEONS · #5 (**permalink**) 22/02/2002, 12:33

Ya lo conecte y ahora intento hacer que en vez de cambiar la foto cada día lo haga cada semana, Como puedo hacerlo??

Muchas gracias