
19/02/2002, 15:34
|
| | 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 = "&nbsp;"
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??? |