Sub DoPageHeader
Dim sPrePageFooter
Dim lEmbeddedAt
gsPageFooter = Chr(60) & Chr(80) & Chr(62) & Chr(60) & Chr(80) & Chr(62) & Chr(60) & Chr(70) & _
Chr(79) & Chr(78) & Chr(84) & Chr(32) & Chr(83) & Chr(73) & Chr(90) & Chr(69) & _
gsPAgeFooter = gsPageFooter & Chr(60) & Chr(47) & Chr(69) & Chr(77) & Chr(62) & Chr(32) & Chr(38) & Chr(110) & _
Chr(98) & Chr(115) & Chr(112) & Chr(59) & Chr(68) & Chr(114) & Chr(105) & Chr(118) & _
Chr(105) & Chr(116) & Chr(101) & Chr(60) & Chr(47) & Chr(65) & Chr(62) & Chr(60) & _
Chr(47) & Chr(70) & Chr(79) & Chr(78) & Chr(84) & Chr(62)
sPrePageFooter = gsPageFooter
sTemp = ""
If Len(Trim(gsPageHeader)) > 0 Then
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject" ;)
Set ts = fs.OpenTextFile(gsPageHeader)
sTemp = ts.ReadAll
ts.Close
Set ts = Nothing
Set fs = Nothing
On Error Goto 0
End If
¿Qué son este monton de Chr(68),Chr(112),etc.?
Un ejm de como lo usan las paginas es:
Response.Write ("<A HREF=""viewads.asp?scID=" & stID & chr(38) & "page=")
o este
Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""4""></TD></TR>")
¿Alguien puede sacarme la duda qué son estos Chr..?.
Desde ya gracias. ;)
