Problema al INSERTAR, y Enviar mensaje de confirmacion

[PedroJTR]

Saludos amigos...
Estoy tratando de insertar registros de un formulario en mi base de datos access y ma de un error HTTP 500. Que hay problemas de programacion.
Este es el código que estoy usando, tendré algo malo?

Código PHP:

  <%
Dim oConn, nombre, email
id_cte = Request("id_cte")
fechai_cte = Date
nom_cte = Request("nom_cte")
tip_cte = Request("tip_cte")
rif_cte = Request("rif_cte")
dir_cte = Request("dir_cte")
tel_cte = Request("tel_cte")
tel2_cte = Request("tel2_cte")
fax_cte = Request("fax_cte")
contac_cte = Request("contac_cte")
mail_cte = Request("mail_cte")
Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("masstramites.mdb"))
oConn.execute "INSERT INTO clientes(id_cte,fechai_cte,nom_cte,tip_cte,rif_cte,dir_cte,tel_cte,tel2_cte,fax_cte,contac_cte,mail_cte) VALUES('"&id_cte&"','"&fechai_cte&"','"&nom_cte&"','"&tip_cte&"','"&rif_cte&"','"&dir_cte&"','"&tel_cte&"','"&tel2_cte&"','"&fax_cte&"','"&contac_cte&"','"&mail_cte&"')"
oConn.Close
Set oConn = nothing
%>  
   

Además estoy tratando de hacer con Response.Write, un mensaje de confirmacion que me diga que el registro a sido insertado correctamente...
Please, alguién me puede ayudar?

[leoaraguas]

tenes permiso de escritura?... si es un server local... para sacarte la duda copiate la base al C:\ y llamala de ahi

[PedroJTR]

Iniciado por leoaraguas

tenes permiso de escritura?... si es un server local... para sacarte la duda copiate la base al C:\ y llamala de ahi

Ya lo hice.. y nada

[ZeroLino]

lo otro que puedes hacer es crear un boton de guardar,. y en la function (js) darle un accion.. y despues preguntar si accion = algo
si accion = algo
sql = insert.....
si error = 0909 (o lo que sea)
else
response, con scrip y dentro del script darle un ALERT en el cual te diga GRABACION EXITOSA
y despues un response.redirect

:)

si lo quieres mas detallado dices, y te hago el codigo

[Shiryu_Libra]

Pedro todavia tienes problemas con tu codigo???

[PedroJTR]

Saludos amigos,
Muchas gracias ZeroLino, con tu ayuda y la de Shiryu_Libra mi problema al insertar se acabaron, ahora bien, lo que no he logrado hacer es colocarle el Response.Write que me diga que el Usuario <&nom_cte&> cuyo código <&id_cte&>, ha sido insertado con exito.
Como puedo hacerlo, me da error.

Será con Query o con Request?

[Shiryu_Libra]

ya intentaste esto

<%
Dim oConn, nombre, email
id_cte = Request("id_cte")
fechai_cte = Date
nom_cte = Request("nom_cte")
tip_cte = Request("tip_cte")
rif_cte = Request("rif_cte")
dir_cte = Request("dir_cte")
tel_cte = Request("tel_cte")
tel2_cte = Request("tel2_cte")
fax_cte = Request("fax_cte")
contac_cte = Request("contac_cte")
mail_cte = Request("mail_cte")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("masstramites.mdb"))
oConn.execute "INSERT INTO clientes(id_cte,fechai_cte,nom_cte,tip_cte,rif_cte ,dir_cte,tel_cte,tel2_cte,fax_cte,contac_cte,mail_ cte) VALUES('"&id_cte&"','"&fechai_cte&"','"&nom_cte&"','"&tip_cte&"','"&rif_cte&"','"&dir_cte&"','"&tel_cte&"','"&tel2_cte&"','"&fax_cte&"','"&contac_cte&"','"&mail_cte&"')"
'solo agregale esta parte
if Err=0 then
response.write "El cliente " nom_cte & " con codigo " & nom_cte & "se ha insertado con exito"
end if
oConn.Close
Set oConn = nothing
%>

