Validate_Drive

Function Validate_Drive (ByVal strDrive As String)

  On Error GoTo BAD2
    'Dim strOldDrive As String
    'strOldDrive = Get_Drive_Name(CurDir$)
    ChDrive (strDrive)
    'ChDrive (strOldDrive)
  On Error GoTo 0
  Validate_Drive = True
Exit Function
BAD2:
  Validate_Drive = False
  Resume Exit2
Exit2:
  Exit Function

End Function

<%@ Language=VBScript %>
<%Response.ContentType = "application/vnd.ms-excel"%>
<table>
<tr>
<th>Col 1</td>
<th>Col 2</td>
<th>Total</td>
</tr>
<tr>
<td>1</td>
<td>2</td>
<td><font color=#000080>=sum(a2:b2)</font></td>
</tr>
<tr>
<td>4</td>
<td>6</td>
<td><font color=#000080>=sum(a3:b3)</font></td>
</tr>
</table>
Upload