Hola. Estoy más liado que la pata de un romano. Vereis, lo que intento conseguir es lo siguiente.
En javascript tengo un código de un test de examen. Este código en js crea algunas variables como aciertos, preguntas, etc...
El caso es que recogo esas variables de js para enviarlas por correo con el ASPEmail. Y FUNCIONA. el correo me llega bien con el
valor de las variables.
El problema, que intento conseguir y no se donde estará el error, es que tambien quiero abrir la conexión a una bd e
introducir esos valores. Os pongo el código para que lo veais, pero primero os pongo la línea de javascript que envia las variables.
Cita: document.location.href='http://www.misitio.com/test.asp?a=1&aciertos='+aciertos+'&preguntas='+pre guntas.length+'&porcentaje='+porcent+'&numeroEjerc icio=1'
Luego, al principio de la página tengo el código en ASP de la siguiente manera...
Código PHP:
<%
a=request.querystring("a")
aciertos=request.querystring("aciertos")
preguntas=request.QueryString("preguntas")
porcentaje=request.QueryString("porcentaje")
NumeroEjercicio=request.QueryString("numeroEjercicio")
if a=1 then
basedatos=server.mappath("../../data/Ejer.mdb")
set conexion=server.createobject("adodb.connection")
set registros=server.createobject("adodb.recordset")
set registros1=server.createobject("adodb.recordset")
conexion.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
registros.open "SELECT * FROM Alumnos",conexion,2,2
registros.addnew
registros.fields("Usuario")=session("usuario")
registros.fields("Nombre_Apellidos")=session("nombre")&" "& session("apellido1")&" "&session("apellido2")
registros.fields("Curso")=session("curso")
registros.update
registros1.open "SELECT * FROM Ejercicios",conexion,2,2
registros1.addnew
registros1.fields("Usuario")=session("usuario")
registros1.fields("Fecha")=FormatDateTime(Now, vbLongDate)
registros1.fields("NumeroEjercicio")=NumeroEjercicio
resgistros1.fields("Porcentaje")=porcentaje
registros1.update
conexion.close
set registros=nothing
set registros1=nothing
set conexion=nothing
strHost = "mail.misitio.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = session("usuario") & "@misitio.com"
Mail.FromName = session("nombre")&" "& session("apellido1")&" "&session("apellido2")
Mail.AddAddress "[email protected]"
Mail.Subject = "Resultados del test"
Mail.Body = "El alumno " & session("nombre")&" "& session("apellido1")&" "&session("apellido2") & " " & "ha acertado " & aciertos & " de " & preguntas & " preguntas." & chr(13) & chr(13) & "Lo que significa un " & porcentaje & "%"
strErr = ""
bSuccess = False
Mail.Send ' send message
On Error resume next ' catch errors
If Err <> 0 Then error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
Bien, esto es todo el código, como he dicho al principio, el mail me llega, pero cuando compruebo si se han introducido los datos en la bd está más vacía que el cole en vacaciones.
Por ciertos, habreis visto que utilizo dos recorsets para la misma bd ya que quiero recorrer dos tablas en la misma bd e insertar datos en ella, pero creo que ahí no tiene
que estar el problema.
Bueno, espero algún consejo.
Gracias de antemano.
