Subversion Repositories DevTools

Rev

Rev 3896 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3896 Rev 3902
Line 289... Line 289...
289 
End Sub
 289 
End Sub
290 
 
 290 
 
291 
%>
 291 
%>
292 
<%
 292 
<%
293 
'-----------------------  MAIN LINE  ---------------------------
 293 
'-----------------------  MAIN LINE  ---------------------------
- 
 
 294 
'Response.Write "<pre>------------<br>"
- 
 
 295 
'Dim Item
- 
 
 296 
'For Each Item In Request.Form
- 
 
 297 
'    Response.Write "User Data: " &Item & ": " & Request.Form(Item) & "<br>"
- 
 
 298 
'Next
- 
 
 299 
'Response.Write "------------<br>"
294 
 
 300 
 
295 
Dim sDependBlock
 301 
Dim sDependBlock
296 
 
 302 
 
297 
'--- Process submition ---
 303 
'--- Process submition ---
298 
If (QStrPar("pv_id") <> "")  Then
 304 
If (QStrPar("pv_id") <> "")  Then