Informacion a la BD

[EDUDELORIA]

Hola a todos!
Tengo el siguiente problema: en un istio que he desarrollado tengo unos 6 formularios diferentes que envian la información a una BD donde quedan registrados y luego los mismo datos a una cuenta de email.
Todo funciona perfectamente, pero el problema es que desde mi máquina o de otra donde trabajo completo cualquiera de esos formularios y los datos ingresan a la BD, pero cuando cualquier otro usuario de otro lado (ej, cualquier pais) completa el formulario, manda el mail pero sus datos no ingresan a la BD.
Espero haber sido claro, pero es la primera vez que me pasa ya que siempre he trabajado con este sistema y nunca me pasó algo así.
He revisado todo el código e intenté cambiarle el ruteo a la bvase pero, logicamente, me tiora error como es de esperar.
Si funciona navegando desde mi PC (aclaro que no tengo temporales) porque si lo hacen desde cualquier otro sitio remoto esos mismo datos no entran.

Agradezco cualquier comentario o sugerencia

Edudeloria

[buliwyf]

vas a tener que echarnos el codigo aqui, porque al ojo por ciento es imposible

[EDUDELORIA]

Gracias por responderme. Este es el código base que utilizo

<%
Dim nombre, apellido, edad, calle, numero, piso, puerta
Dim ciudad, provincia, pais, cod_postal, telefono
Dim email, cursos, diario, revista
Dim correcto
Dim oConn, rs, SQL

'Recojo el formulario
nombre=Request.Form("nombre")
apellido=Request.Form("apellido")
edad=Request.Form("edad")
calle=Request.Form("calle")
numero=Request.Form("numero")
piso=Request.Form("piso")
puerta=Request.Form("puerta")
ciudad=Request.Form("ciudad")
provincia=Request.Form("provincia")
pais=Request.Form("pais")
cod_postal=Request.Form("codigopostal")
telefono=Request.Form("telefono")
email=Request.Form("email")
cursos=Request.Form("cursos")
revista=Request.Form("revista")
diario=Request.Form("diario")


correcto=True
'Compruebo que no hay campos vacíos
if nombre="" then correcto=False end if
if apellido="" then correcto=False end if
if calle="" then correcto=False end if
if edad="" then correcto=False end if
if numero="" then correcto=False end if
if piso="" then correcto=False end if
if puerta="" then correcto=False end if
if ciudad="" then correcto=False end if
if provincia="" then correcto=False end if
if pais="" then correcto=False end if
if cod_postal="" then correcto=False end if
if telefono="" then correcto=False end if
if email="" then correcto=False end if
if cursos="" then correcto=False end if
if revista="" then correcto=False end if
if diario="" then correcto=False end if


if correcto then

' Creamos la conexion a la base de datos
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../bases/mibase.mdb")

SQL="INSERT INTO Informes " & _
"(INFnombre, INFapellido, INFedad, INFcalle, INFnumero, INFpiso, INFpuerta, INFciudad, INFprovincia, INFpais, INFcodigopostal, INFtelefono, INFemail, INFcursos, INFdatos, INFrevista, INFdiario, INFfechaalta)"
SQL=SQL & " VALUES ('"&nombre&"','"&apellido&"','"&edad&"','"&calle&" ','"&numero&"','"&piso&"','"&puerta&"','"&ciudad&" ','"&provincia&"','"&pais&"','"&cod_postal&"','"&t elefono&"','"&email&"','"&cursos&"','"&datos&"','" &revista&"','"&diario&"',#" & Month(Date) & "/" & Day(Date) & "/" & Year(Date) & "#);"
oConn.Execute(SQL)
oConn.Close



end if


set oConn=nothing


%>
<%
Dim strEmail, Mail
strEmail = request.form("email")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "Mail.myISP.com."
Mail.From = strEmail
Mail.AddAddress "[email protected]"
Mail.Subject = "Formulario Informes"
Mail.Body = Mail.Body & "Nombre: " & Request.Form("nombre") & VbCrLf
Mail.Body = Mail.Body & "Apellido: " & Request.Form("apellido") & VbCrLf
Mail.Body = Mail.Body & "Edad: " & Request.Form("edad") & VbCrLf
Mail.Body = Mail.Body & "Calle: " & Request.Form("calle") & VbCrLf
Mail.Body = Mail.Body & "Numero: " & Request.Form("numero") & VbCrLf
Mail.Body = Mail.Body & "Piso: " & Request.Form("piso") & VbCrLf
Mail.Body = Mail.Body & "Puerta: " & Request.Form("puerta") & VbCrLf
Mail.Body = Mail.Body & "Ciudad: " & Request.Form("ciudad") & VbCrLf
Mail.Body = Mail.Body & "Provincia: " & Request.Form("provincia") & VbCrLf
Mail.Body = Mail.Body & "Pais: " & Request.Form("pais") & VbCrLf
Mail.Body = Mail.Body & "Cod. Postal: " & Request.Form("codigopostal") & VbCrLf
Mail.Body = Mail.Body & "Telefono: " & Request.Form("telefono") & VbCrLf
Mail.Body = Mail.Body & "E-Mail: " & Request.Form("email") & VbCrLf
Mail.Body = Mail.Body & "Curso: " & Request.Form("cursos") & VbCrLf
Mail.Body = Mail.Body & "Diario: " & Request.Form("revista") & VbCrLf
Mail.Body = Mail.Body & "Revista: " & Request.Form("diario") & VbCrLf

Mail.Username = "infomysitio.com"
Mail.Password = "12345"
Mail.Send
Set Mail = Nothing


%>


Espero que puedas ver lo que yo no veo.
Gracias otra vez

Edudeloria

[amendoza]

EDUDELORIA,

Naturalmente en la instruccion del IF existe uno de los valores de formulario que esta en blanco y no pasa al Insert


if correcto then

has un response.write para verificar cual es la variable sin contenido.

Saludos