Cita:
Iniciado por JuanRAPerez 
juela, hoy es viernes mi estimado y tengo un monton que hacer
pero si tienes un select hecho con un while para mostrar datos ese puedes usar.....
trata has parte de tu codigo y luego me sale mas facil agarrar el tuyo y orientarte
suerte
Mira... Así voy! Me da error! Código PHP:
<%
Dim query,cn,rs,sql,dbpath,id_cte,fechai_cte,nom_cte,tip_cte,rif_cte,dir_cte,tel_cte,fax_cte,contac_cte,mail_cte
id_cte = ucase(Request("id_cte"))
fechai_cte = Date
nom_cte = ucase(Request("nom_cte"))
tip_cte = ucase(Request("tip_cte"))
rif_cte = ucase(Request("rif_cte"))
dir_cte = ucase(Request("dir_cte"))
tel_cte = Request("tel_cte")
fax_cte = Request("fax_cte")
contac_cte = ucase(Request("contac_cte"))
mail_cte = Request("mail_cte")
dbpath="masstramites.mdb"
strcxn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(dbpath)
query="SELECT rif_cte FROM clientes WHERE rif_cte = '"& rif_cte &"'"
sql="INSERT INTO clientes(id_cte,fechai_cte,nom_cte,tip_cte,rif_cte,dir_cte,tel_cte,fax_cte,contac_cte,mail_cte) VALUES('" & id_cte & "','" & fechai_cte & "','" & nom_cte & "','" & tip_cte & "','" & rif_cte & "','" & dir_cte & "','" & tel_cte & "','" & fax_cte & "','" & contac_cte & "','" & mail_cte & "')"
set cn=Server.CreateObject("ADODB.CONNECTION")
cn.ConnectionString=strcxn
cn.open
'este es el nuevo-----------------
if query=1 then
response.Write("El RIF " & rif_cte & "ya existe en el Sistema")
else if query=0 then
'final---------------------------------------
set rs=cn.execute(sql)
if Err=0 then
response.write "El cliente " & nom_cte & " con codigo " & id_cte & " se ha insertado con exito"
end if
end if
end if
cn.close
set cn=nothing
%>
Error de Microsoft VBScript en tiempo de ejecución
error '800a000d' No coinciden los tipos: '[string: "SELECT rif_cte FROM "]' /nuevoclienteProceso.asp, l�nea 134