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%>