Ver Mensaje Individual
  #3 (permalink)  
Antiguo 18/07/2008, 08:43
Avatar de sriver
sriver
 
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>