[PedroJTR]

Iniciado por Shiryu_Libra

ya intentaste esto

Oh Shiryu Muchas Gracias, me tienes que dar la receta de lo que comiste cuando estabas peque he

Sabes? tengo probles con el código de correlativo que me ayudaste a hacer, no me cambia a 0002 cuando ve que el código está repetido, y bueno cuando voy a insertar obvio me da el mensaje que el codigo esta repetido y no lo puedo insertar asi! Me podrías ayudar amigo?
Aqui está mi code:

Código PHP:

  <%
if isnull(request.QueryString("UI")) then 
 respuesta = "error,Error de conexion pagina no disponible"
else
 'SEPARAMOS EL IDENTIFICADOR DE MENSAJES, DE LOS VALORES A TRATAR
 a = split(request.QueryString("UI"),"*")
 'VOLVEMOS A SEPARAR LOS DATOS PARA LAS EJECUCIONES PERTINENTES
 if a(1)="-" then 
  respuesta = "Error en datos"
 else
  codigo=a(1)
  query="select id_cte from clientes where id_cte like '" & codigo & "' order by id_cte desc"
  strcon = "Provider=Microsoft.Jet.OLEDB.4.0;"&_
   "Data Source="&server.MapPath("masstramites.mdb")&";"
  set conexion = Server.CreateObject("ADODB.Connection")
 
  conexion.open strcon
  
  set RS=conexion.execute(query)
  if Err=0 then
   if RS.eof=false then
    ultimo=rs.fields.item("id_cte").value
   else
    ultimo="0000"
   end if
  else
   respuesta="Error de consulta"
  end if
  rs.close
  conexion.close
  set conexion=nothing
  'ya una ves que tengamos respuesta, hay que manipular el 
  'resultado para incrementar el correlativo
  modificacion=cint(left(ultimo,4))
  select case len(modificacion)
   case 1 modificacion="000" & (modificacion+1)
   case 2 modificacion="00" & (modificacion+1)
   case 3 modificacion="0" & (modificacion+1)
   case 4 modificacion="" (modificacion+1)
  end select
  respuesta = modificacion & codigo
 end if
end if
respuesta=a(0) & "," & respuesta
response.Write respuesta
response.End()
%>  
   

[PedroJTR]

Trato de ver que funcion tiene el (top 1) en la linea
query="select top 1 id_cte from clientes where id_cte like '" & codigo & "' order by id_cte desc"
y no trato de definirlo. Me podrías ayudar?

[JuanRAPerez]

pregunta

no se si lo resolvites pero ando de vago ajajajaja

id_cte porque no es autoincremental?

suerte

[Shiryu_Libra]

...

juan id_cte, lo toma pedro para saber primeramente si no existe ese codigo en la tabla... una ves que determina que no existe (dada la combinacion que realiza en el formulario), toma los primeros 4 digitos y lo incrementa en 1

pedro, la funcion top 1, te traera solo un registro en la consulta y como esta tambien el ORDER BY campo DESC, traera el ultimo registro de la trabla coincidiente con el autoincremental que estas combinando

perdona por no andar aki, lo que pasa es que ando en movimiento de mi trabajo, y solo respondo en cuestiones rapidas, no he tenido la oportunidad de mirar tu codigo nuevamente


p.d. con juan estas en muy buenas manos

[JuanRAPerez]

has verificado que trae la variable

modificacion

????

antes de insertar?

[PedroJTR]

Hola Como estan?
Perdonen la ausencia, estuve de viaje y bueno me perdi un poco...
Okas, Juan como estas, Sobre la variable modificacion, ella primero modifica el código si este está repetido, aumentando 1 numero, luego lo inserta. Es correcto!
Pero lo que no he tratado de resolver es que me lleve el mismo correlativo para todos los códigos, que no se pierda!