Svar: [AccessD] A2003:Test Voracity of URLS

Okay, I can't resist any longer - didn't anybody else laugh about this 
subject line?  How hungry does a URL have to be before it becomes 
voracious and we have to test its voracity?
LOL
Tina

Jim Lawrence (AccessD) wrote:

>General comment
>
>Any file extension and file name can be setup as default initial web site
>code. Html (variations htm, htlms...), and is just one extension type but
>'pl' (perl), 'asp and aspx' asp/net, 'php', 'jsp', 'xml' to name a few, are
>just as valid and standard. As for names, anything goes. The most common are
>of course 'index', but 'homepage' is a standard when using MS FP. It is all
>set up on your IIS or Apache, in the properties per hosted web site. Most
>sites are fairly standard but I have seen some odd variations over the
>years. In a nutshell, everything goes.
>
>HTH
>Jim
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
>Sent: Thursday, November 18, 2004 1:42 AM
>To: accessd at databaseadvisors.com
>Subject: RE: Svar: [AccessD] A2003:Test Voracity of URLS
>
>
>Hi Darren
>
>Not quite sure what you are doing. It will return one result only ...
>index.htm is chosen as any site has this page. By second thought,
>index.html is possible too, but I don't know (do we have a web guru
>present?) - perhaps the function should be expanded to check for any of
>these two files?
>
>/gustav
>
>  
>
>>>>d.dick at uws.edu.au 18-11-2004 01:58:27 >>>
>>>>        
>>>>
>
>Hi Gustav
>Many thanks
>I'm not sure how to use the code though :-(( I get odd results
>
>When I put isUrl ("http://www.ibm.com") behind a button on a form
>and put debug.print IsURL at the end of Public Function IsURL
>I get "true"
>If I put msgbox IsYrl at the end of Public Function IsURL
>I get false
>??
>Dunno what it all means
>
>http://www.ibm.com is a valid and live website
>How do it know if there will be an index.htm file at the other end?
>And how come I get differeing results with MSGBOX and Debug.print?
>
>Obviously doing something wrong
>
>Many thanks in advance
>
>Darren
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav
>Brock
>Sent: Wednesday, 17 November 2004 8:36 PM
>To: accessd at databaseadvisors.com
>Subject: Svar: [AccessD] A2003:Test Voracity of URLS
>
>Hi Darren
>
>We use these functions:
>
><code module>
>
>Private Declare Function URLDownloadToFile Lib "urlmon" Alias
>"URLDownloadToFileA" ( _
>  ByVal pCaller As Long, _
>  ByVal szURL As String, _
>  ByVal szFileName As String, _
>  ByVal dwReserved As Long, _
>  ByVal lpfnCB As Long) _
>  As Long
>
>Public Function IsURL(ByVal strURL As String) As Boolean
>
>' Usage: Check if URL strURL is alive and reachable.
>'   booURL = IsURL("http://www.ibm.com")
>'   booURL = IsURL("ftp://ftp.novell.com")
>'
>' Note: Protocol header like "http://" must be provided.
>'
>' 2001-12-09. Cactus Data ApS. CPH.
>
>  ' File found at most URLs.
>  Const cstrFileIndex As String = "index.htm"
>
>  IsURL = (URLDownloadToFile(0, strURL, cstrFileIndex, 0, 0) = 0)
>
>End Function
>
></code module>
>
>If your URLs contains html document name you will have to modify the
>code to
>use that and not append index.html.
>
>/gustav
>
>  
>
>>>>d.dick at uws.edu.au 17-11-2004 05:03:08 >>>
>>>>        
>>>>
>
>I have an educational client who has a CD full of Education URL's
>(Zillion's
>of 'em) Occasionally someone has to test to see if the links are broken
>or
>not (Manually <yuk>)
>
>I thought this would be a perfect application for Access Set up a table
>of
>URLs and loop through 'em and return TRUE or FALSE
>
>So...Is there a way I can type in
>say...http://somewebsite.someserver.com.au
>and return "true" if the site exists or "false" if the site does not
>exist.
>
>--
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>  
>