Saludos a todos...
Estoy haciendo un formulario con varias opciones segun lo que escojas al principio. P. ej:
Si escoges Usuario te saldrá un formulario donde podrás rellenar (usuario, pass, y domicilio).
Pero si escoges Socio te saldrá un formulario donde podrás rellenar (usuario, pass, domicilio y cuenta corriente).
En realidad hay mas campos a rellenar, pero eso tampoco es importante. El tema viene que cuando intento insertar los datos en la tabla me lo inserta todo vacío y no se porqué. En la tabla todos los campos son tipo texto o memo, e inserto los datos de la siguiente forma:
<!-- #include file="Connections/empresa.asp"-->
<%
sUsuario = CStr(Request.Form("Usuario"))
sPass1 = CStr(Request.Form("Contraseña1"))
sPass2 = CStr(Request.Form("Contraseña2"))
sNombre = CStr(Request.Form("Nombre"))
sApellidos = CStr(Request.Form("Apellidos"))
sEstablecimiento = CStr(Request.Form("Establecimiento"))
sDireccion = CStr(Request.Form("Domicilio"))
sCP = CStr(Request.Form("CP"))
sPoblacion = CStr(Request.Form("Poblacion"))
sProvincia = CStr(Request.Form("Provincia"))
sPais = CStr(Request.Form("Pais"))
sPropietario = CStr(Request.Form("Propietario"))
sPersona = CStr(Request.Form("Persona"))
sTelefono = CStr(Request.Form("Telefono"))
sEmail = CStr(Request.Form("E-Mail"))
sComentarios = CStr(Request.Form("Comentarios"))
sTitular = CStr(Request.Form("Titular"))
sNumero = CStr(Request.Form("Numero"))
sCaducidad = CStr(Request.Form("Caducidad"))
sTitularCC = CStr(Request.Form("Titularcc"))
sEntidad = CStr(Request.Form("Entidad"))
sSucursal = CStr(Request.Form("Sucursal"))
sDC = CStr(Request.Form("DC"))
sNumeroCC = CStr(Request.Form("Numerocc"))
sActividades = CStr(Request.Form("Actividades"))
sEntorno = CStr(Request.Form("Entorno"))
sLocalizacion = CStr(Request.Form("Localizacion"))
sServicios = CStr(Request.Form("Servicios"))
sTarifas = CStr(Request.Form("Tarifas"))
sCarta = CStr(Request.Form("Carta"))
'================= Añadir a base de datos ==============
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open MM_empresa_STRING
SQL = "SELECT * FROM datos"
rs.Open SQL, conn, 0, 2
rs.AddNew
rs.Fields("usuario") = sUsuario
rs.Fields("pass1") = sPass1
rs.Fields("pass2") = sPass2
rs.Fields("nombre") = sNombre
rs.Fields("apellidos") = sApellidos
rs.Fields("establecimiento") = sEstablecimiento
rs.Fields("direccion") = sDireccion
rs.Fields("cp") = sCP
rs.Fields("poblacion") = sPoblacion
rs.Fields("provincia") = sProvincia
rs.Fields("pais") = sPais
rs.Fields("propietario") = sPropietario
rs.Fields("persona") = sPersona
rs.Fields("telefono") = sTelefono
rs.Fields("email") = sEmail
rs.Fields("comentarios") = sComentarios
rs.Fields("titular") = sTitular
rs.Fields("numero") = sNumero
rs.Fields("caducidad") = sCaducidad
rs.Fields("titularcc") = sTitularCC
rs.Fields("entidad") = sEntidad
rs.Fields("sucursal") = sSucursal
rs.Fields("dc") = sDC
rs.Fields("numerocc") = sNumeroCC
rs.Fields("actividades") = sActividades
rs.Fields("entorno") = sEntorno
rs.Fields("localizacion") = sLocalizacion
rs.Fields("servicios") = sServicios
rs.Fields("tarifas") = sTarifas
rs.Fields("carta") = sCarta
rs.Update
Response.Write "<b>SUS DATOS SE ENVIARON CORRECTAMENTE"
rs.Close
set rs = nothing
conn.Close
set conn = nothing
'================================================= =======
%>
Lo he probado de mil maneras, uso asp y mysql en un servidor interno que se conecta mediante el archivo empresa.asp, que tiene el siguiente código:
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_empresa_STRING
MM_empresa_STRING = "dsn=empresa;"
%>
Ya no sé que hacer es bastante urgente, necesito ayudaaa!!
Gasias a todos...
Raúl Jiménez.
www.elecash.org