Www.lynnhoyt.net>expensive Miserable

<%@ LANGUAGE="VBSCRIPT" %> <% ' PROJECT HONEY POT ADDRESS DISTRIBUTION SCRIPT ' For more information visit: http://www.projecthoneypot.org/ ' Copyright (C) 2004, Unspam, LLC ' ' This program is free software; you can redistribute it and/or modify ' it under the terms of the GNU General Public License as published by ' the Free Software Foundation; either version 2 of the License, or ' (at your option) any later version. ' ' This program is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU General Public License for more details. ' ' You should have received a copy of the GNU General Public License ' along with this program; if not, write to the Free Software ' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA ' 02111-1307 USA ' ' If you choose to modify or redistribute the software, you must ' completely disconnect it from the Project Honey Pot Service, as ' specified under the Terms of Service Use. These terms are available ' here: ' ' http://www.projecthoneypot.org/terms_of_service_use.php ' ' The required modification to disconnect the software from the ' Project Honey Pot Service is explained in the comments below. To find the ' instructions, search for: *** DISCONNECT INSTRUCTIONS *** ' ' Generated On: Sat, 28 Apr 2007 08:29:14 -0400 ' For Domain: www.lynnhoyt.net ' ' ' *** DISCONNECT INSTRUCTIONS *** ' ' You are free to modify or redistribute this software. However, if ' you do so you must disconnect it from the Project Honey Pot Service. ' To do this, you must delete the lines of code below located between the ' *** START CUT HERE *** and *** FINISH CUT HERE *** comments. Under the ' Terms of Service Use that you agreed to before downloading this software, ' you may not recreate the deleted lines or modify this software to access ' or otherwise connect to any Project Honey Pot server. ' ' *** START CUT HERE *** ' REQUEST_HOST = "hpr5.projecthoneypot.org" REQUEST_PORT = "80" REQUEST_SCRIPT = "/cgi/serve.php" ' ' *** FINISH CUT HERE *** ' HPOT_TAG1 = "1fb6f0611b7243371e4443fc6f0c545e" HPOT_TAG2 = "ffa153672c7cdab72391b71812d53c02" HPOT_TAG3 = "e5eff424859078ea08098d130e430833" CLASS_STYLE_1 = "vepizuxobra" CLASS_STYLE_2 = "cran" DIV1 = "6277dr26isw" VANITY_L1 = "MEMBER OF PROJECT HONEY POT" VANITY_L2 = "Spam Harvester Protection Network" VANITY_L3 = "provided by Unspam" DOC_TYPE1 = "\n" HEAD1 = "\n\n" HEAD2 = "Www.lynnhoyt.net>expensive Miserable\n\n" ROBOT1 = "\n" NOCOLLECT1 = "\n" TOP1 = "\n

\n" EMAIL1A = "" EMAIL1C = "" EMAIL2A = "" EMAIL2C = "" EMAIL3A = "" EMAIL3C = "" EMAIL4A = "" EMAIL4C = "" EMAIL5A = "" EMAIL5C = ".." EMAIL6A = "" EMAIL6C = "" EMAIL7A = "" EMAIL7C = "" EMAIL8A = "" EMAIL9A = "

" EMAIL9C = "

" EMAIL10A = "" LEGAL1 = "" LEGAL2 = "\n" STYLE1 = "\n" VANITY1 = "

@	" & VANITY_L1 & " " & VANITY_L2 & " " & VANITY_L3 & "

\n" BOTTOM1 = "

\n\n\n" Function getLegalContent() getLegalContent = "\n\n\n\n\n\n

p
k
The websitehfrom whi
to you subjectato th
other terms governin
Website youhaccept t
read them carefully.
agentsgof the indivi
them. The access rig
non-transferable wit
Website.

   k    SPECI

Special restrictions
Non-Human Visitors.
spiders, bots, index
programs designed to
automatically.

Email addresses on t
It is recognized tha
alone. You acknowled
has a value not less
storage,gand/or dist
value ofethese addre
storing this Website
agreement and expres

c g

