<% Response.Write(vbCrLf) Function CCCCCJ(ByVal CCCCJC) Dim CCCJCJ, CCCJCC, CCCCJJ CCCCJC = Replace(CCCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCJCC = 1 To Len(CCCCJC) If CCCJCC <> CCCCJJ Then CCCJCJ = AscW(Mid(CCCCJC, CCCJCC, 1)) If CCCJCJ >= 33 And CCCJCJ <= 79 Then CCCCCJ = CCCCCJ & Chr(CCCJCJ + 47) ElseIf CCCJCJ >= 80 And CCCJCJ <= 126 Then CCCCCJ = CCCCCJ & Chr(CCCJCJ - 47) Else CCCCJJ = CCCJCC + 1 If Mid(CCCCJC, CCCCJJ, 1) = Chr(64) Then CCCCCJ = CCCCCJ & ChrW(CCCJCJ + 5) Else CCCCCJ = CCCCCJ & Mid(CCCCJC, CCCJCC, 1) End If End If Next End Function %>