WCF_CLIENT - клиент Web-сервиса (первая версия)

Этот софт является развитием предыдущей версии, поэтому долго растекаться мыслью по древу я с общей постановкой задачи я не буду - а лишь покажу код изменившихся фрагментов:


Калбэк вы можете привесить в вызывающем мою библиотеку коде динамически или статически. Динамически это выглядит так:


   1:  Dim ClientPostRedirect As New vbnet2009.Wcf_Client
   2:  AddHandler ClientPostRedirect.RedirectPrepared, AddressOf ClientResponseSave
   3:  ClientPostRedirect.PostRedirect(vbnet2009.Wcf_Client.PostRedirectEncode.UTF8, E2.URL_RETURN_NO, E2.i, "Retcode", "-50"...)
   4:   
   5:  ...
   6:   
   8:      'Запомним сформированный клиенту ответ
   9:      Sub ClientResponseSave(ByVal RedirectHtml As String, ByVal CallBackDebugLogNumber As Integer)
  10:          Dim AssistRequest As New vbnet2009.ExecSQL_RDR("ClientResponse", RedirectHtml, "i", CallBackDebugLogNumber)
  11:          AssistRequest.ExecSQL("Update airts.dbo.Request set ClientResponseType='Assist_OK',ClientResponse=@ClientResponse, ClientResponseDate=getdate() Where i=@i ", Data.CommandType.Text)
  12:          AssistRequest.Close()
  13:      End Sub

А статический калбек добавляется на бейсике так:


   1:  Dim WithEvents ClientPostRedirect As vbnet2009.Wcf_Client
   2:   
   3:  ...
   4:   
   5:  Dim ClientPostRedirect As New vbnet2009.Wcf_Client
   6:  ClientPostRedirect.PostRedirect(vbnet2009.Wcf_Client.PostRedirectEncode.UTF8, E2.URL_RETURN_NO, E2.i, "Retcode", "-50"...)
   7:   
   8:  ...
  10:   
  11:      'Запомним сформированный клиенту ответ
  12:      Sub ClientResponseSave(ByVal RedirectHtml As String, ByVal CallBackDebugLogNumber As Integer)  Handles ClientPostRedirect.RedirectPrepared
  13:          Dim AssistRequest As New vbnet2009.ExecSQL_RDR("ClientResponse", RedirectHtml, "i", CallBackDebugLogNumber)
  14:          AssistRequest.ExecSQL("Update airts.dbo.Request set ClientResponseType='Assist_OK',ClientResponse=@ClientResponse, ClientResponseDate=getdate() Where i=@i ", Data.CommandType.Text)
  15:          AssistRequest.Close()
  16:      End Sub

