Hola amigos otravez con otra pregunta lo que pasa que me manda el siguiente mensaje
Error de compilación de Microsoft VBScript (0x800A0400)
Se esperaba una instrucción
/hit.asp, line 19
"WHERE url = '"&thisURL&"'"
Si le quito a mi script la linea
"WHERE url = '"&thisURL&"'"
corre perfectamente pero el problema es que tengo que ir a la base de datos directamente y modificar mi tabla y no quiero eso si no que me guarde el registro en mi variable.
Espero me puedan ayudar y aqui les dejo mi codigo
<html>
<head>
<title>Pagina nueva 1</title>
<!-- #include file = "adovbs.inc" -->
</head>
<body>
<%
thisURL = Request.ServerVariables("PATH_INFO")
Response.Write "<p> El url de esta pagina es: " & thisURL & _
"</p>" & vbCrLf
Set cnn1 = Server.CreateObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("coinclub.mdb")
cnn1.Open openStr,"",""
sql = "SELECT url, hitcnt, lasthit FROM hitcounts"
"WHERE url = '"&thisURL&"'"
Set rsHits = Server.CreateObject("ADODB.Recordset")
rsHits.Open sql, cnn1, 2, 2, 1
On Error Resume Next
If rsHits.EOF Then
Response.Write"<p>No hay definido ningun contador</p>"
Else
curCount = rsHits("hitcnt") + 1
rsHits("hitcnt") = curCount
rsHits("lasthit") = Now()
rsHits.Update
Response.Write"<p>Accesos a esta paginas son</p>" & curCount
End If
cnn1.Close
Set cnn1 = Nothing
rsHits.Close
Set rsHits = Nothing
%>
</body>
</html>
