grabar
Publicado por ricardo (5 intervenciones) el 27/12/2004 21:54:11
hola estoy recien conociendo este lenguaje, espero que alguien me pueda ayudar
Dim nivel,SQL, Rs, oConn,sw
Dim tipo_equipo
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open sConexion
if request.form("btnAlmacenar")<>"" then
SQL="Exec sp_i_agregar_mail "
SQL=SQL & "'" & direccion_correo & "' ,"
'SQL=SQL & "'" & txt_usuario & "',"
'SQL=SQL & "'" & tipo_Contrato & "',"
'SQL=SQL & "'" & mail & "',"
'SQL=SQL & "'" & txt_store & "',"
if Request.Form("int_informe")="V1" then
SQL=SQL & "'" & 1 & ","
else
SQL=SQL & "'" & 0 & ","
end if
if Request.Form("int_excel")="V1" then
SQL=SQL & "'" & 1 & ","
else
SQL=SQL & "'" & 0 & ","
end if
Rs.Open SQL, oConn, 1, 2
oConn.close
end if
int_excel y int_informe son option button, si estan tiqueados le paso VI y su valor es 1 sino es 0
me sale el siguiente error
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services
Dim nivel,SQL, Rs, oConn,sw
Dim tipo_equipo
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open sConexion
if request.form("btnAlmacenar")<>"" then
SQL="Exec sp_i_agregar_mail "
SQL=SQL & "'" & direccion_correo & "' ,"
'SQL=SQL & "'" & txt_usuario & "',"
'SQL=SQL & "'" & tipo_Contrato & "',"
'SQL=SQL & "'" & mail & "',"
'SQL=SQL & "'" & txt_store & "',"
if Request.Form("int_informe")="V1" then
SQL=SQL & "'" & 1 & ","
else
SQL=SQL & "'" & 0 & ","
end if
if Request.Form("int_excel")="V1" then
SQL=SQL & "'" & 1 & ","
else
SQL=SQL & "'" & 0 & ","
end if
Rs.Open SQL, oConn, 1, 2
oConn.close
end if
int_excel y int_informe son option button, si estan tiqueados le paso VI y su valor es 1 sino es 0
me sale el siguiente error
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services
Valora esta pregunta


0