How can I get a variable from Client Side to Server side in VBscript?
Here is a sample:
<BODY>
<SCRIPT LANGUAGE="VBScript">
dim srresults(100,3)
dim resultct
dim i
dim fr
</SCRIPT>
<SCRIPT LANGUAGE='VBScript' SRC=srscript.exe?Type=2&Origin=49318&Destination=49505&Weight=8&Mode=ALL&ShipDate=05/01/01'></SCRIPT>
<SCRIPT LANGUAGE="VBScript">
if resultct > 0 then
for i = 1 to resultct
fr = fr + formatnumber(srresults(1-1,2),2)*1
next
end if
document.writeln formatcurrency(fr/1000,2)
<%
Set fs = CreateObject("Scripting.FileSystemObject"
Set a = fs.CreateTextFile("D:\temp\frieght.txt", True)
a.Writeline(""
a.close %>
</SCRIPT>
Here is a sample:
<BODY>
<SCRIPT LANGUAGE="VBScript">
dim srresults(100,3)
dim resultct
dim i
dim fr
</SCRIPT>
<SCRIPT LANGUAGE='VBScript' SRC=srscript.exe?Type=2&Origin=49318&Destination=49505&Weight=8&Mode=ALL&ShipDate=05/01/01'></SCRIPT>
<SCRIPT LANGUAGE="VBScript">
if resultct > 0 then
for i = 1 to resultct
fr = fr + formatnumber(srresults(1-1,2),2)*1
next
end if
document.writeln formatcurrency(fr/1000,2)
<%
Set fs = CreateObject("Scripting.FileSystemObject"
Set a = fs.CreateTextFile("D:\temp\frieght.txt", True)
a.Writeline(""
a.close %>
</SCRIPT>