| error (0x800A03EA) y no he podido resolverlo
hace mucho rato estoy viendo como solucionar esto, pero como soy nueva en asp no he podido solucionar el problema
para hacer esto mucho mas simple y entendible voy a enviar el codigo
lo primero
tengo una pagina llamada fuction.asp en donde tengo un apekeña funcion de validacion es esta
// funcion de validación del rol
Function Valida_Rol(TxtRol)
Dim A, B, C, D, E
Dim suma, divide
A = int(TxtRol / 10000)
B = int(TxtRol / 1000) - (A * 10)
C = int(TxtRol / 100) - (int(TxtRol / 1000) * 10)
D = int(TxtRol / 10) - (int(TxtRol / 100) * 10)
E = TxtRol - (int(TxtRol / 10) * 10)
suma = A*6 + B * 5 + C * 4 + D * 3 + E * 2
'response.write C & "<BR>"
divide = suma mod 9
Valida_Rol = divide
End Function
esta funcion la llama en una pagina llamada directorio.............
<!--#include file="top_ir.asp"-->
<!--#include file="lib_asp/function.asp"-->
<%
Dim page, TxtRol, TxtDvRol, resul
Dim sw_existe
Session("sw_existe") = 0
' tomo los valores del hidden
page = request.form("page")
TxtRol = request.form("TxtRol")
TxtDvRol = request.form("TxtDvRol")
session("TxtRol") = TxtRol
TxtRol = session("TxtRol")
session("TxtDvRol") = TxtDvRol
TxtDvRol = session("TxtDvRol")
session("page") = page
page = session("page")
if (page = "MostrarDirect") then
resul = Valida_Rol(TxtRol)
if (cint(resul) = cint(TxtDvRol)) then
Response.Redirect("Verifica_RolDirec.asp")
else %>
<script language="JavaScript">
<!--
alert("Dígito verificador erroneo, Revisar [" + <%=resul%> + "]");
-->
</script>
<% end if
end if
%>
al habrir el pagina y ejecutar validaciones de javascript y cuando page es igual a "MostrarDirect" no tengo ningun problema
es problema se ocaciona cuando se ejecuata el Response.Redirect("Verifica_RolDirec.asp")
y en esta pagina algo una consulta a la base de datos con procedimientos almacenados y el resultado kiero ke me los devuelva a la misma pagina original , osea Directorio.asp
les muestro lo ke kiero hacer
...
Else
If not rs.eof then
Dim Campo1, Campo2, Campo3, Campo4, Campo5, Campo6, Campo7, Campo8, Campo9, Campo10
Dim Campo11, Campo12, Campo13, Campo14, Campo15, Campo16, Campo17, Campo18, Campo19
Dim Campo20, Campo21, Campo22, Campo23, Campo24, Campo25, Campo26, Campo27, Campo28
Dim Campo29, Campo30, Campo31, Campo32, Campo33, Campo34
Session("sw_existe") = 1
campo1 = cint(p_rol)
campo2 = cint(p_dv)
campo3 = rs.fields("CATEGORÍA")
campo4 = rs.fields("CIIU3")
campo5 = rs.fields("ACTIVIDAD_PRINCIPAL")
campo6 = rs.fields("ESTRATO")
campo7 = rs.fields("SELECCIÓN")
campo8 = rs.fields("RUT")
campo9 = rs.fields("DV_RUT")
campo10 = rs.fields("RAZON_SOCIAL")
campo11 = rs.fields("NOMBRE_FANTASIA")
campo12 = rs.fields("REPRESENTANTE_LEGAL")
campo13 = rs.fields("DIRECCIÓN")
campo14 = rs.fields("COMUNA")
campo15 = rs.fields("PROVINCIA")
campo16 = rs.fields("REGIÓN")
campo17 = rs.fields("TELEFONO")
campo18 = rs.fields("FAX")
campo19 = rs.fields("CASILLA")
campo20 = rs.fields("EMAIL")
campo21 = rs.fields("WEB")
campo22 = rs.fields("TIPO_EMPRESA")
campo23 = rs.fields("ESTADO_SITUACION")
campo24 = rs.fields("OBSERVACIONES")
campo25 = rs.fields("RECORRIDO")
campo26 = rs.fields("NOMBRE_INFORMANTE")
campo27 = rs.fields("CARGO")
campo28 = rs.fields("UNIDAD")
campo29 = rs.fields("DIRECCION_INFORMANTE")
campo30 = rs.fields("COMUNA_INFORMANTE")
campo31 = rs.fields("REGION_INFORMANTE")
campo32 = rs.fields("EMAIL_INFORMANTE")
campo33 = rs.fields("TELEFONO_INFORMANTE")
campo34 = rs.fields("FAX_INFORMANTE")
else
campo1 = cint(p_rol)
campo2 = cint(p_dv)
End if
%>
<!--#include file="Directorio.asp" -->
<%
End if
End if
...
y es aki donde me acurre el error
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
/ir/lib_asp/function.asp, line 3
Function Valida_Rol(TxtRol)
al tratar de volver a la pagina Directorio.asp me sale ese error, he tratado de ver cual es el problema, pero no he podido solucionarlo.............
espero ke me puedan ayudar con esto.........
y ojala se haya hecho entender
de antemano muchisimas gracias |