Код класса ParceNamespace во второй версии не поменялся, а усложнившийся фрагмент теперь занимает вместо 717 строчек 1318 и выглядит вот так:


   1:  Public Class Wcf_Client
   2:   
   3:      Public Delegate Sub RedirectLogger(ByVal RedirectForm As String, ByVal CallBackLoggerNumber As Integer)
   4:      Public Event RedirectPrepared As RedirectLogger
   5:   
   6:      Public Enum PostRequestEncode
   7:          ASCII = 1
   8:          UTF7 = 2
   9:          UTF8 = 3
  10:          UTF16 = 4
  11:          UTF32 = 5
  12:      End Enum
  13:   
  14:      Public Enum PostRedirectEncode
  15:          ASCII_Windows1251 = 1
  16:          UTF8 = 2
  17:          UTF16 = 3
  18:          ISO_8859_5 = 4
  19:      End Enum
  20:   
  21:      'редирект с POST-параметрами
  22:      Public Sub PostRedirect(ByVal Coding As PostRedirectEncode, ByVal URL As String, Optional ByVal CallBackLoggerNumber As Integer = 0, _
  23:                                     Optional ByVal PostName1 As String = "", Optional ByVal PostValue1 As String = "", _
  24:                                     Optional ByVal PostName2 As String = "", Optional ByVal PostValue2 As String = "", _
  25:                                     Optional ByVal PostName3 As String = "", Optional ByVal PostValue3 As String = "", _
  26:                                     Optional ByVal PostName4 As String = "", Optional ByVal PostValue4 As String = "", _
  27:                                     Optional ByVal PostName5 As String = "", Optional ByVal PostValue5 As String = "", _
  28:                                     Optional ByVal PostName6 As String = "", Optional ByVal PostValue6 As String = "", _
  29:                                     Optional ByVal PostName7 As String = "", Optional ByVal PostValue7 As String = "", _
  30:                                     Optional ByVal PostName8 As String = "", Optional ByVal PostValue8 As String = "", _
  31:                                     Optional ByVal PostName9 As String = "", Optional ByVal PostValue9 As String = "", _
  32:                                     Optional ByVal PostName10 As String = "", Optional ByVal PostValue10 As String = "", _
  33:                                     Optional ByVal PostName11 As String = "", Optional ByVal PostValue11 As String = "", _
  34:                                     Optional ByVal PostName12 As String = "", Optional ByVal PostValue12 As String = "", _
  35:                                     Optional ByVal PostName13 As String = "", Optional ByVal PostValue13 As String = "", _
  36:                                     Optional ByVal PostName14 As String = "", Optional ByVal PostValue14 As String = "", _
  37:                                     Optional ByVal PostName15 As String = "", Optional ByVal PostValue15 As String = "", _
  38:                                     Optional ByVal PostName16 As String = "", Optional ByVal PostValue16 As String = "", _
  39:                                     Optional ByVal PostName17 As String = "", Optional ByVal PostValue17 As String = "", _
  40:                                     Optional ByVal PostName18 As String = "", Optional ByVal PostValue18 As String = "", _
  41:                                     Optional ByVal PostName19 As String = "", Optional ByVal PostValue19 As String = "", _
  42:                                     Optional ByVal PostName20 As String = "", Optional ByVal PostValue20 As String = "", _
  43:                                     Optional ByVal PostName21 As String = "", Optional ByVal PostValue21 As String = "", _
  44:                                     Optional ByVal PostName22 As String = "", Optional ByVal PostValue22 As String = "", _
  45:                                     Optional ByVal PostName23 As String = "", Optional ByVal PostValue23 As String = "", _
  46:                                     Optional ByVal PostName24 As String = "", Optional ByVal PostValue24 As String = "", _
  47:                                     Optional ByVal PostName25 As String = "", Optional ByVal PostValue25 As String = "", _
  48:                                     Optional ByVal PostName26 As String = "", Optional ByVal PostValue26 As String = "", _
  49:                                     Optional ByVal PostName27 As String = "", Optional ByVal PostValue27 As String = "", _
  50:                                     Optional ByVal PostName28 As String = "", Optional ByVal PostValue28 As String = "", _
  51:                                     Optional ByVal PostName29 As String = "", Optional ByVal PostValue29 As String = "", _
  52:                                     Optional ByVal PostName30 As String = "", Optional ByVal PostValue30 As String = "")
  53:   
  54:          Dim POST_Data As String = PreparePostForm(PostName1, PostValue1, _
  55:                                      PostName2, PostValue2, _
  56:                                      PostName3, PostValue3, _
  57:                                      PostName4, PostValue4, _
  58:                                      PostName5, PostValue5, _
  59:                                      PostName6, PostValue6, _
  60:                                      PostName7, PostValue7, _
  61:                                      PostName8, PostValue8, _
  62:                                      PostName9, PostValue9, _
  63:                                      PostName10, PostValue10, _
  64:                                      PostName11, PostValue11, _
  65:                                      PostName12, PostValue12, _
  66:                                      PostName13, PostValue13, _
  67:                                      PostName14, PostValue14, _
  68:                                      PostName15, PostValue15, _
  69:                                      PostName16, PostValue16, _
  70:                                      PostName17, PostValue17, _
  71:                                      PostName18, PostValue18, _
  72:                                      PostName19, PostValue19, _
  73:                                      PostName20, PostValue20, _
  74:                                      PostName21, PostValue21, _
  75:                                      PostName22, PostValue22, _
  76:                                      PostName23, PostValue23, _
  77:                                      PostName24, PostValue24, _
  78:                                      PostName25, PostValue25, _
  79:                                      PostName26, PostValue26, _
  80:                                      PostName27, PostValue27, _
  81:                                      PostName28, PostValue28, _
  82:                                      PostName29, PostValue29, _
  83:                                      PostName30, PostValue30)
  84:   
  85:          PostRedirectStr(Coding, URL, POST_Data, CallBackLoggerNumber)
  86:      End Sub
  87:   
  88:      'Редирект браузера методом POST (молча, ошибки обрабатываются извне этого кода)
  89:      Public Sub PostRedirectStr(ByVal Coding As PostRedirectEncode, ByVal URL As String, ByVal POST_Data As String, ByVal CallBackLoggerNumber As Integer)
  90:          Dim Charset As String = ""
  91:          If Coding = PostRedirectEncode.ASCII_Windows1251 Then
  92:              Charset = "Windows-1251"
  93:          ElseIf Coding = PostRedirectEncode.ISO_8859_5 Then
  94:              Charset = "ISO-8859-5"
  95:          ElseIf Coding = PostRedirectEncode.UTF8 Then
  96:              Charset = "UTF-8"
  97:          ElseIf Coding = PostRedirectEncode.UTF16 Then
  98:              Charset = "UTF-16"
  99:          End If
 100:          '
 101:          Dim Str1 As String = "<html>" & vbCrLf & _
 102:          "<head>" & vbCrLf & _
 103:          "<meta http-equiv='Content-Type' content='text/html; charset=" & Charset & "'>" & vbCrLf & _
 104:          "</head>" & vbCrLf & _
 105:          "<body onload='submit();'> " & vbCrLf & _
 106:          "<form name='vbnet2009' action='" & URL & "' method='post' accept-charset='" & Charset & "'>" & vbCrLf & _
 107:          POST_Data & vbCrLf & _
 108:          "<input type='image' src='images/wait.gif' style='border-width:0px;' />" & vbCrLf & _
 109:          "</form>" & vbCrLf & _
 110:          "<script language='javascript' type='text/javascript'>" & vbCrLf & _
 111:          "function submit() {" & vbCrLf & _
 112:          "document.forms[0].submit();" & vbCrLf & _
 113:          "}" & vbCrLf & _
 114:          "</script>" & vbCrLf & _
 115:          "</body>" & vbCrLf & _
 116:          "</html>"
 117:          '
 118:          RaiseEvent RedirectPrepared(Str1, CallBackLoggerNumber)
 119:          '
 120:          Dim byteArray As Byte()
 121:          If Coding = PostRedirectEncode.ASCII_Windows1251 Then
 122:              byteArray = System.Text.Encoding.GetEncoding("Windows-1251").GetBytes(Str1)
 123:              HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.GetEncoding("Windows-1251")
 124:          ElseIf Coding = PostRedirectEncode.ISO_8859_5 Then
 125:              byteArray = System.Text.Encoding.GetEncoding("ISO-8859-5").GetBytes(Str1)
 126:              HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.GetEncoding("ISO-8859-5")
 127:          ElseIf Coding = PostRedirectEncode.UTF8 Then
 128:              byteArray = System.Text.Encoding.UTF8.GetBytes(Str1)
 129:              HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.UTF8
 130:          ElseIf Coding = PostRedirectEncode.UTF16 Then
 131:              byteArray = System.Text.Encoding.Unicode.GetBytes(Str1)
 132:              HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Unicode
 133:          End If
 134:          HttpContext.Current.Response.Charset = Charset
 135:          HttpContext.Current.Response.BinaryWrite(byteArray)
 136:      End Sub
 137:   
 138:   
 139:      'страничка с парметрами POST считывается в переменную
 140:      Public Function PostRequest(ByVal Coding As PostRequestEncode, ByVal URL As String, Optional ByVal CallBackLoggerNumber As Integer = 0, _
 141:                                     Optional ByVal PostName1 As String = "", Optional ByVal PostValue1 As String = "", _
 142:                                     Optional ByVal PostName2 As String = "", Optional ByVal PostValue2 As String = "", _
 143:                                     Optional ByVal PostName3 As String = "", Optional ByVal PostValue3 As String = "", _
 144:                                     Optional ByVal PostName4 As String = "", Optional ByVal PostValue4 As String = "", _
 145:                                     Optional ByVal PostName5 As String = "", Optional ByVal PostValue5 As String = "", _
 146:                                     Optional ByVal PostName6 As String = "", Optional ByVal PostValue6 As String = "", _
 147:                                     Optional ByVal PostName7 As String = "", Optional ByVal PostValue7 As String = "", _
 148:                                     Optional ByVal PostName8 As String = "", Optional ByVal PostValue8 As String = "", _
 149:                                     Optional ByVal PostName9 As String = "", Optional ByVal PostValue9 As String = "", _
 150:                                     Optional ByVal PostName10 As String = "", Optional ByVal PostValue10 As String = "", _
 151:                                     Optional ByVal PostName11 As String = "", Optional ByVal PostValue11 As String = "", _
 152:                                     Optional ByVal PostName12 As String = "", Optional ByVal PostValue12 As String = "", _
 153:                                     Optional ByVal PostName13 As String = "", Optional ByVal PostValue13 As String = "", _
 154:                                     Optional ByVal PostName14 As String = "", Optional ByVal PostValue14 As String = "", _
 155:                                     Optional ByVal PostName15 As String = "", Optional ByVal PostValue15 As String = "", _
 156:                                     Optional ByVal PostName16 As String = "", Optional ByVal PostValue16 As String = "", _
 157:                                     Optional ByVal PostName17 As String = "", Optional ByVal PostValue17 As String = "", _
 158:                                     Optional ByVal PostName18 As String = "", Optional ByVal PostValue18 As String = "", _
 159:                                     Optional ByVal PostName19 As String = "", Optional ByVal PostValue19 As String = "", _
 160:                                     Optional ByVal PostName20 As String = "", Optional ByVal PostValue20 As String = "", _
 161:                                     Optional ByVal PostName21 As String = "", Optional ByVal PostValue21 As String = "", _
 162:                                     Optional ByVal PostName22 As String = "", Optional ByVal PostValue22 As String = "", _
 163:                                     Optional ByVal PostName23 As String = "", Optional ByVal PostValue23 As String = "", _
 164:                                     Optional ByVal PostName24 As String = "", Optional ByVal PostValue24 As String = "", _
 165:                                     Optional ByVal PostName25 As String = "", Optional ByVal PostValue25 As String = "", _
 166:                                     Optional ByVal PostName26 As String = "", Optional ByVal PostValue26 As String = "", _
 167:                                     Optional ByVal PostName27 As String = "", Optional ByVal PostValue27 As String = "", _
 168:                                     Optional ByVal PostName28 As String = "", Optional ByVal PostValue28 As String = "", _
 169:                                     Optional ByVal PostName29 As String = "", Optional ByVal PostValue29 As String = "", _
 170:                                     Optional ByVal PostName30 As String = "", Optional ByVal PostValue30 As String = "")
 171:   
 172:          Dim POST_Data As String = PreparePostParm(PostName1, PostValue1, _
 173:                                      PostName2, PostValue2, _
 174:                                      PostName3, PostValue3, _
 175:                                      PostName4, PostValue4, _
 176:                                      PostName5, PostValue5, _
 177:                                      PostName6, PostValue6, _
 178:                                      PostName7, PostValue7, _
 179:                                      PostName8, PostValue8, _
 180:                                      PostName9, PostValue9, _
 181:                                      PostName10, PostValue10, _
 182:                                      PostName11, PostValue11, _
 183:                                      PostName12, PostValue12, _
 184:                                      PostName13, PostValue13, _
 185:                                      PostName14, PostValue14, _
 186:                                      PostName15, PostValue15, _
 187:                                      PostName16, PostValue16, _
 188:                                      PostName17, PostValue17, _
 189:                                      PostName18, PostValue18, _
 190:                                      PostName19, PostValue19, _
 191:                                      PostName20, PostValue20, _
 192:                                      PostName21, PostValue21, _
 193:                                      PostName22, PostValue22, _
 194:                                      PostName23, PostValue23, _
 195:                                      PostName24, PostValue24, _
 196:                                      PostName25, PostValue25, _
 197:                                      PostName26, PostValue26, _
 198:                                      PostName27, PostValue27, _
 199:                                      PostName28, PostValue28, _
 200:                                      PostName29, PostValue29, _
 201:                                      PostName30, PostValue30)
 202:          RaiseEvent RedirectPrepared(POST_Data, CallBackLoggerNumber)
 203:          Return PostRequestStr(Coding, URL, POST_Data)
 204:      End Function
 205:   
 206:      'Запрос странички методом POST (молча, ошибки обрабатываются извне этого кода)
 207:      Public Function PostRequestStr(ByVal RequestEncoding As PostRequestEncode, ByVal URL As String, ByVal POST_Data As String, Optional ByVal ResponseEncoding As PostRequestEncode = PostRequestEncode.ASCII) As String
 208:          Dim byteArray As Byte()
 209:          If RequestEncoding = PostRequestEncode.ASCII Then
 210:              byteArray = System.Text.Encoding.ASCII.GetBytes(POST_Data)
 211:          ElseIf RequestEncoding = PostRequestEncode.UTF16 Then
 212:              byteArray = System.Text.Encoding.Unicode.GetBytes(POST_Data)
 213:          ElseIf RequestEncoding = PostRequestEncode.UTF8 Then
 214:              byteArray = System.Text.Encoding.UTF8.GetBytes(POST_Data)
 215:          ElseIf RequestEncoding = PostRequestEncode.UTF7 Then
 216:              byteArray = System.Text.Encoding.UTF7.GetBytes(POST_Data)
 217:          ElseIf RequestEncoding = PostRequestEncode.UTF32 Then
 218:              byteArray = System.Text.Encoding.UTF32.GetBytes(POST_Data)
 219:          End If
 220:          '========== System.NotSupportedException The URI prefix is not recognized.
 221:          Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
 222:          request.Method = "POST"
 223:          request.ContentType = "application/x-www-form-urlencoded"
 224:          request.ContentLength = byteArray.Length
 225:          '========== System.Net.WebExceptionStatus.Timeout Unable to connect to the remote server
 226:          Dim POST_Stream As IO.Stream = request.GetRequestStream()
 227:          POST_Stream.Write(byteArray, 0, byteArray.Length)
 228:          POST_Stream.Close()
 229:          '
 230:          'ждем
 231:          '========== System.Net.WebException.Timeout
 232:          '========== System.Net.WebException = "The remote server returned an error: (404) Not Found."
 233:          Dim response As Net.HttpWebResponse = request.GetResponse()
 234:          Dim GET_Stream As IO.Stream = response.GetResponseStream()
 235:          Dim reader As IO.StreamReader
 236:          If ResponseEncoding = PostRequestEncode.ASCII Then
 237:              reader = New IO.StreamReader(GET_Stream, System.Text.ASCIIEncoding.GetEncoding("windows-1251"))
 238:          ElseIf ResponseEncoding = PostRequestEncode.UTF16 Then
 239:              reader = New IO.StreamReader(GET_Stream, System.Text.UnicodeEncoding.Unicode)
 240:          ElseIf ResponseEncoding = PostRequestEncode.UTF8 Then
 241:              reader = New IO.StreamReader(GET_Stream, System.Text.UTF8Encoding.UTF8)
 242:          ElseIf ResponseEncoding = PostRequestEncode.UTF7 Then
 243:              reader = New IO.StreamReader(GET_Stream, System.Text.UTF7Encoding.UTF7)
 244:          ElseIf ResponseEncoding = PostRequestEncode.UTF32 Then
 245:              reader = New IO.StreamReader(GET_Stream, System.Text.UTF32Encoding.UTF32)
 246:          End If
 247:          Dim HTML As String = reader.ReadToEnd
 248:          reader.Close()
 249:          GET_Stream.Close()
 250:          response.Close()
 251:          Return HTML
 252:      End Function
 253:   
 254:      Function PreparePostParm(Optional ByVal PostName1 As String = "", Optional ByVal PostValue1 As String = "", _
 255:                                     Optional ByVal PostName2 As String = "", Optional ByVal PostValue2 As String = "", _
 256:                                     Optional ByVal PostName3 As String = "", Optional ByVal PostValue3 As String = "", _
 257:                                     Optional ByVal PostName4 As String = "", Optional ByVal PostValue4 As String = "", _
 258:                                     Optional ByVal PostName5 As String = "", Optional ByVal PostValue5 As String = "", _
 259:                                     Optional ByVal PostName6 As String = "", Optional ByVal PostValue6 As String = "", _
 260:                                     Optional ByVal PostName7 As String = "", Optional ByVal PostValue7 As String = "", _
 261:                                     Optional ByVal PostName8 As String = "", Optional ByVal PostValue8 As String = "", _
 262:                                     Optional ByVal PostName9 As String = "", Optional ByVal PostValue9 As String = "", _
 263:                                     Optional ByVal PostName10 As String = "", Optional ByVal PostValue10 As String = "", _
 264:                                     Optional ByVal PostName11 As String = "", Optional ByVal PostValue11 As String = "", _
 265:                                     Optional ByVal PostName12 As String = "", Optional ByVal PostValue12 As String = "", _
 266:                                     Optional ByVal PostName13 As String = "", Optional ByVal PostValue13 As String = "", _
 267:                                     Optional ByVal PostName14 As String = "", Optional ByVal PostValue14 As String = "", _
 268:                                     Optional ByVal PostName15 As String = "", Optional ByVal PostValue15 As String = "", _
 269:                                     Optional ByVal PostName16 As String = "", Optional ByVal PostValue16 As String = "", _
 270:                                     Optional ByVal PostName17 As String = "", Optional ByVal PostValue17 As String = "", _
 271:                                     Optional ByVal PostName18 As String = "", Optional ByVal PostValue18 As String = "", _
 272:                                     Optional ByVal PostName19 As String = "", Optional ByVal PostValue19 As String = "", _
 273:                                     Optional ByVal PostName20 As String = "", Optional ByVal PostValue20 As String = "", _
 274:                                     Optional ByVal PostName21 As String = "", Optional ByVal PostValue21 As String = "", _
 275:                                     Optional ByVal PostName22 As String = "", Optional ByVal PostValue22 As String = "", _
 276:                                     Optional ByVal PostName23 As String = "", Optional ByVal PostValue23 As String = "", _
 277:                                     Optional ByVal PostName24 As String = "", Optional ByVal PostValue24 As String = "", _
 278:                                     Optional ByVal PostName25 As String = "", Optional ByVal PostValue25 As String = "", _
 279:                                     Optional ByVal PostName26 As String = "", Optional ByVal PostValue26 As String = "", _
 280:                                     Optional ByVal PostName27 As String = "", Optional ByVal PostValue27 As String = "", _
 281:                                     Optional ByVal PostName28 As String = "", Optional ByVal PostValue28 As String = "", _
 282:                                     Optional ByVal PostName29 As String = "", Optional ByVal PostValue29 As String = "", _
 283:                                     Optional ByVal PostName30 As String = "", Optional ByVal PostValue30 As String = "") As String
 284:          Dim POST_Data As New Text.StringBuilder
 285:          If PostName30 <> "" Then
 286:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 287:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 288:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 289:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 290:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 291:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 292:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 293:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 294:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 295:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 296:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 297:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 298:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 299:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 300:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 301:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 302:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 303:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 304:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 305:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 306:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 307:              POST_Data.Append((PostName22) & "=" & (PostValue22) & "&")
 308:              POST_Data.Append((PostName23) & "=" & (PostValue23) & "&")
 309:              POST_Data.Append((PostName24) & "=" & (PostValue24) & "&")
 310:              POST_Data.Append((PostName25) & "=" & (PostValue25) & "&")
 311:              POST_Data.Append((PostName26) & "=" & (PostValue26) & "&")
 312:              POST_Data.Append((PostName27) & "=" & (PostValue27) & "&")
 313:              POST_Data.Append((PostName28) & "=" & (PostValue28) & "&")
 314:              POST_Data.Append((PostName29) & "=" & (PostValue29) & "&")
 315:              POST_Data.Append((PostName30) & "=" & (PostValue30))
 316:          ElseIf PostName29 <> "" Then
 317:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 318:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 319:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 320:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 321:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 322:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 323:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 324:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 325:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 326:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 327:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 328:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 329:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 330:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 331:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 332:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 333:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 334:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 335:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 336:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 337:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 338:              POST_Data.Append((PostName22) & "=" & (PostValue22) & "&")
 339:              POST_Data.Append((PostName23) & "=" & (PostValue23) & "&")
 340:              POST_Data.Append((PostName24) & "=" & (PostValue24) & "&")
 341:              POST_Data.Append((PostName25) & "=" & (PostValue25) & "&")
 342:              POST_Data.Append((PostName26) & "=" & (PostValue26) & "&")
 343:              POST_Data.Append((PostName27) & "=" & (PostValue27) & "&")
 344:              POST_Data.Append((PostName28) & "=" & (PostValue28) & "&")
 345:              POST_Data.Append((PostName29) & "=" & (PostValue29))
 346:          ElseIf PostName28 <> "" Then
 347:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 348:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 349:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 350:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 351:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 352:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 353:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 354:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 355:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 356:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 357:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 358:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 359:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 360:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 361:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 362:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 363:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 364:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 365:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 366:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 367:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 368:              POST_Data.Append((PostName22) & "=" & (PostValue22) & "&")
 369:              POST_Data.Append((PostName23) & "=" & (PostValue23) & "&")
 370:              POST_Data.Append((PostName24) & "=" & (PostValue24) & "&")
 371:              POST_Data.Append((PostName25) & "=" & (PostValue25) & "&")
 372:              POST_Data.Append((PostName26) & "=" & (PostValue26) & "&")
 373:              POST_Data.Append((PostName27) & "=" & (PostValue27) & "&")
 374:              POST_Data.Append((PostName28) & "=" & (PostValue28))
 375:          ElseIf PostName27 <> "" Then
 376:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 377:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 378:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 379:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 380:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 381:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 382:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 383:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 384:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 385:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 386:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 387:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 388:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 389:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 390:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 391:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 392:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 393:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 394:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 395:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 396:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 397:              POST_Data.Append((PostName22) & "=" & (PostValue22) & "&")
 398:              POST_Data.Append((PostName23) & "=" & (PostValue23) & "&")
 399:              POST_Data.Append((PostName24) & "=" & (PostValue24) & "&")
 400:              POST_Data.Append((PostName25) & "=" & (PostValue25) & "&")
 401:              POST_Data.Append((PostName26) & "=" & (PostValue26) & "&")
 402:              POST_Data.Append((PostName27) & "=" & (PostValue27))
 403:          ElseIf PostName26 <> "" Then
 404:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 405:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 406:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 407:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 408:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 409:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 410:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 411:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 412:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 413:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 414:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 415:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 416:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 417:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 418:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 419:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 420:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 421:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 422:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 423:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 424:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 425:              POST_Data.Append((PostName22) & "=" & (PostValue22) & "&")
 426:              POST_Data.Append((PostName23) & "=" & (PostValue23) & "&")
 427:              POST_Data.Append((PostName24) & "=" & (PostValue24) & "&")
 428:              POST_Data.Append((PostName25) & "=" & (PostValue25) & "&")
 429:              POST_Data.Append((PostName26) & "=" & (PostValue26))
 430:          ElseIf PostName25 <> "" Then
 431:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 432:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 433:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 434:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 435:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 436:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 437:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 438:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 439:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 440:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 441:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 442:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 443:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 444:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 445:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 446:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 447:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 448:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 449:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 450:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 451:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 452:              POST_Data.Append((PostName22) & "=" & (PostValue22) & "&")
 453:              POST_Data.Append((PostName23) & "=" & (PostValue23) & "&")
 454:              POST_Data.Append((PostName24) & "=" & (PostValue24) & "&")
 455:              POST_Data.Append((PostName25) & "=" & (PostValue25))
 456:          ElseIf PostName24 <> "" Then
 457:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 458:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 459:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 460:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 461:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 462:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 463:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 464:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 465:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 466:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 467:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 468:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 469:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 470:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 471:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 472:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 473:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 474:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 475:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 476:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 477:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 478:              POST_Data.Append((PostName22) & "=" & (PostValue22) & "&")
 479:              POST_Data.Append((PostName23) & "=" & (PostValue23) & "&")
 480:              POST_Data.Append((PostName24) & "=" & (PostValue24))
 481:          ElseIf PostName23 <> "" Then
 482:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 483:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 484:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 485:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 486:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 487:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 488:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 489:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 490:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 491:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 492:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 493:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 494:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 495:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 496:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 497:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 498:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 499:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 500:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 501:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 502:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 503:              POST_Data.Append((PostName22) & "=" & (PostValue22) & "&")
 504:              POST_Data.Append((PostName23) & "=" & (PostValue23))
 505:          ElseIf PostName22 <> "" Then
 506:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 507:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 508:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 509:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 510:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 511:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 512:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 513:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 514:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 515:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 516:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 517:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 518:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 519:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 520:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 521:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 522:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 523:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 524:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 525:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 526:              POST_Data.Append((PostName21) & "=" & (PostValue21) & "&")
 527:              POST_Data.Append((PostName22) & "=" & (PostValue22))
 528:          ElseIf PostName21 <> "" Then
 529:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 530:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 531:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 532:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 533:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 534:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 535:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 536:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 537:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 538:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 539:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 540:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 541:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 542:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 543:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 544:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 545:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 546:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 547:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 548:              POST_Data.Append((PostName20) & "=" & (PostValue20) & "&")
 549:              POST_Data.Append((PostName21) & "=" & (PostValue21))
 550:          ElseIf PostName20 <> "" Then
 551:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 552:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 553:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 554:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 555:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 556:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 557:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 558:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 559:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 560:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 561:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 562:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 563:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 564:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 565:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 566:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 567:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 568:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 569:              POST_Data.Append((PostName19) & "=" & (PostValue19) & "&")
 570:              POST_Data.Append((PostName20) & "=" & (PostValue20))
 571:          ElseIf PostName19 <> "" Then
 572:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 573:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 574:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 575:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 576:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 577:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 578:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 579:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 580:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 581:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 582:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 583:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 584:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 585:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 586:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 587:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 588:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 589:              POST_Data.Append((PostName18) & "=" & (PostValue18) & "&")
 590:              POST_Data.Append((PostName19) & "=" & (PostValue19))
 591:          ElseIf PostName18 <> "" Then
 592:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 593:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 594:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 595:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 596:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 597:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 598:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 599:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 600:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 601:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 602:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 603:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 604:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 605:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 606:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 607:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 608:              POST_Data.Append((PostName17) & "=" & (PostValue17) & "&")
 609:              POST_Data.Append((PostName18) & "=" & (PostValue18))
 610:          ElseIf PostName17 <> "" Then
 611:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 612:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 613:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 614:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 615:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 616:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 617:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 618:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 619:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 620:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 621:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 622:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 623:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 624:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 625:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 626:              POST_Data.Append((PostName16) & "=" & (PostValue16) & "&")
 627:              POST_Data.Append((PostName17) & "=" & (PostValue17))
 628:          ElseIf PostName16 <> "" Then
 629:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 630:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 631:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 632:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 633:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 634:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 635:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 636:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 637:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 638:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 639:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 640:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 641:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 642:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 643:              POST_Data.Append((PostName15) & "=" & (PostValue15) & "&")
 644:              POST_Data.Append((PostName16) & "=" & (PostValue16))
 645:          ElseIf PostName15 <> "" Then
 646:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 647:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 648:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 649:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 650:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 651:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 652:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 653:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 654:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 655:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 656:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 657:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 658:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 659:              POST_Data.Append((PostName14) & "=" & (PostValue14) & "&")
 660:              POST_Data.Append((PostName15) & "=" & (PostValue15))
 661:          ElseIf PostName14 <> "" Then
 662:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 663:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 664:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 665:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 666:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 667:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 668:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 669:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 670:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 671:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 672:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 673:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 674:              POST_Data.Append((PostName13) & "=" & (PostValue13) & "&")
 675:              POST_Data.Append((PostName14) & "=" & (PostValue14))
 676:          ElseIf PostName13 <> "" Then
 677:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 678:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 679:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 680:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 681:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 682:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 683:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 684:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 685:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 686:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 687:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 688:              POST_Data.Append((PostName12) & "=" & (PostValue12) & "&")
 689:              POST_Data.Append((PostName13) & "=" & (PostValue13))
 690:          ElseIf PostName12 <> "" Then
 691:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 692:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 693:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 694:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 695:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 696:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 697:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 698:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 699:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 700:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 701:              POST_Data.Append((PostName11) & "=" & (PostValue11) & "&")
 702:              POST_Data.Append((PostName12) & "=" & (PostValue12))
 703:          ElseIf PostName11 <> "" Then
 704:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 705:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 706:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 707:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 708:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 709:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 710:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 711:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 712:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 713:              POST_Data.Append((PostName10) & "=" & (PostValue10) & "&")
 714:              POST_Data.Append((PostName11) & "=" & (PostValue11))
 715:          ElseIf PostName10 <> "" Then
 716:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 717:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 718:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 719:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 720:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 721:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 722:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 723:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 724:              POST_Data.Append((PostName9) & "=" & (PostValue9) & "&")
 725:              POST_Data.Append((PostName10) & "=" & (PostValue10))
 726:          ElseIf PostName9 <> "" Then
 727:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 728:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 729:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 730:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 731:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 732:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 733:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 734:              POST_Data.Append((PostName8) & "=" & (PostValue8) & "&")
 735:              POST_Data.Append((PostName9) & "=" & (PostValue9))
 736:          ElseIf PostName8 <> "" Then
 737:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 738:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 739:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 740:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 741:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 742:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 743:              POST_Data.Append((PostName7) & "=" & (PostValue7) & "&")
 744:              POST_Data.Append((PostName8) & "=" & (PostValue8))
 745:          ElseIf PostName7 <> "" Then
 746:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 747:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 748:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 749:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 750:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 751:              POST_Data.Append((PostName6) & "=" & (PostValue6) & "&")
 752:              POST_Data.Append((PostName7) & "=" & (PostValue7))
 753:          ElseIf PostName6 <> "" Then
 754:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 755:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 756:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 757:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 758:              POST_Data.Append((PostName5) & "=" & (PostValue5) & "&")
 759:              POST_Data.Append((PostName6) & "=" & (PostValue6))
 760:          ElseIf PostName5 <> "" Then
 761:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 762:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 763:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 764:              POST_Data.Append((PostName4) & "=" & (PostValue4) & "&")
 765:              POST_Data.Append((PostName5) & "=" & (PostValue5))
 766:          ElseIf PostName4 <> "" Then
 767:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 768:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 769:              POST_Data.Append((PostName3) & "=" & (PostValue3) & "&")
 770:              POST_Data.Append((PostName4) & "=" & (PostValue4))
 771:          ElseIf PostName3 <> "" Then
 772:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 773:              POST_Data.Append((PostName2) & "=" & (PostValue2) & "&")
 774:              POST_Data.Append((PostName3) & "=" & (PostValue3))
 775:          ElseIf PostName2 <> "" Then
 776:              POST_Data.Append((PostName1) & "=" & (PostValue1) & "&")
 777:              POST_Data.Append((PostName2) & "=" & (PostValue2))
 778:          ElseIf PostName1 <> "" Then
 779:              POST_Data.Append((PostName1) & "=" & (PostValue1))
 780:          Else
 781:              POST_Data.AppendLine()
 782:          End If
 783:          POST_Data.Append(vbCrLf & vbCrLf)
 784:          Return POST_Data.ToString
 785:      End Function
 786:   
 787:      Function PreparePostForm(Optional ByVal PostName1 As String = "", Optional ByVal PostValue1 As String = "", _
 788:                                 Optional ByVal PostName2 As String = "", Optional ByVal PostValue2 As String = "", _
 789:                                 Optional ByVal PostName3 As String = "", Optional ByVal PostValue3 As String = "", _
 790:                                 Optional ByVal PostName4 As String = "", Optional ByVal PostValue4 As String = "", _
 791:                                 Optional ByVal PostName5 As String = "", Optional ByVal PostValue5 As String = "", _
 792:                                 Optional ByVal PostName6 As String = "", Optional ByVal PostValue6 As String = "", _
 793:                                 Optional ByVal PostName7 As String = "", Optional ByVal PostValue7 As String = "", _
 794:                                 Optional ByVal PostName8 As String = "", Optional ByVal PostValue8 As String = "", _
 795:                                 Optional ByVal PostName9 As String = "", Optional ByVal PostValue9 As String = "", _
 796:                                 Optional ByVal PostName10 As String = "", Optional ByVal PostValue10 As String = "", _
 797:                                 Optional ByVal PostName11 As String = "", Optional ByVal PostValue11 As String = "", _
 798:                                 Optional ByVal PostName12 As String = "", Optional ByVal PostValue12 As String = "", _
 799:                                 Optional ByVal PostName13 As String = "", Optional ByVal PostValue13 As String = "", _
 800:                                 Optional ByVal PostName14 As String = "", Optional ByVal PostValue14 As String = "", _
 801:                                 Optional ByVal PostName15 As String = "", Optional ByVal PostValue15 As String = "", _
 802:                                 Optional ByVal PostName16 As String = "", Optional ByVal PostValue16 As String = "", _
 803:                                 Optional ByVal PostName17 As String = "", Optional ByVal PostValue17 As String = "", _
 804:                                 Optional ByVal PostName18 As String = "", Optional ByVal PostValue18 As String = "", _
 805:                                 Optional ByVal PostName19 As String = "", Optional ByVal PostValue19 As String = "", _
 806:                                 Optional ByVal PostName20 As String = "", Optional ByVal PostValue20 As String = "", _
 807:                                 Optional ByVal PostName21 As String = "", Optional ByVal PostValue21 As String = "", _
 808:                                 Optional ByVal PostName22 As String = "", Optional ByVal PostValue22 As String = "", _
 809:                                 Optional ByVal PostName23 As String = "", Optional ByVal PostValue23 As String = "", _
 810:                                 Optional ByVal PostName24 As String = "", Optional ByVal PostValue24 As String = "", _
 811:                                 Optional ByVal PostName25 As String = "", Optional ByVal PostValue25 As String = "", _
 812:                                 Optional ByVal PostName26 As String = "", Optional ByVal PostValue26 As String = "", _
 813:                                 Optional ByVal PostName27 As String = "", Optional ByVal PostValue27 As String = "", _
 814:                                 Optional ByVal PostName28 As String = "", Optional ByVal PostValue28 As String = "", _
 815:                                 Optional ByVal PostName29 As String = "", Optional ByVal PostValue29 As String = "", _
 816:                                 Optional ByVal PostName30 As String = "", Optional ByVal PostValue30 As String = "") As String
 817:          Dim POST_Data As New Text.StringBuilder
 818:          If PostName30 <> "" Then
 819:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
 820:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
 821:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
 822:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
 823:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
 824:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
 825:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
 826:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
 827:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
 828:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
 829:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
 830:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
 831:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
 832:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
 833:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
 834:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
 835:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
 836:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
 837:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
 838:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
 839:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
 840:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
 841:              POST_Data.Append("<input type='hidden' name='" & (PostName23) & "' value='" & (PostValue23) & "' />" & vbCrLf)
 842:              POST_Data.Append("<input type='hidden' name='" & (PostName24) & "' value='" & (PostValue24) & "' />" & vbCrLf)
 843:              POST_Data.Append("<input type='hidden' name='" & (PostName25) & "' value='" & (PostValue25) & "' />" & vbCrLf)
 844:              POST_Data.Append("<input type='hidden' name='" & (PostName26) & "' value='" & (PostValue26) & "' />" & vbCrLf)
 845:              POST_Data.Append("<input type='hidden' name='" & (PostName27) & "' value='" & (PostValue27) & "' />" & vbCrLf)
 846:              POST_Data.Append("<input type='hidden' name='" & (PostName28) & "' value='" & (PostValue28) & "' />" & vbCrLf)
 847:              POST_Data.Append("<input type='hidden' name='" & (PostName29) & "' value='" & (PostValue29) & "' />" & vbCrLf)
 848:              POST_Data.Append("<input type='hidden' name='" & (PostName30) & "' value='" & (PostValue30) & "' />" & vbCrLf)
 849:          ElseIf PostName29 <> "" Then
 850:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
 851:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
 852:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
 853:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
 854:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
 855:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
 856:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
 857:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
 858:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
 859:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
 860:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
 861:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
 862:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
 863:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
 864:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
 865:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
 866:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
 867:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
 868:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
 869:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
 870:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
 871:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
 872:              POST_Data.Append("<input type='hidden' name='" & (PostName23) & "' value='" & (PostValue23) & "' />" & vbCrLf)
 873:              POST_Data.Append("<input type='hidden' name='" & (PostName24) & "' value='" & (PostValue24) & "' />" & vbCrLf)
 874:              POST_Data.Append("<input type='hidden' name='" & (PostName25) & "' value='" & (PostValue25) & "' />" & vbCrLf)
 875:              POST_Data.Append("<input type='hidden' name='" & (PostName26) & "' value='" & (PostValue26) & "' />" & vbCrLf)
 876:              POST_Data.Append("<input type='hidden' name='" & (PostName27) & "' value='" & (PostValue27) & "' />" & vbCrLf)
 877:              POST_Data.Append("<input type='hidden' name='" & (PostName28) & "' value='" & (PostValue28) & "' />" & vbCrLf)
 878:              POST_Data.Append("<input type='hidden' name='" & (PostName29) & "' value='" & (PostValue29) & "' />" & vbCrLf)
 879:          ElseIf PostName28 <> "" Then
 880:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
 881:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
 882:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
 883:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
 884:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
 885:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
 886:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
 887:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
 888:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
 889:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
 890:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
 891:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
 892:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
 893:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
 894:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
 895:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
 896:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
 897:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
 898:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
 899:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
 900:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
 901:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
 902:              POST_Data.Append("<input type='hidden' name='" & (PostName23) & "' value='" & (PostValue23) & "' />" & vbCrLf)
 903:              POST_Data.Append("<input type='hidden' name='" & (PostName24) & "' value='" & (PostValue24) & "' />" & vbCrLf)
 904:              POST_Data.Append("<input type='hidden' name='" & (PostName25) & "' value='" & (PostValue25) & "' />" & vbCrLf)
 905:              POST_Data.Append("<input type='hidden' name='" & (PostName26) & "' value='" & (PostValue26) & "' />" & vbCrLf)
 906:              POST_Data.Append("<input type='hidden' name='" & (PostName27) & "' value='" & (PostValue27) & "' />" & vbCrLf)
 907:              POST_Data.Append("<input type='hidden' name='" & (PostName28) & "' value='" & (PostValue28) & "' />" & vbCrLf)
 908:          ElseIf PostName27 <> "" Then
 909:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
 910:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
 911:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
 912:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
 913:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
 914:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
 915:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
 916:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
 917:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
 918:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
 919:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
 920:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
 921:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
 922:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
 923:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
 924:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
 925:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
 926:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
 927:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
 928:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
 929:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
 930:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
 931:              POST_Data.Append("<input type='hidden' name='" & (PostName23) & "' value='" & (PostValue23) & "' />" & vbCrLf)
 932:              POST_Data.Append("<input type='hidden' name='" & (PostName24) & "' value='" & (PostValue24) & "' />" & vbCrLf)
 933:              POST_Data.Append("<input type='hidden' name='" & (PostName25) & "' value='" & (PostValue25) & "' />" & vbCrLf)
 934:              POST_Data.Append("<input type='hidden' name='" & (PostName26) & "' value='" & (PostValue26) & "' />" & vbCrLf)
 935:              POST_Data.Append("<input type='hidden' name='" & (PostName27) & "' value='" & (PostValue27) & "' />" & vbCrLf)
 936:          ElseIf PostName26 <> "" Then
 937:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
 938:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
 939:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
 940:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
 941:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
 942:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
 943:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
 944:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
 945:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
 946:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
 947:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
 948:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
 949:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
 950:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
 951:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
 952:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
 953:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
 954:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
 955:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
 956:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
 957:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
 958:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
 959:              POST_Data.Append("<input type='hidden' name='" & (PostName23) & "' value='" & (PostValue23) & "' />" & vbCrLf)
 960:              POST_Data.Append("<input type='hidden' name='" & (PostName24) & "' value='" & (PostValue24) & "' />" & vbCrLf)
 961:              POST_Data.Append("<input type='hidden' name='" & (PostName25) & "' value='" & (PostValue25) & "' />" & vbCrLf)
 962:              POST_Data.Append("<input type='hidden' name='" & (PostName26) & "' value='" & (PostValue26) & "' />" & vbCrLf)
 963:          ElseIf PostName25 <> "" Then
 964:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
 965:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
 966:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
 967:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
 968:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
 969:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
 970:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
 971:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
 972:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
 973:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
 974:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
 975:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
 976:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
 977:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
 978:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
 979:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
 980:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
 981:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
 982:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
 983:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
 984:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
 985:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
 986:              POST_Data.Append("<input type='hidden' name='" & (PostName23) & "' value='" & (PostValue23) & "' />" & vbCrLf)
 987:              POST_Data.Append("<input type='hidden' name='" & (PostName24) & "' value='" & (PostValue24) & "' />" & vbCrLf)
 988:              POST_Data.Append("<input type='hidden' name='" & (PostName25) & "' value='" & (PostValue25) & "' />" & vbCrLf)
 989:          ElseIf PostName24 <> "" Then
 990:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
 991:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
 992:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
 993:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
 994:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
 995:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
 996:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
 997:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
 998:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
 999:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1000:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1001:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1002:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1003:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1004:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1005:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1006:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
