Web Development

foreach (string f in Request.Files.AllKeys)<br />
{<br />
    HttpPostedFile file = Request.Files[f];<br />
    file.SaveAs("c:\\inetpub\\test\\UploadedFiles\\" + file.FileName);<br />
}

<form id="spanForm" name="spanForm" action="#">
    <input id="screenSpanWidth" name="screenSpanWidth" type="hidden" />
</form>

<script language='JavaScript' type='text/javascript'>
    document.forms['spanForm'].screenSpanWidth.value = var_nScreenWidth.toString();
</script>

<%
    Dim nUserScreenWidth
    nUserScreenWidth = Document.forms.namedItem("spanForm").screenSpanWidth.value '<--error here
%>

Set objFSO   = CreateObject("Scripting.FileSystemObject")<br />
set oWscript = CreateObject("WScript.Shell")  <br />
dim lstsft<br />
dim mylist <br />
dim i,j<br />
'<---------------------------------><br />
	call getInstalledList ()<br />
'<---------------------------------><br />
Private sub getInstalledList ()<br />
dim chk<br />
mylist = split("Symantec AntiVirus,MSXML 4.0 SP2 Parser and SDK", ",")<br />
strComputer = "."<br />
Set objWMIService = GetObject("winmgmts:" _<br />
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")<br />
Set colSoftware = objWMIService.ExecQuery _<br />
    ("Select * from Win32_Product")<br />
lstsft=""<br />
For Each objSoftware in colSoftware<br />
    lstsft = lstsft & "," & objSoftware.Caption  <br />
Next<br />
lstsft= split (lstsft,",")<br />
for i = 0 to ubound(mylist)<br />
chk="0"<br />
	for j=0 to ubound(lstsft)				<br />
		if lstsft(j) = mylist (i) then<br />
			msgbox(mylist(i) & " exist" ) <br />
			chk="1"	<br />
		end if <br />
next	<br />
if chk = "0" then<br />
	msgbox ( mylist(i) & " not exist")<br />
end if <br />
next<br />
end Sub