Matemática Aplicada
Enviado por parmijo • 21 de Julio de 2011 • Tesis • 1.150 Palabras (5 Páginas) • 1.007 Visitas
Public PACTUAL2 As Integer, RUTACAMP As String, NOMBRECAMP As String, Tp As Integer, PACt As Integer, ID_form As Integer, ENC As String, CIERRE As String, MI_cadena As String, MICAD As String, opc As Boolean, Direccion As String
Public misrespuestas() As String, celda As Integer, Nvariable As Integer, paths As String, controlador As Boolean, RutaPagina As String
Sub GENERA_ENCABEZADO()
' RutaPagina = App.Path & "Pagina_Nueva_1.html"
'WebBrowser1(2).navigate RutaPagina
ENC = " <!--" & vbCrLf
ENC = ENC & " .Estilo1 {color: #FFFFFF}" & vbCrLf
ENC = ENC & " .style2 {font-size: 12}" & vbCrLf
ENC = ENC & " .style3 {" & vbCrLf
ENC = ENC & " font-size: 14px;" & vbCrLf
ENC = ENC & " font-weight: bold;" & vbCrLf
ENC = ENC & " }" & vbCrLf
ENC = ENC & " -->" & vbCrLf
ENC = ENC & "</style>" & vbCrLf
ENC = ENC & "<head>" & vbCrLf
ENC = ENC & "<title>PREGO ST</title>" & vbCrLf
ENC = ENC & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">" & vbCrLf
ENC = ENC & "</head>" & vbCrLf
ENC = ENC & "<body>" & vbCrLf
ENC = ENC & "<%" & vbCrLf
ENC = ENC & "Function DXML(texto, tagXML)" & vbCrLf
ENC = ENC & "Dim result" & vbCrLf
ENC = ENC & "Dim inicio" & vbCrLf
ENC = ENC & "Dim fin" & vbCrLf
ENC = ENC & " inicio = ""<"" & tagXML & "">""" & vbCrLf
ENC = ENC & " fin = ""</"" + tagXML + "">""" & vbCrLf
ENC = ENC & " If (InStrRev(texto, inicio) > 0 And InStrRev(texto, fin) > 0) Then" & vbCrLf
ENC = ENC & "result = Mid(texto, InStrRev(texto, inicio) + Len(inicio), InStrRev(texto, fin) - (InStrRev(texto, inicio) + Len(inicio)))" & vbCrLf
ENC = ENC & " Else" & vbCrLf
ENC = ENC & " result = """"" & vbCrLf
ENC = ENC & " End If" & vbCrLf
ENC = ENC & " DXML = result" & vbCrLf
ENC = ENC & "End Function" & vbCrLf
ENC = ENC & "vrAREA = request(""vrAREA"")" & vbCrLf
ENC = ENC & "vrFONO = request(""vrFONO"")" & vbCrLf
ENC = ENC & "vrCLIE = request(""vrCLIE"")" & vbCrLf
ENC = ENC & "vrNOMBRE = request(""vrNOMBRE"")" & vbCrLf
ENC = ENC & "vrAPEPAT = request(""vrAPEPAT"")" & vbCrLf
ENC = ENC & "vrAPEMAT = request(""vrAPEMAT"")" & vbCrLf
ENC = ENC & "vrRESP = request(""vrRESP"")" & vbCrLf
ENC = ENC & "vrdIR = session(""DIRECCION"")" & vbCrLf
ENC = ENC & "vrRUT = session(""RUT"")" & vbCrLf
ENC = ENC & "vrCOM = session(""COMUNA"")" & vbCrLf
ENC = ENC & "If vrFONO = """" Then" & vbCrLf
ENC = ENC & "s_fono = ""FONO_"" & request(""s_fono"")" & vbCrLf
ENC = ENC & " XML_FONO = session(""XML_FONO"")" & vbCrLf
ENC = ENC & " FONO = DXML(XML_FONO, s_fono)" & vbCrLf
ENC = ENC & "vector = Split(FONO, ""-"")" & vbCrLf
ENC = ENC & "End If" & vbCrLf
ENC = ENC & "%>" & vbCrLf
ENC = ENC & " <table width=""760"" height=""419"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
ENC = ENC & " <tr>" & vbCrLf
ENC = ENC & " <td height=""19"" valign=""top"" class=""titulos""><div align=""center""><img src=""IMAGENES/logo.gif""></div></td>" & vbCrLf
ENC = ENC & " </tr>" & vbCrLf
ENC = ENC & " <tr>" & vbCrLf
ENC = ENC & " <td height=""56"" valign=""top""><table width=""100%"" border=""1"" bordercolor=""#FFFFFF"">" & vbCrLf
ENC = ENC & " <tr bgcolor=""#6666CC"">" & vbCrLf
ENC = ENC & " <td width=""20%""><div align=""center""><span class=""style1""><span class=""Estilo1"">IDCLIENTE</span></span></div></td>" & vbCrLf
ENC = ENC & " <td width=""22%""><div align=""center""><span class=""style1""><span class=""Estilo1"">NOMBRE</span></span></div></td>" & vbCrLf
ENC = ENC & " <td width=""20%"" bgcolor=""#6666CC""><div align=""center""><span class=""style1""><span class=""Estilo1"">FONO1</span></span></div></td>" & vbCrLf
ENC = ENC & " <td width=""20%"" bgcolor=""#6666CC""><div align=""center""><span class=""style1""><span class=""Estilo1"">FECHA</span></span></div></td>" & vbCrLf
ENC = ENC & " </tr>" & vbCrLf
ENC = ENC & " <tr>" & vbCrLf
ENC
...