Each party agrees th
against the other in
(""Judicial Action"")c
the registered Admin
such laws are applie
and performed entire
of federalgand state
any action brought a
Service. You consent
the above agreement.

   p    d

You consentcto havin
may appeardsomewhere
abuse. The Identifie
Visitors agree not t

VISITORS AGREE THATk
PARTYgOR SENDING ANY
SUBSEQUENT BREACH OF

e o TERMS AND CON

ch you accessed this
e following conditio
g access to the Webs
hese terms and condi
Any Non-Human Visit
dual(s) whokcontrols
hts granted to you u
hout the express wri

AL LICENSE RESTRICTI

on a visitor's lice
Non-HumanoVisitors i
ers, robots, crawler
kaccess, read, compi

his sitefare conside
t these emailtaddres
ge and agree that ea
thanaUS $50. You fu
ribution of these ad
sses. Intentional co
's email addresses i
sly prohibited.

fAPPLICABLE LAW

at anygsuit,taction
connection with or
shall be governed by
istrative Contact (t
d to agreements betw
ly within the Admin
courts within the A
gainst him in connec
to electronic servi

RECORDS OF VISIT

g your Internet Prot
iondthis pageh(the ""
r is uniquely matche
o use this address f

HARVESTING, GATHERIN
MESSAGE(S) TO THE I
THESE TERMS OF SERV

DITIONS OF USE

oagreement (""the Web
ns. These terms are
ite. By visiting (in
tions (thef""Terms of
ors to the Website s
, authors or otherwi
nder the Terms of Se
ttendpermission of t

ONS FOR NON-HUMAN VI

nse to access the We
nclude, but are notg
s, harvesters,dor an
le or gather content

red proprietaryhinte
ses are providedffor
ch email address the
rther agree that the
dresses substantiall
llection, harvesting
s recognized asaa vi

AND JURISDICTION

or proceeding brough
arising from the Ter
the law of the stat
he ""Admin State"") fo
een Admin State resi
State. You consent t
dmin State. Youtcons
tion with breaches o
ce of process regard

OR USE AND ABUSE

ocol address recorde
Identifier"") if we s
d to your Internet P
or any reason.

G, STORING, TRANSFER
DENTIFIER CONSTITUTE
ICE.

site"") is provided
in addition to any
any manner) the
Service""). Please
hall be considered
se makes use of
rvice are
he owner of the

SITORS

bsite apply to
limited to, web
y other computer
fromfthe Website

llectual property.
humanivisitors
Website contains
compilation,
y diminishes the
, gathering, and/or
olationkof this

t by such party
ms of Service
e of residence of
rithe Website as
dentscentered into
o the jurisdiction
ent to the venue in
f these Termsiof
ing actions under

d. An emailgaddress
uspect potential
rotocol address.

RING TO A THIRD
S ANhACCEPTANCEgAND