1007:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
1008:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
1009:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
1010:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
1011:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
1012:              POST_Data.Append("<input type='hidden' name='" & (PostName23) & "' value='" & (PostValue23) & "' />" & vbCrLf)
1013:              POST_Data.Append("<input type='hidden' name='" & (PostName24) & "' value='" & (PostValue24) & "' />" & vbCrLf)
1014:          ElseIf PostName23 <> "" Then
1015:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1016:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1017:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1018:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1019:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1020:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1021:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1022:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1023:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1024:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1025:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1026:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1027:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1028:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1029:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1030:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1031:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
1032:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
1033:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
1034:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
1035:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
1036:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
1037:              POST_Data.Append("<input type='hidden' name='" & (PostName23) & "' value='" & (PostValue23) & "' />" & vbCrLf)
1038:          ElseIf PostName22 <> "" Then
1039:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1040:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1041:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1042:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1043:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1044:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1045:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1046:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1047:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1048:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1049:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1050:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1051:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1052:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1053:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1054:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1055:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
1056:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
1057:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
1058:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
1059:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
1060:              POST_Data.Append("<input type='hidden' name='" & (PostName22) & "' value='" & (PostValue22) & "' />" & vbCrLf)
1061:          ElseIf PostName21 <> "" Then
1062:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1063:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1064:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1065:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1066:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1067:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1068:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1069:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1070:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1071:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1072:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1073:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1074:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1075:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1076:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1077:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1078:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
1079:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
1080:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
1081:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
1082:              POST_Data.Append("<input type='hidden' name='" & (PostName21) & "' value='" & (PostValue21) & "' />" & vbCrLf)
1083:          ElseIf PostName20 <> "" Then
1084:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1085:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1086:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1087:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1088:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1089:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1090:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1091:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1092:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1093:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1094:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1095:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1096:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1097:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1098:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1099:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1100:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
1101:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
1102:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
1103:              POST_Data.Append("<input type='hidden' name='" & (PostName20) & "' value='" & (PostValue20) & "' />" & vbCrLf)
1104:          ElseIf PostName19 <> "" Then
1105:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1106:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1107:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1108:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1109:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1110:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1111:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1112:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1113:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1114:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1115:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1116:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1117:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1118:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1119:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1120:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1121:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
1122:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
1123:              POST_Data.Append("<input type='hidden' name='" & (PostName19) & "' value='" & (PostValue19) & "' />" & vbCrLf)
1124:          ElseIf PostName18 <> "" Then
1125:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1126:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1127:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1128:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1129:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1130:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1131:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1132:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1133:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1134:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1135:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1136:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1137:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1138:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1139:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1140:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1141:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
1142:              POST_Data.Append("<input type='hidden' name='" & (PostName18) & "' value='" & (PostValue18) & "' />" & vbCrLf)
1143:          ElseIf PostName17 <> "" Then
1144:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1145:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1146:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1147:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1148:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1149:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1150:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1151:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1152:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1153:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1154:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1155:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1156:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1157:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1158:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1159:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1160:              POST_Data.Append("<input type='hidden' name='" & (PostName17) & "' value='" & (PostValue17) & "' />" & vbCrLf)
1161:          ElseIf PostName16 <> "" Then
1162:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1163:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1164:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1165:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1166:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1167:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1168:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1169:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1170:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1171:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1172:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1173:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1174:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1175:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1176:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1177:              POST_Data.Append("<input type='hidden' name='" & (PostName16) & "' value='" & (PostValue16) & "' />" & vbCrLf)
1178:          ElseIf PostName15 <> "" Then
1179:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1180:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1181:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1182:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1183:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1184:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1185:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1186:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1187:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1188:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1189:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1190:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1191:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1192:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1193:              POST_Data.Append("<input type='hidden' name='" & (PostName15) & "' value='" & (PostValue15) & "' />" & vbCrLf)
1194:          ElseIf PostName14 <> "" Then
1195:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1196:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1197:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1198:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1199:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1200:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1201:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1202:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1203:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1204:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1205:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1206:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1207:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1208:              POST_Data.Append("<input type='hidden' name='" & (PostName14) & "' value='" & (PostValue14) & "' />" & vbCrLf)
1209:          ElseIf PostName13 <> "" Then
1210:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1211:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1212:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1213:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1214:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1215:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1216:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1217:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1218:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1219:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1220:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1221:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1222:              POST_Data.Append("<input type='hidden' name='" & (PostName13) & "' value='" & (PostValue13) & "' />" & vbCrLf)
1223:          ElseIf PostName12 <> "" Then
1224:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1225:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1226:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1227:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1228:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1229:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1230:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1231:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1232:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1233:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1234:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1235:              POST_Data.Append("<input type='hidden' name='" & (PostName12) & "' value='" & (PostValue12) & "' />" & vbCrLf)
1236:          ElseIf PostName11 <> "" Then
1237:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1238:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1239:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1240:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1241:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1242:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1243:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1244:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1245:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1246:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1247:              POST_Data.Append("<input type='hidden' name='" & (PostName11) & "' value='" & (PostValue11) & "' />" & vbCrLf)
1248:          ElseIf PostName10 <> "" Then
1249:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1250:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1251:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1252:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1253:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1254:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1255:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1256:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1257:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1258:              POST_Data.Append("<input type='hidden' name='" & (PostName10) & "' value='" & (PostValue10) & "' />" & vbCrLf)
1259:          ElseIf PostName9 <> "" Then
1260:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1261:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1262:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1263:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1264:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1265:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1266:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1267:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1268:              POST_Data.Append("<input type='hidden' name='" & (PostName9) & "' value='" & (PostValue9) & "' />" & vbCrLf)
1269:          ElseIf PostName8 <> "" Then
1270:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1271:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1272:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1273:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1274:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1275:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1276:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1277:              POST_Data.Append("<input type='hidden' name='" & (PostName8) & "' value='" & (PostValue8) & "' />" & vbCrLf)
1278:          ElseIf PostName7 <> "" Then
1279:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1280:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1281:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1282:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1283:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1284:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1285:              POST_Data.Append("<input type='hidden' name='" & (PostName7) & "' value='" & (PostValue7) & "' />" & vbCrLf)
1286:          ElseIf PostName6 <> "" Then
1287:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1288:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1289:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1290:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1291:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1292:              POST_Data.Append("<input type='hidden' name='" & (PostName6) & "' value='" & (PostValue6) & "' />" & vbCrLf)
1293:          ElseIf PostName5 <> "" Then
1294:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1295:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1296:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1297:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1298:              POST_Data.Append("<input type='hidden' name='" & (PostName5) & "' value='" & (PostValue5) & "' />" & vbCrLf)
1299:          ElseIf PostName4 <> "" Then
1300:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1301:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1302:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1303:              POST_Data.Append("<input type='hidden' name='" & (PostName4) & "' value='" & (PostValue4) & "' />" & vbCrLf)
1304:          ElseIf PostName3 <> "" Then
1305:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1306:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1307:              POST_Data.Append("<input type='hidden' name='" & (PostName3) & "' value='" & (PostValue3) & "' />" & vbCrLf)
1308:          ElseIf PostName2 <> "" Then
1309:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1310:              POST_Data.Append("<input type='hidden' name='" & (PostName2) & "' value='" & (PostValue2) & "' />" & vbCrLf)
1311:          ElseIf PostName1 <> "" Then
1312:              POST_Data.Append("<input type='hidden' name='" & (PostName1) & "' value='" & (PostValue1) & "' />" & vbCrLf)
1313:          Else
1314:              POST_Data.AppendLine()
1315:          End If
1316:          Return POST_Data.ToString
1317:      End Function
1318:  End Class

Вернуться к первой версии WCF-клиента.



Comments ( )
<00>  <01>  <02>  <03>  <04>  <05>  <06>  <07>  <08>  <09>  <10>  <11>  <12>  <13>  <14>  <15>  <16>  <17>  <18>  <19>  <20>  <21>  <22>  <23
Link to this page: //www.vb-net.com/WCF_Client-2/index.htm
<SITEMAP>  <MVC>  <ASP>  <NET>  <DATA>  <KIOSK>  <FLEX>  <SQL>  <NOTES>  <LINUX>  <MONO>  <FREEWARE>  <DOCS>  <ENG>  <CHAT ME>  <ABOUT ME>  < THANKS ME>
2019507">