Loading

Revision differences

Old revision #ppqyzrgcdNew revision #pcppktlnf
19x = 1  19x = 1  
20Do Until x = 5000  20Do Until x = 5000  
21  21  
22    Response.Write """fieldName"", ""field name here (x="&x&")""" & VbCrLf  22'    Response.Write """fieldName"", ""field name here (x="&x&")""" & VbCrLf
23    Response.Write """fieldID"", ""field id here (x="&x&")""" & VbCrLf  23'    Response.Write """fieldID"", ""field id here (x="&x&")""" & VbCrLf
24    Response.Write """fieldArea"", ""field area here (x="&x&")""" & VbCrLf  24'    Response.Write """fieldArea"", ""field area here (x="&x&")""" & VbCrLf
25    Response.Write """lat"", ""lat here (x="&x&")""" & VbCrLf  25'    Response.Write """lat"", ""lat here (x="&x&")""" & VbCrLf
26    Response.Write """long"", ""long here (x="&x&")""" & VbCrLf  26'    Response.Write """long"", ""long here (x="&x&")""" & VbCrLf
27    Response.Write VbCrLf  27'    Response.Write VbCrLf
28  28  
29'    Set newitem = oJSONResponse.AddToCollection(oJSONResponse.data("fieldPoints"))  29    Set newitem = oJSONResponse.AddToCollection(oJSONResponse.data("fieldPoints"))
30'    newitem.add "fieldName", "field name here (x="&x&")"  30    newitem.add "fieldName", "field name here (x="&x&")"
31'    newitem.add "fieldID", "field id here (x="&x&")"  31    newitem.add "fieldID", "field id here (x="&x&")"
32'    newitem.add "fieldArea", "field area here (x="&x&")"  32    newitem.add "fieldArea", "field area here (x="&x&")"
33'    newitem.add "lat", "lat here (x="&x&")"  33    newitem.add "lat", "lat here (x="&x&")"
34'    newitem.add "long", "long here (x="&x&")"  34    newitem.add "long", "long here (x="&x&")"
35   35   
36    x = x + 1  36    x = x + 1  
37    Response.Flush    
38Loop  37Loop  
39  38  
40' Write the response  39' Write the response