Abrir BD en una función

10/05/2005 - 16:54 por alba | Informe spam
Tengo una función que va insertada en cada página (al principio) para contar
las visitas. En dicha función se actualiza una BD.
En el resto de la página puede que se vuelva a abrir la misma BD u otra
distinta.
Bueno, el caso es que en modo local funciona correctamente pero al alojarla
en el servidor me falla.
Si pongo el contenido de dicha función en la página (como si fuera contenido
de la misma) funciona perfectamente tanto en el servidor como en local, pero
quisiera usar la función (por comodidad).

Existe algún impedimento para abrir una BD mediante una función y actualizar
los datos?
He comprobado que el fallo está al llamar a esa función.

contenido de pagina.asp :
<!--#include file="funciones.asp"-->
<%
Visita
%>
...


Contenido de funciones.asp:
<%
Option Explicit
...
otras funciones y procedimientos
...
Function FechaBD (expr, delim)
FechaBD = Trim(delim) & Year(expr) & "-" & Month(expr) & "-" & Day(expr) &
Trim(delim)
End Function

Sub AddVisita
'Añade una visita
Dim oConnx, rs, SQL, visitas
Set oConnx = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "DSN=golum98bis"
SQL = "SELECT * FROM visitas WHERE fecha=" & FechaBD(Date(), "#")
rs.Open SQL, oConnx, 1, 3
If rs.EOF Then
rs.AddNew
rs.Fields("Fecha") = Date()
rs.Fields("Hits") = 1
rs.Update
Else
visitas = rs.Fields("Hits")
rs.Fields("Hits") = visitas + 1
rs.Update
End If
rs.Close
oConnx.Close
Set rs = nothing
Set oConnx = nothing
End Sub

Sub Visita
If Session("Visitado") = "" Then
Session("Visitado") = False
End If
If Session("Visitado") = False Then
Session("Visitado") = True
AddVisita
End If
End Sub
%>

salu2
alba

Preguntas similare

Leer las respuestas

#1 Manuel Vera
10/05/2005 - 17:48 | Informe spam
Y cual es el error?
MV
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida