[ASP] Passare parametri con Get e con Post

File chiamante
<br><br>
<form id='provaGet' name='provaGet' action='provaGet.asp'  method='get'>
<label>Invia con get</label><br>
<input type="text" id="campoGet1" name="campoGet1" value="primo" /><br>
<input type="text" id="campoGet2" name="campoGet2" value="secondo" /><br>
<input type="text" id="campoGet3" name="campoGet3" value="terzo" /><br>
<input type="text" id="campoGet4" name="campoGet4" value="quarto" /><br>
<input class="pulsante" type="submit" value="Invia!">
</form>
<br><br>
<form id='provaPost' name='provaPost' action='provaPost.asp'  method='Post'>
<label>Invia con Post</label><br>
<input type="text" id="campoPost1" name="campoPost1" value="primo" /><br>
<input type="text" id="campoPost2" name="campoPost2" value="secondo" /><br>
<input type="text" id="campoPost3" name="campoPost3" value="terzo" /><br>
<input type="text" id="campoPost4" name="campoPost4" value="quarto" /><br>
<input class="pulsante" type="submit" name="mi" value="Invia!">
</form>

File chiamato con Get
<%
For i = 1 To Request.QueryString.Count  
nomeCampo = Request.QueryString.Key(i)
valoreCampo = trim(Request.QueryString.Item(i))
response.write nomecampo & "<br>"
response.write valoreCampo & "<hr>"
Next

%>

File chiamato con Post
<%
For i = 1 To Request.Form.Count  
nomeCampo = Request.Form.Key(i)
valoreCampo = trim(Request.Form.Item(i))
response.write nomecampo & "<br>"
response.write valoreCampo & "<hr>"
Next
%>

[ASP] get e post

File chiamante
<br><br>
<form id='provaGet' name='provaGet' action='provaGet.asp'  method='get'>
<label>Invia con get</label><br>
<input type="text" id="campoGet1" name="campoGet1" value="primo" /><br>
<input type="text" id="campoGet2" name="campoGet2" value="secondo" /><br>
<input type="text" id="campoGet3" name="campoGet3" value="terzo" /><br>
<input type="text" id="campoGet4" name="campoGet4" value="quarto" /><br>
<input class="pulsante" type="submit" value="Invia!">
</form>
<br><br>
<form id='provaPost' name='provaPost' action='provaPost.asp'  method='Post'>
<label>Invia con Post</label><br>
<input type="text" id="campoPost1" name="campoPost1" value="primo" /><br>
<input type="text" id="campoPost2" name="campoPost2" value="secondo" /><br>
<input type="text" id="campoPost3" name="campoPost3" value="terzo" /><br>
<input type="text" id="campoPost4" name="campoPost4" value="quarto" /><br>
<input class="pulsante" type="submit" name="mi" value="Invia!">
</form>

File chiamato con Get
<%
For i = 1 To Request.QueryString.Count  
nomeCampo = Request.QueryString.Key(i)
valoreCampo = trim(Request.QueryString.Item(i))
response.write nomecampo & "<br>"
response.write valoreCampo & "<hr>"
Next

%>

File chiamato con Post
<%
For i = 1 To Request.Form.Count  
nomeCampo = Request.Form.Key(i)
valoreCampo = trim(Request.Form.Item(i))
response.write nomecampo & "<br>"
response.write valoreCampo & "<hr>"
Next
%>

[ASP] creare un file excel da asp

Ecco il codice di un piccolo esempio
<% 
Dim FileName 
  FileName="mioFile.xls" 
  response.buffer = true 
  response.ContentType = "application/vnd.ms-excel" 
  response.AddHeader "content-disposition", "inline; filename=" & FileName 
  response.write "<table>" 
  for i = 1 to 5
    response.write "<tr><td>" 
    response.write i * i 
    response.write "</td></tr>" 
  next 
  response.write "<tr><td width=40><b>=somma(A1:A5)</b></td></tr>" 
  response.write "</table>" 
  response.flush 
  response.end 
%>

[VB6] conoscere MAC address

Private Sub Command1_Click()
'elenco indirizzi IP

Dim objWMIService, colNetAdapters, objNetAdapter
    
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration " & "where IPEnabled=TRUE")

  For Each objNetAdapter In colNetAdapters
    Text1(0).Text = objNetAdapter.Caption
    Text1(1).Text = objNetAdapter.MACAddress
    Text1(2).Text = Join(objNetAdapter.ipAddress, ",")
    MsgBox objNetAdapter.MACAddress

  Next


End Sub