<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
IESE
<%
strDSN = "Driver={MYSQL};server=localhost;database=ftprevi_iese;uid=ftprevi_est;pwd=y10ba01"
set cnnDB = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
On Error Resume Next
' Abrimos la BD
cnnDB.Open strDSN
'no actualitzava les estadístiques per Anglés
if cnnDB.state=adstateclosed then
cnnDB.Open strDSN
end if
' Iniciamos la cadena SQL
strSQL="SELECT * FROM estadisticas WHERE ((URL LIKE '%" & Request.ServerVariables("HTTP_REFERER") & "%') AND (fecha_baja IS NULL))"
rs.Open strSQL,cnnDB,3,3
If (rs.EOF) Then
Else
idPag=rs("idPagina")
strSQL2="UPDATE estadisticas SET impresiones=impresiones+1 WHERE idPagina=" & idPag
rs.Close
rs.Open strSQL2,cnnDB,3,3
End If
'Response.Write(strSQL)
set rs = Nothing
cnnDB.Close
set cnnDB = Nothing
%>