Ya se que casi todos los que pululais por este foro vais bastante pegado en el tema de ASP
... A casi todos nos pasa lo mismo hechamos una mano en JavaScript y dos o tres en HTML, pero esto del ASP lo justito. Bueno supongo que os habrá pasado algo similar a lo que os voy a exponer. El caso es que he probado 50 combinaciones y en el Explorer funciona sin problemas y en el Netscape no hay manera de añadir ningún registro.
Aquí os dejo el código a ver si alguien atina. Gracias por vuesta ayuda
...
On Error Resume Next
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open="---"
strSQL = "Select * from encuesta WHERE usuario_encuesta_db ='"& usuario_dat & "'"
Set miConexion = Conexion.Execute(strSQL)
if Err.Description <> "" then
Response.Write "<b>Error en Base de Datos: " & Err.Description & "</b>"
Else
If miConexion.EOF then
miConexion.Close
Conexion.Close
Set miConexion = Nothing
Set Conexion = Nothing
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open="---"
Dim Valores
Valores = "'" & Request.Form("usuario") & "','" & Date & "', '" & Request.Form("foro") & "'"
strSQL = "INSERT INTO encuesta (usuario_encuesta_db, fecha_encuesta_db, voto_encuesta_db) VALUES (" & Valores & ")"
Set miConexion = Conexion.Execute(strSQL)
response.write "Ok"
else
Response.write "Ya existe"
End If
End If
miConexion.Close
Conexion.Close
Set miConexion = Nothing
Set Conexion = Nothing
%>
...