Ver Mensaje Individual
  #5 (permalink)  
Antiguo 19/02/2002, 15:34
rinojose
 
Fecha de Ingreso: noviembre-2001
Ubicación: Madrid
Mensajes: 312
Antigüedad: 23 años, 6 meses
Puntos: 0
Re: error '80004005' , soy principiante

<!--#INCLUDE FILE="config.inc" -->
<%


'## Default.asp

'## Open DataBase Connection
'## (Change to include file soon!)

set my_conn= Server.CreateObject("ADODB.Connection")
my_conn.Open ConnString

'## Get Totals
set rs1 = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * from Totals"
rs1.open strSQL, my_conn

Users = rs1("U_Count")
Posts = rs1("P_Count")

rs1.Close
set rs1 = nothing

'## Get all Forums From DB
strSql = "SELECT * FROM Category"
set rs = my_conn.Execute (StrSql)

'## Do some Cookie bits to see when last here
session("last_here_date") = Request.Cookies("date")
Response.Cookies("Date") = now()
Response.Cookies("Date").Expires = dateadd("d",365,now())

' if never been here before, set last_here_date to -10 days
if Session("last_here_date") = "" then
Session("last_here_date") = dateadd("d",-10,now())
End if

'## Function to display new icon
Function isNew(dt)
if datediff("s", session("last_here_date"), dt) > 1 then
isNew = "<font face='" & DefaultFontFace & "' color='" & NewFontColor & "' size='1'>New"
Else
isNew = " "
End If
End Function
%>

algo mas del codigo por si la linea 11 no era suficiente.Estoy seguro q es de la base de datos pero como leñes se configura la conexion???