18/07/2008, 08:43
|
 | | | Fecha de Ingreso: julio-2006
Mensajes: 12
Antigüedad: 18 años, 7 meses Puntos: 0 | |
| Respuesta: No tengo ni idea de como solucionar este problema
Alli tienes el codigo completo echame una mano porque en verdad no comprendo porque corre bien en babywebserver y no en IIS
Código:
<%
On Error Resume Next
dim cn, rsTD, rsPA, rsBE
dim scod_pais
dim stipo_doc
dim snum_ident
dim smsg
dim snom_remit1
dim snom_remit2
dim sape_remit1
dim sape_remit2
dim snum_telefono
dim snum_celular
dim sdir_email
dim spwd_cadivi
dim existe
dim valide
' sbrowser = session("browser")
If Len(request.form) <> 0 Then
' Response.Write("Request.Form:" & request.form & "<br>")
scod_pais = request.form("cod_pais")
stipo_doc = request.form("tipo_doc")
snum_ident = request.form("num_ident")
smsg = request.form("msg")
svalide = request.form("valide")
End If
'Inicializo el Flag Update
existe = "0"
If Not isObject(cn) Then
set cn = session("cn")
End If
set rsTD = server.createobject("ADODB.recordset")
set rsPA = server.createobject("ADODB.recordset")
strSql = "SELECT * FROM TIP_DOC"
Set rsTD = cn.execute(strSql)
if Err.Number <> 0 Then
Response.Write("rsTD: Error #" & Err.Number & "<br>" & Err.Source & "<br>" & Err.Description & "<br>")
Response.Write("SQL:" & strSql & "<br>")
Response.End()
End If
strSql = "SELECT * FROM PAISES"
Set rsPA = cn.execute(strSql)
if Err.Number <> 0 Then
Response.Write("rsPA: Error #" & Err.Number & "<br>" & Err.Source & "<br>" & Err.Description & "<br>")
Response.Write("SQL:" & strSql & "<br>")
Response.End()
End If
if snum_ident <> "" then
'Verifico si el remitente es beneficiario
strSql = "select * from remit_benef where tipo_doc_benef='" & stipo_doc & "' "
strSql = strSql & "and num_ident_benef='" & snum_ident & "' "
strSql = strSql & "and cod_pais_doc_benef='" & scod_pais & "'"
Set rsBE = server.createobject("ADODB.recordset")
Set rsBE = cn.execute(strSql)
if Err.Number <> 0 Then
Response.Write("rsBE: Error #" & Err.Number & "<br>" & Err.Source & "<br>" & Err.Description)
End If
if rsBE.eof and rsBE.bof then
smsg = ""
else
smsg = "Remitente es Beneficiario"
End IF
'Busco si existe en nuestro sistema
strSql = "select * from cliente_insc "
strSql = strSql & "where cod_tipo_doc='" & stipo_doc & "' "
strSql = strSql & "and cod_pais='" & scod_pais & "' "
strSql = strSql & "and num_ident='" & snum_ident & "'"
' response.write(strSql & "<BR><BR>")
set rsCL = server.createobject("ADODB.recordset")
set rsCL = cn.execute(strSql)
If rsCL.Eof And rsCL.Bof Then
existe = "0"
Else
session("msg") = smsg
sid_remit = cstr(rsCL("id_remit"))
stipo_doc = rsCL("cod_tipo_doc")
scod_pais = rsCL("cod_pais")
snum_ident = rsCL("num_ident")
snom_remit1 = rsCL("nom_remit1")
snom_remit2 = rsCL("nom_remit2")
sape_remit1 = rsCL("ape_remit1")
sape_remit2 = rsCL("ape_remit2")
snum_telefono = rsCL("num_telefono")
snum_celular = rsCL("num_celular")
sdir_email = rsCL("dir_email")
spwd_cadivi = rsCL("pwd_cadivi")
existe = "1"
End If
End if
'IF Len(session("id_remit")) <> 0 Then
' response.Write("session id:" & session("id_remit") & "<BR>")
'End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Verificación de Cliente</title>
<meta name="generator" content="WYSIWYG Web Builder - http://www.wysiwygwebbuilder.com">
<style type="text/css">
<!--
body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: small;
}
-->
</style>
<script type="text/javascript">
function valida_remit(f){
if(f.num_ident.value.length == 0)
{
alert("Debe suministrar el número de documento de identificación");
return false;
}
f.valide.value = "SI";
return true;
}
</script>
<script type="text/javascript">
function valida_cli(f){
if(f.valide.value != "SI"){
alert("Debe validar el remitente antes de procesar (Pulse validar)");
return false;
};
if(f.nom_remit1.value.length == 0){
alert("Debe suministrar el primer nombre del cliente");
return false;
};
if(f.ape_remit1.value.length == 0){
alert("Debe suministrar el primer apellido del cliente");
return false;
};
// LA MEGA RUTINA DE VALIDACIÓN DE EMAIL
if(f.dir_email.value.length == 0)
{
alert("Debe suministrar la dirección de correo del cliente");
return false;
};
if(f.dir_email.value.length < 6)
{
alert("La dirección de correo debe tener más de 5 caracteres");
return false;
};
//If InStr(correo, "@") = 0 then novalido = novalido + "No contiene <B>""@""</B><BR>"
if(f.dir_email.value.indexOf("@") == -1)
{
alert("La dirección de correo debe tener un @");
return false;
};
if(f.dir_email.value.indexOf(".") == -1)
{
alert("La dirección de correo debe tener por lo menos un punto");
return false;
};
if(f.dir_email.value.indexOf(" ") != -1)
{
alert("La dirección de correo no debe tener espacios en blanco");
return false;
};
var PosArroba = f.dir_email.value.indexOf("@")
if(f.dir_email.value[f.dir_email.value.length - 1] == "@")
{
alert("La dirección de correo no puede terminar en arroba (@)");
return false;
};
if(f.dir_email.value[f.dir_email.value.length - 1] == ".")
{
alert("La dirección de correo no puede terminar en punto (.)");
return false;
};
if(f.dir_email.value[0] == "@")
{
alert("La dirección de correo no puede comenzar con arroba (@)");
return false;
};
if(f.dir_email.value[0] == ".")
{
alert("La dirección de correo no puede comenzar con punto (.)");
return false;
};
if(f.dir_email.value[PosArroba - 1] == ".")
{
alert("La dirección de correo puede tener un punto (.) inmediatamente antes del arroba (@)");
return false;
};
if(f.dir_email.value[PosArroba + 1] == ".")
{
alert("La dirección de correo puede tener un punto (.) inmediatamente después del arroba (@)");
return false;
};
if(PosArroba > f.dir_email.value.indexOf(".", PosArroba))
{
alert("La dirección de correo debe contener al menos un punto (.) después del arroba (@)");
return false;
};
if(f.pwd_cadivi.value.length == 0){
alert("Debe suministrar la contraseña de cadivi del cliente");
return false;
};
return true;
}
</script>
<script type="text/javascript">
function salir(){
window.location = "login.asp"
}
</script>
|