variabile non definita VBScript runtime error '800a01f4'

[naverit]

dove sbaglio a recuperare il valore appeso ad un url querysting nel codice di seguito?



<% @Language="VBScript" %>


<%
Option Explicit
'On Error Resume Next
%>

<%

img = Request.Querystring("img")

'// HOW TO USE THIS CODE:
Dim oAspImg
Set oAspImg = New cAspImage
With oAspImg
.ReadImage(Server.MapPath("" & img & ""))
Response.Write "ImageSize: " & .ImageSize & "
"
Response.Write "Date Created: " & .DateCreated & "
"
Response.Write "Date Last Modified: " & .DateLastModified & "
"
Response.Write "ColorDepth: " & .ColorDepth & "
"
Response.Write "Width: " & .Width & "
"
Response.Write "Height: " & .Height & "
"
Response.Write "ImageType: " & .ImageType & "
"
Response.Write "Error Message: " & .ErrorMessage & "
"
End With
Set oAspImg = Nothing
%>

[naverit]

così...invece mi da missing path !!!

<% @Language="VBScript" %>
<%
Option Explicit
'On Error Resume Next
%>

<%
'// HOW TO USE THIS CODE:
Dim oAspImg
Set oAspImg = New cAspImage
With oAspImg
.ReadImage(Server.MapPath("" & Request.Querystring("img") & ""))
Response.Write "ImageSize: " & .ImageSize & "
"
Response.Write "Date Created: " & .DateCreated & "
"
Response.Write "Date Last Modified: " & .DateLastModified & "
"
Response.Write "ColorDepth: " & .ColorDepth & "
"
Response.Write "Width: " & .Width & "
"
Response.Write "Height: " & .Height & "
"
Response.Write "ImageType: " & .ImageType & "
"
Response.Write "Error Message: " & .ErrorMessage & "
"
End With
Set oAspImg = Nothing
%>

[naverit]

ora funziona!!!

<% @Language="VBScript" %>
<%
Option Explicit
'On Error Resume Next
%>

<%
'// HOW TO USE THIS CODE:
Dim oAspImg
Set oAspImg = New cAspImage
With oAspImg
.ReadImage(Server.MapPath("" & Request.Querystring("img") & ""))
Response.Write "ImageSize: " & .ImageSize & "
"
Response.Write "Date Created: " & .DateCreated & "
"
Response.Write "Date Last Modified: " & .DateLastModified & "
"
Response.Write "ColorDepth: " & .ColorDepth & "
"
Response.Write "Width: " & .Width & "
"
Response.Write "Height: " & .Height & "
"
Response.Write "ImageType: " & .ImageType & "
"
Response.Write "Error Message: " & .ErrorMessage & "
"
End With
Set oAspImg = Nothing
%>