| Ayuda Consulta a Bd
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body background="">
<%
RelacionesSexuales= Request.Form("RelacionesSexuales")
EdadIniciaste = Request.Form("EdadIniciaste")
Frecuencia= Request.Form("Frecuencia")
pareja= Request.Form("pareja")
UsaProteccion = Request.Form("UsaProteccion")
CualProteccion = Request.Form("CualProteccion")
PrimeraMenstruacion = Request.Form("PrimeraMenstruacion")
FrecuenciaMenstruacion = Request.Form("FrecuenciaMenstruacion")
DiasMenstruacion = Request.Form("DiasMenstruacion")
TipoSangrado = Request.Form("TipoSangrado")
DolorMenstruacion = Request.Form("DolorMenstruacion")
dolor = Request.Form("dolor")
IncapacitaDolor = Request.Form("IncapacitaDolor")
TomaMedicamentos = Request.Form("TomaMedicamentos")
QueMedicamentos = Request.Form("QueMedicamentos")
CuantosEmbarazos = Request.Form("CuantosEmbarazos")
CuantosPartos = Request.Form("CuantosPartos")
CuantosAbortos = Request.Form("CuantosAbortos")
CuantasCesareas = Request.Form("CuantasCesareas")
TiempoEmbarazo = Request.Form("TiempoEmbarazo")
CursoEmbarazo = Request.Form("CursoEmbarazo")
ComplicacionesEmbarazo = Request.Form("ComplicacionesEmbarazo")
DondeAtendio = Request.Form("DondeAtendio")
SangradoPosterior = Request.Form("SangradoPosterior")
PorqueCesarea = Request.Form("PorqueCesarea")
UltimaMesntruacion = Request.Form("UltimaMesntruacion")
SecrecionVaginal = Request.Form("SecrecionVaginal")
ColorSecrecion = Request.Form("ColorSecrecion")
ConsistenciaSecrecion = Request.Form("ConsistenciaSecrecion")
CantidadSecrecion = Request.Form("CantidadSecrecion")
FrecuenciaSecrecion = Request.Form("FrecuenciaSecrecion")
InicioSecrecion = Request.Form("InicioSecrecion")
Tratamiento = Request.Form("Tratamiento")
CualTratamiento = Request.Form("CualTratamiento")
Dim Conex
set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open("driver={SQL Server};server=SMEDICOS; database=bdsiat; uid=sa;pwd=sa")
dim consulta,ds
set ds = Server.CreateObject("ADODB.Recordset")
consulta = "insert into tbl_SIAT_HistorialAlumno (chSexuales, chEdadIniciaste, vchFrecuenciaSexo, chUnaPareja, chVariasParejas,
chSexoServidoras,chProteccion, vchCualProteccion,vchFechaMestruacion, vchFrecuenciaMest, vchDiasMest,
vchSangrado, vchSangreReg, vchSangreEsc, vchDolorSang, vchPrem, vchTran, vchPost,vchIncapacita, vchMedicamentos,
vchQueMed, vchEmba, vchPart, vchAbort, vchCesarea, vchTiempoEmb, vchCursoEmbarazo,vchCompliEmba,vchAtendio,
vchCausasCesarea, vchUltimaMestruacion, vchCantidadSang, vchSecreVaginal, vchColorVag, vchConsist,
vchCantidadSecre,vchFreSecre, vchCuandoInicio, vchTratamiento, vchCualTratamiento )
values
('"& RelacionesSexuales &"','"& EdadIniciaste &"','"& Frecuencia &"','"& pareja &"','"& pareja &"','"& pareja &"',
'"& UsaProteccion &"','"& CualProteccion &"','"& PrimeraMenstruacion &"','"& FrecuenciaMenstruacion &"',
'"& DiasMenstruacion &"','"& TipoSangrado &"','"& TipoSangrado &"','"& TipoSangrado &"',
'"& DolorMenstruacion &"','"& dolor &"','"& dolor &"','"& dolor &"','"& IncapacitaDolor &"','"& TomaMedicamentos &"',
'"& QueMedicamentos &"','"& CuantosEmbarazos &"','"& CuantosPartos &"','"& CuantosAbortos &"',
'"& CuantasCesareas &"','"& TiempoEmbarazo &"','"& CursoEmbarazo &"','"& ComplicacionesEmbarazo &"',
'"& DondeAtendio &"','"& SangradoPosterior &"','"& PorqueCesarea &"','"& UltimaMesntruacion &"',
'"& SecrecionVaginal &"','"& ColorSecrecion &"','"& ConsistenciaSecrecion &"','"& CantidadSecrecion &"',
'"& FrecuenciaSecrecion &"','"& InicioSecrecion &"','"& Tratamiento &"','"& CualTratamiento &"')"
set ds=Conex.Execute (consulta)
Response.Redirect "Test5.asp"
%>
</body>
</html>
Tengo esa consulta a la bd pero me aparece un error al accesar a ella
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0409)
Constante de cadena sin terminar
/siat/insert3.asp, línea 55, columna 127
consulta = "insert into tbl_SIAT_HistorialAlumno (chSexuales, chEdadIniciaste, vchFrecuenciaSexo, chUnaPareja, chVariasParejas,
------------------------------------------------------------------------------------------------------------------------------^
Alguien que sepa a que se debe y posible solucion |