Save As ASP - getting the file name (2002)

[PeterNRoth]

I'm trying to write a macro to save a file as an ASP. How do I
obtain the "current" name of the file, or should i generate one?
<pre> 'Loop through all open pages
Dim url As String
For Each page In ActiveWebWindow.PageWindows
page.Activate
'*** Generate file name here?
'
page.SaveAs url
Next
</pre>

[PeterNRoth]

After some trial and error, something that sorta works...<pre> Dim name as String
For Each myPageWindow In ActiveWebWindow.PageWindows
myPageWindow.Activate
If myPageWindow.IsDirty Then
name = myPageWindow.Document.Title & ".asp"
myPageWindow.SaveAs name
End If
Next
</pre>