\n
" End Function Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m_lOnBits(4) = CLng(31) m_lOnBits(5) = CLng(63) m_lOnBits(6) = CLng(127) m_lOnBits(7) = CLng(255) m_lOnBits(8) = CLng(511) m_lOnBits(9) = CLng(1023) m_lOnBits(10) = CLng(2047) m_lOnBits(11) = CLng(4095) m_lOnBits(12) = CLng(8191) m_lOnBits(13) = CLng(16383) m_lOnBits(14) = CLng(32767) m_lOnBits(15) = CLng(65535) m_lOnBits(16) = CLng(131071) m_lOnBits(17) = CLng(262143) m_lOnBits(18) = CLng(524287) m_lOnBits(19) = CLng(1048575) m_lOnBits(20) = CLng(2097151) m_lOnBits(21) = CLng(4194303) m_lOnBits(22) = CLng(8388607) m_lOnBits(23) = CLng(16777215) m_lOnBits(24) = CLng(33554431) m_lOnBits(25) = CLng(67108863) m_lOnBits(26) = CLng(134217727) m_lOnBits(27) = CLng(268435455) m_lOnBits(28) = CLng(536870911) m_lOnBits(29) = CLng(1073741823) m_lOnBits(30) = CLng(2147483647) m_l2Power(0) = CLng(1) m_l2Power(1) = CLng(2) m_l2Power(2) = CLng(4) m_l2Power(3) = CLng(8) m_l2Power(4) = CLng(16) m_l2Power(5) = CLng(32) m_l2Power(6) = CLng(64) m_l2Power(7) = CLng(128) m_l2Power(8) = CLng(256) m_l2Power(9) = CLng(512) m_l2Power(10) = CLng(1024) m_l2Power(11) = CLng(2048) m_l2Power(12) = CLng(4096) m_l2Power(13) = CLng(8192) m_l2Power(14) = CLng(16384) m_l2Power(15) = CLng(32768) m_l2Power(16) = CLng(65536) m_l2Power(17) = CLng(131072) m_l2Power(18) = CLng(262144) m_l2Power(19) = CLng(524288) m_l2Power(20) = CLng(1048576) m_l2Power(21) = CLng(2097152) m_l2Power(22) = CLng(4194304) m_l2Power(23) = CLng(8388608) m_l2Power(24) = CLng(16777216) m_l2Power(25) = CLng(33554432) m_l2Power(26) = CLng(67108864) m_l2Power(27) = CLng(134217728) m_l2Power(28) = CLng(268435456) m_l2Power(29) = CLng(536870912) m_l2Power(30) = CLng(1073741824) Private Function LShift(lValue, iShiftBits) If iShiftBits = 0 Then LShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And 1 Then LShift = &H80000000 Else LShift = 0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits)) Then LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000 Else LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) End If End Function Private Function RShift(lValue, iShiftBits) If iShiftBits = 0 Then RShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And &H80000000 Then RShift = 1 Else RShift = 0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits) If (lValue And &H80000000) Then RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1))) End If End Function Private Function RotateLeft(lValue, iShiftBits) RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits)) End Function Private Function AddUnsigned(lX, lY) Dim lX4 Dim lY4 Dim lX8 Dim lY8 Dim lResult lX8 = lX And &H80000000 lY8 = lY And &H80000000 lX4 = lX And &H40000000 lY4 = lY And &H40000000 lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF) If lX4 And lY4 Then lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 ElseIf lX4 Or lY4 Then If lResult And &H40000000 Then lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8 Else lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 End If Else lResult = lResult Xor lX8 Xor lY8 End If AddUnsigned = lResult End Function Private Function F(x, y, z) F = (x And y) Or ((Not x) And z) End Function Private Function G(x, y, z) G = (x And z) Or (y And (Not z)) End Function Private Function H(x, y, z) H = (x Xor y Xor z) End Function Private Function I(x, y, z) I = (y Xor (x Or (Not z))) End Function Private Sub FF(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Sub GG(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Sub HH(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Sub II(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Function ConvertToWordArray(sMessage) Dim lMessageLength Dim lNumberOfWords Dim lWordArray() Dim lBytePosition Dim lByteCount Dim lWordCount Const MODULUS_BITS = 512 Const CONGRUENT_BITS = 448 lMessageLength = Len(sMessage) lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD) ReDim lWordArray(lNumberOfWords - 1) lBytePosition = 0 lByteCount = 0 Do Until lByteCount >= lMessageLength lWordCount = lByteCount \ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition) lByteCount = lByteCount + 1 Loop lWordCount = lByteCount \ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition) lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3) lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29) ConvertToWordArray = lWordArray End Function Private Function WordToHex(lValue) Dim lByte Dim lCount For lCount = 0 To 3 lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1) WordToHex = WordToHex & Right("0" & Hex(lByte), 2) Next End Function Public Function MD5(sMessage) Dim x Dim k Dim AA Dim BB Dim CC Dim DD Dim a Dim b Dim c Dim d Const S11 = 7 Const S12 = 12 Const S13 = 17 Const S14 = 22 Const S21 = 5 Const S22 = 9 Const S23 = 14 Const S24 = 20 Const S31 = 4 Const S32 = 11 Const S33 = 16 Const S34 = 23 Const S41 = 6 Const S42 = 10 Const S43 = 15 Const S44 = 21 x = ConvertToWordArray(sMessage) a = &H67452301 b = &HEFCDAB89 c = &H98BADCFE d = &H10325476 For k = 0 To UBound(x) Step 16 AA = a BB = b CC = c DD = d FF a, b, c, d, x(k + 0), S11, &HD76AA478 FF d, a, b, c, x(k + 1), S12, &HE8C7B756 FF c, d, a, b, x(k + 2), S13, &H242070DB FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE FF a, b, c, d, x(k + 4), S11, &HF57C0FAF FF d, a, b, c, x(k + 5), S12, &H4787C62A FF c, d, a, b, x(k + 6), S13, &HA8304613 FF b, c, d, a, x(k + 7), S14, &HFD469501 FF a, b, c, d, x(k + 8), S11, &H698098D8 FF d, a, b, c, x(k + 9), S12, &H8B44F7AF FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1 FF b, c, d, a, x(k + 11), S14, &H895CD7BE FF a, b, c, d, x(k + 12), S11, &H6B901122 FF d, a, b, c, x(k + 13), S12, &HFD987193 FF c, d, a, b, x(k + 14), S13, &HA679438E FF b, c, d, a, x(k + 15), S14, &H49B40821 GG a, b, c, d, x(k + 1), S21, &HF61E2562 GG d, a, b, c, x(k + 6), S22, &HC040B340 GG c, d, a, b, x(k + 11), S23, &H265E5A51 GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA GG a, b, c, d, x(k + 5), S21, &HD62F105D GG d, a, b, c, x(k + 10), S22, &H2441453 GG c, d, a, b, x(k + 15), S23, &HD8A1E681 GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 GG d, a, b, c, x(k + 14), S22, &HC33707D6 GG c, d, a, b, x(k + 3), S23, &HF4D50D87 GG b, c, d, a, x(k + 8), S24, &H455A14ED GG a, b, c, d, x(k + 13), S21, &HA9E3E905 GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 GG c, d, a, b, x(k + 7), S23, &H676F02D9 GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A HH a, b, c, d, x(k + 5), S31, &HFFFA3942 HH d, a, b, c, x(k + 8), S32, &H8771F681 HH c, d, a, b, x(k + 11), S33, &H6D9D6122 HH b, c, d, a, x(k + 14), S34, &HFDE5380C HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 HH d, a, b, c, x(k + 4), S32, &H4BDECFA9 HH c, d, a, b, x(k + 7), S33, &HF6BB4B60 HH b, c, d, a, x(k + 10), S34, &HBEBFBC70 HH a, b, c, d, x(k + 13), S31, &H289B7EC6 HH d, a, b, c, x(k + 0), S32, &HEAA127FA HH c, d, a, b, x(k + 3), S33, &HD4EF3085 HH b, c, d, a, x(k + 6), S34, &H4881D05 HH a, b, c, d, x(k + 9), S31, &HD9D4D039 HH d, a, b, c, x(k + 12), S32, &HE6DB99E5 HH c, d, a, b, x(k + 15), S33, &H1FA27CF8 HH b, c, d, a, x(k + 2), S34, &HC4AC5665 II a, b, c, d, x(k + 0), S41, &HF4292244 II d, a, b, c, x(k + 7), S42, &H432AFF97 II c, d, a, b, x(k + 14), S43, &HAB9423A7 II b, c, d, a, x(k + 5), S44, &HFC93A039 II a, b, c, d, x(k + 12), S41, &H655B59C3 II d, a, b, c, x(k + 3), S42, &H8F0CCC92 II c, d, a, b, x(k + 10), S43, &HFFEFF47D II b, c, d, a, x(k + 1), S44, &H85845DD1 II a, b, c, d, x(k + 8), S41, &H6FA87E4F II d, a, b, c, x(k + 15), S42, &HFE2CE6E0 II c, d, a, b, x(k + 6), S43, &HA3014314 II b, c, d, a, x(k + 13), S44, &H4E0811A1 II a, b, c, d, x(k + 4), S41, &HF7537E82 II d, a, b, c, x(k + 11), S42, &HBD3AF235 II c, d, a, b, x(k + 2), S43, &H2AD7D2BB II b, c, d, a, x(k + 9), S44, &HEB86D391 a = AddUnsigned(a, AA) b = AddUnsigned(b, BB) c = AddUnsigned(c, CC) d = AddUnsigned(d, DD) Next MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) End Function Function getFileContents(ByRef Filepath) Const ForReading = 1 Const TristateUseDefault = -2 Dim FSO set FSO = server.createObject("Scripting.FileSystemObject") if FSO.FileExists(Filepath) Then Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault) Dim Contents Contents = TextStream.ReadAll 'Response.write("

