WCF_CLIENT - клиент Web-сервиса (первая версия)
Этот софт является развитием предыдущей версии, поэтому долго растекаться мыслью по древу я с общей постановкой задачи я не буду - а лишь покажу код изменившихся фрагментов:
- во-первых, двадцать параметров мне не хватило для решения новой задачи и я сделал тридцать параметров. Код стал еще более длинным и у всяких недоразвитых теоретиков, начитавшихся на ночь Фаулера, может вызвать еще больший ступор.
- во-вторых, я заменил убогое тектовое сообщение о редиректе (которое было в старой версии) на рисунок, который вы видите слева. Это и хуже и лучше. Рисунок выглядит красивее, чем текст, но он требует время на загрузку - а этот код приводит к настолько интенсивной работе браузера, что у него не хватает ресурсов даже на прокрутку этой элементарной анимации у рисунка слева. Даже на мощных кампутерах это колесико слева подвисает. Кроме того, усложняется развертывание библиотеки - надо не забыть при развертывании библиотеки положить в корневой каталог сайта рисунок. Поэтому еще вопрос - что лучше: быстро, но некрасиво (как первой версии) или понтовее (как во второй), но сложнее в развертывании и с еще большей нагрузкой на браузер (которому теперь надо еще и подгружать рисунок) и видимым пользователю подвисанием кампутера при редиректе (когда подвисает анимация на рисунке).
- в-третьих, я добавил калбек для логгирования итового сформированного моей библиотекой запроса. Это тоже вопрос, ибо пользоваться стало сложнее - появился лишний третий параметр (в коде ниже это E.i). Его конечно можно опускать при вызове - однако обьяснить, что это за параметр непросто. Это ключ запроса - который позволяет при логгировании запросов зацепиться калбеку за исходный вызов редиректа. Опять же, получился более сложный для понимания вариант, но зато с большим сервисом.
Калбэк вы можете привесить в вызывающем мою библиотеку коде динамически или статически. Динамически это выглядит так:
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 (
)
)
Link to this page:
//www.vb-net.com/WCF_Client-2/index.htm
|
|
2019507">