ASP - MySQL

[Spychaser]

Buenas, tengo una consulta sobre como utilizar el codigo de asp en bases de datos MySQL. El problema que tengo es que no me toma el siguiente codigo, tira error.
Este codigo lo utilizo para contar los click de los usuarios. Lo que me ocurre es que si tiene que actualizar y es un solo campo lo hace si y es mas de uno con eset sistema no lo hace y da error multiple...
Mi temor es tener que pasar la mayoria del codigo a php porque no me tome el codigo original ASP.

Alguna idea ¿?
Muchas gracias

CODIGO EN ASP que da error.

Código:

<%dia= day(now)%>
<%mes= month(now)%>
<%ano= year(now)%>
<%fecha = (dia)& "/" &(mes)& "/" &(ano) %>
<%

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open basestats

strsql = "SELECT * FROM pages WHERE page = " & Codigo & " and tipo= '" & tipo & "' and fecha= '" & fecha & "'" 

Set rsp = Server.CreateObject("ADODB.RecordSet")
RSp.open strsql, oConn, 3, 3
Server.ScriptTimeOut = 180

if rsp.eof then
'aca reemplasaria el insert to
    rsp.AddNew
    rsp("clicks")= 1
    rsp("page") = Codigo
	rsp("fecha") = Cstr(fecha)  
	rsp("tipo") = tipo
    rsp.update
else

'y aca el update pages set la la

    rsp("clicks")=rsp("clicks")+1
	
    rsp.update
end if 

rsp.Close
set rsp=nothing
oConn.Close

%>

Codigo en ASP con toques PHP que anda.

Código:

<%Fechita= Cstr(dia) & "/" & Cstr(mes) & "/" & Cstr(ano) %>
<%Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
oConn.Open basestats
rs.CursorType=1
rs.LockType=2
SQL="SELECT * FROM pages WHERE page = " & Codigo & " and tipo= '" & tipo & "' and fecha ='"&fech&"' " 
'"SELECT * FROM pages WHERE page = " & Codigo & " and tipo= '" & tipo & "' and fecha= '" & fechita & "' " 
rs.Open SQL, oConn
if rs.eof then
cli=1
strSQL = "INSERT INTO pages (fecha , clicks  , page , tipo ) values ( '"& fech & "' , " & cli & " , "& codigo& " , '"& tipo& "')"
   oConn.Execute(strSQL) 
else
clis=rs("clicks")+1


strSQLn = "update pages SET clicks = " & clis & " WHERE page = " & Codigo & " and tipo= '" & tipo & "' and fecha ='"&fech&"' "

   oConn.Execute(strSQLn) 
end if 
rs.Close
oConn.close
set rs=nothing
set oConn=nothing%>

[u_goldman]

Y cual es el error?

[Spychaser]

u_goldman.
Gracias por responder, aca posteo el error y en donde se ubica.
Aclaro que no es porque uso formato fecha sino que da error aun poniendo cero o texto.

Muchas gracias.

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
stats.asp, line 30

y la linea 30 es
rsp("fecha") = fecha <========== linea 30

Aca va el codigo de nuevo

Código:

<%dia= day(now)%>
<%mes= month(now)%>
<%ano= year(now)%>
<%fecha = (dia)& "/" &(mes)& "/" &(ano) %>
<%

 


Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open basestats

strsql = "SELECT * FROM pages WHERE page = " & Codigo & " and tipo= '" & tipo & "' and fecha= '" & fecha & "'"

Set rsp = Server.CreateObject("ADODB.RecordSet")
RSp.open strsql, oConn, 3, 3
Server.ScriptTimeOut = 180

if rsp.eof then
'aca reemplasaria el insert to
    rsp.AddNew
    rsp("clicks")= 1
    rsp("page") = Codigo
 rsp("fecha") = fecha                   <========== linea 30
 rsp("tipo") = tipo
    rsp.update
else

'y aca el update pages set la la

    rsp("clicks")=rsp("clicks")+1
 
    rsp.update
end if

rsp.Close
set rsp=nothing
oConn.Close

%>

[u_goldman]

Bueno, en principio en lugar de utilizar el metodo addnew, yo te recomendaria correr otra sentencia SQL.

Código:

if rs.EOF
  strSQL = "INSERT INTO bla bla bla"
  ObjConn.Execute(strSQL)
end if

Saludos

[Spychaser]

u_goldman
Muchas gracias por la pronta respuesta, pero mi intencion es mantener el codigo o si existe alguna forma de salvarlo sin meterle mano a todo.
Muchas gracias.

[u_goldman]

Pues no se, podria ser un tipo de dato incorrecto, asegurate de estar pasando un tipo de dato fecha. Y la recomendacion es porque realmente ese procedimiento es un poco deficiente, pero bueno cada quien .

Saludos

[Adharmaghoris]

if rsp.eof then
'aca reemplasaria el insert to
rsp.AddNew
rsp("clicks")= 1
rsp("page") = Codigo
rsp("fecha") = fecha <========== linea 30
rsp("tipo") = tipo
rsp.update
else

__________________________________________________ ______________
rsp("fecha") = Trim(fecha) <========== linea 30
__________________________________________________ _______________
rsp("tipo") = tipo
rsp.update
else

************************************************** ******

[Gusys]

Te da error por que en base de datos MySQL si tienes un campo tipo DateTime o Date tienes que trabajar con el siguiente formato de fecha YYYY-MM-DD HH:MM:SS prueba en cambiar tu formato de fecha y veras que te guarda el campo... :D

Saludos