" & Contents & "

") TextStream.Close Set TextStream = nothing Else Response.Write("WARNING: File " & Filepath & " could not be read!") getFileContents = nothing exit function End If Set FSO = nothing getFileContents = Contents End Function Function getDocType() getDocType = DOC_TYPE1 End Function Function getHeadHTML1() getHeadHTML1 = HEAD1 End Function Function getRobotHTML() getRobotHTML = ROBOT1 End Function Function getNoCollectHTML() getNoCollectHTML = NOCOLLECT1 End Function Function getHeadHTML2() getHeadHTML2 = HEAD2 End Function Function getTopHTML() getTopHTML = TOP1 End Function Function getEmailHTML(Method, Email) Select Case Method Case 0: getEmailHTML = "" Case 1: getEmailHTML = EMAIL1A & Email & EMAIL1B & Email & EMAIL1C Case 2: getEmailHTML = EMAIL2A & Email & EMAIL2B & Email & EMAIL2C Case 3: getEmailHTML = EMAIL3A & Email & EMAIL3B & Email & EMAIL3C Case 4: getEmailHTML = EMAIL4A & Email & EMAIL4B & Email & EMAIL4C Case 5: getEmailHTML = EMAIL5A & Email & EMAIL5B & Email & EMAIL5C Case 6: getEmailHTML = EMAIL6A & Email & EMAIL6B & Email & EMAIL6C Case 7: getEmailHTML = EMAIL7A & Email & EMAIL7B & Email & EMAIL7C Case 8: getEmailHTML = EMAIL8A & Email & EMAIL8B & Email & EMAIL8C Case 9: getEmailHTML = EMAIL9A & Email & EMAIL9B & Email & EMAIL9C case Else: getEmailHTML = EMAIL10A & Email & EMAIL10B & Email & EMAIL10C End Select End Function Function getLegalHTML getLegalHTML = LEGAL1 & getLegalContent() & LEGAL2 End Function Function getStyleHTML getStyleHTML = STYLE1 End Function Function getVanityHTML getVanityHTML = VANITY1 End Function Function getBottomHTML getBottomHTML = BOTTOM1 End Function Function performRequest(Request) ResponseStr = "" URL = "" Set srvXmlHttp = Server.CreateObject("MICROSOFT.XMLHTTP") URL = "http://" & REQUEST_HOST & REQUEST_SCRIPT srvXmlHttp.open "POST", URL, false srvXmlHttp.setRequestHeader "Cache-Control", "no-cache" srvXmlHttp.setRequestHeader "User-Agent", "PHPot " & HPOT_TAG2 srvXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" srvXmlHttp.setRequestHeader "Connection", "close" srvXmlHttp.send Request performRequest = srvXmlHttp.responseText End Function Function prepareRequest() Set postvars = CreateObject("Scripting.Dictionary") postvars.Add "tag1", HPOT_TAG1 postvars.Add "tag2", HPOT_TAG2 postvars.Add "tag3", HPOT_TAG3 postvars.Add "tag4", md5(getFileContents(Request.ServerVariables("PATH_TRANSLATED"))) postvars.Add "ip", Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) postvars.Add "svrn", Server.URLEncode(Request.ServerVariables("SERVER_NAME")) postvars.Add "svp", Server.URLEncode(Request.ServerVariables("SERVER_PORT")) postvars.Add "svip", Server.URLEncode(Request.ServerVariables("SERVER_ADDR")) postvars.Add "rquri", Server.URLEncode(Request.ServerVariables("URL")) postvars.Add "sn", Replace(Server.URLEncode(Request.ServerVariables("SCRIPT_NAME")), " ", "%20") postvars.Add "ref", Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) postvars.Add "uagnt", Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set prepareRequest = postvars End Function Function transcribeResponse(ByVal response) Set settings = CreateObject("Scripting.Dictionary") Arr = Split(URLDecode(response), Chr(10)) isParam = false For j = 0 to UBound(Arr) If Arr(j) = "" Then isParam = false If isParam Then pieces = Split(Arr(j), "=", 2) If UBound(pieces) = 1 Then settings.Add pieces(0), pieces(1) End If End If If Arr(j) = "" Then isParam = true Next If settings.Exists("directives") Then settings.Item("directives") = Split(settings.Item("directives"), ",") End If Set transcribeResponse = settings End Function Function URLDecode(ByRef str) Set re = New RegExp str = Replace(str, "+", " ") re.Pattern = "%([0-9a-fA-F]{2})" re.Global = True URLDecode = re.Replace(str, GetRef("URLDecodeHex")) End Function Function URLDecodeHex(match, hex_digits, pos, source) URLDecodeHex = chr("&H" & hex_digits) End Function Function formatHTML(ByRef str) formatHTML = Replace(str, "\n", VBCrLf) End Function Function echo(ByRef str) Response.Write(formatHTML(str)) End Function RequestText = "" ResponseText = "" Set Post = prepareRequest Items = Post.Items Keys = Post.Keys For j = 0 to Post.Count -1 RequestText = RequestText & "&" & Keys(j) & "=" & Items(j) Next RequestText = Mid(RequestText, 2) ResponseText = performRequest(RequestText) Set settings = transcribeResponse(ResponseText) directives = settings.Item("directives") email = settings.Item("email") emailmethod = settings.Item("emailmethod") Response.AddHeader "Cache-Control", "no-cache" %> <% If directives(0) And directives(0) = "1" Then echo(getDocType)%> <% If settings("injDocType") Then echo(settings("injDocTypeMsg"))%> <% If directives(1) And directives(1) = "1" Then echo(getHeadHTML1)%> <% If settings("injHead1HTML") Then echo(settings("injHead1HTMLMsg"))%> <% If directives(8) And directives(8) = "1" Then echo(getRobotHTML)%> <% If settings("injRobotHTML") Then echo(settings("injRobotHTMLMsg"))%> <% If directives(9) And directives(9) = "1" Then echo(getNoCollectHTML)%> <% If settings("injNoCollectHTML") Then echo(settings("injNoCollectHTMLMsg"))%> <% If directives(1) And directives(1) = "1" Then echo(getHeadHTML2)%> <% If settings("injHead2HTML") Then echo(settings("injHead2HTMLMsg"))%> <% If directives(2) And directives(2) = "1" Then echo(getTopHTML)%> <% If settings("injTopHTML") Then echo(settings("injTopHTMLMsg"))%> <% IF settings("actMsgOn") <> "" Then echo(settings("actMsg")) IF settings("errMsgOn") <> "" Then echo(settings("errMsg")) IF settings("customMsgOn") <> "" Then echo(settings("customMsg")) %> <% If directives(3) And directives(3) = "1" Then echo(getLegalHTML)%> <% If settings("injLegalHTML") Then echo(settings("injLegalHTMLMsg"))%> <% IF settings("altLegalOn") <> "" Then echo(settings("altLegalMsg")) %> <% If directives(4) And directives(4) = "1" Then echo(getEmailHTML(emailmethod, email))%> <% If settings("injEmailHTML") Then echo(settings("injEmailHTMLMsg"))%> <% If directives(5) And directives(5) = "1" Then echo(getStyleHTML)%> <% If settings("injStyleHTML") Then echo(settings("injStyleHTMLMsg"))%> <% If directives(6) And directives(6) = "1" Then echo(getVanityHTML)%> <% If settings("injVanityHTML") Then echo(settings("injVanityHTMLMsg"))%> <% IF settings("altVanityOn") <> "" Then echo(settings("altVanityMsg")) %> <% If directives(7) And directives(7) = "1" Then echo(getBottomHTML)%> <% If settings("injBottomHTML") Then echo(settings("injBottomHTMLMsg"))%>