tjekke om alle urls virker

Du er nød til at bruge en ASP komponent, der kan "hente" en url - f.eks. AspHTTP eller Dimac's W3 sockets

Hvad understøtter dit web hotel eller har du selv en server?

<%
'*******************************************
START = "<TR><TD><FONT FACE=""Tahoma"" SIZE=""2"">"
MELLEM = "</FONT></TD><TD WIDTH=""200""><FONT FACE=""Tahoma"" SIZE=""2"">"
SLUT = "</FONT></TD></TR>"

Komponentdata = Array("","MSWC.AdRotator","MSWC.BrowserType","ADODB.Connection","MSWC.NextLink","Scripting.FileSystemObject","CDONTS.Session","MSWC.Status","MSWC.PageCounter","MSWC.PermissionChecker","","SoftArtisans.FileUp","SoftArtisans.FileManager","SoftArtisans.FileManagerTX","SoftArtisans.ExcelWriter","SMUM.XCheck.1","SoftArtisans.SASessionPro.1","SAXFileLib.XFRequest","","JMail.SMTPMail","JMail.Speedmailer","JMail.POP3","JMail.Message","w3sitetree.tree","w3.upload","w3.netutils","Socket.TCP","","SMTPsvg.Mailer","AspImage.Image","AspSock.Conn","POP3svg.Mailer","AspNNTP.Conn","AspFile.FileObj","AspConv.Expert","AspHTTP.Conn","AspDNS.Lookup","AspMX.Lookup","","ImgSize.Check","AspPing.Conn","AspCrypt.Crypt","ASPExec.Execute","AspInet.FTP","ASPsvg.Process","","AspSmartForumAdm.SmartForumAdm","aspSmartFile.SmartFile","AspSmartSecurity.FileSec","AspSmartDate.SmartDate","AspSmartUpload.SmartUpload","aspSmartMail.SmartMail","aspSmartCache.SmartCache","","ASPChat2.Chat","ASPThumbnailer.Thumbnail","ASPSimpleUpload.Upload","WhoIs2.WhoIs","","cyScape.browserObj","","EZsite.Calendar","","Dynu.CreditCard","Dynu.DateTime","Dynu.DNS","Dynu.Exec","Dynu.Email","Dynu.Encrypt","Dynu.FileUtil","Dynu.FTP","Dynu.HTTP","Dynu.Email","Dynu.POP3","Dynu.Ping","Dynu.Socket","Dynu.StringUtil","Dynu.Wait","Dynu.Whois")
komponentnavn = Array("Microsoft","Ad Rotator","Browser Capabilities","Database Access","Content Linking","File Access","CDO for NTS","Status","Page Counter","Permission Checker","SoftArtisans http://www.softartisans.com","SA-FileUp","SA-FileManager","SA-FilemanagerTX","SA-ExcelWriter","SA-Check","SA-SessionPro","SA-XFile","Dimac http://www.dimac.net","JMail 3.7","JMail 4.1","JMail 4.1","JMail 4.1","Sitetree","Upload","Utils","Socket","ServerObjects http://www.serverobjects.com","ASPMail","ASPImage","ASPSock","ASPPop3","AspNNTP","AspFile (AspLib)","AspConv (AspLib)","AspHTTP","AspDNS","AspMX","ServerObjects (Freeware Komponenter) http://www.serverobjects.com","ImageSize","AspPing","AspCrypt","ASPExec","AspInet","ASPProc","aspSmart http://www.aspsmart.com","aspSmartForum","aspSmartFile","aspSmartSecurity","aspSmartDate","aspSmartUpload","aspSmartMail","aspSmartCache","ASPhelp http://www.asphelp.com","ASP Chat Professional","ASP Thumbnailer","ASP Simple Upload","ASP Whois","cyScape http://www.cyscape.com","BrowserHawk","Doug Dean Software http://www.dougdean.com","EZSite Calender","Dynu Systems http://www.dynu.com","DynuCreditCard","DynuDateTime","DynuDNS","DynuExec","DynuEmail","DynuEncrypt","DynuFileUtil","DynuFTP","DynuHTTP","DynuEmail","DynuPOP3","DynuPing","DynuSocket","DynuStringUtil","DynuWait","DynuWhois")

Function TestCom(data)
    On Error Resume Next
    Set komponent = Server.CreateObject(data)
        If Err.Number = 0 Then
            TestCom = "<FONT COLOR=""009900"">OK - " & TypeName(komponent) & "</FONT>"
        Else
            TestCom = "<FONT COLOR=""CC0000"">FEJL - " & Err.number & "</FONT>"
        End If
    Set komponent = Nothing
End Function

Function komponenter()
    komponenter = komponenter & "<TABLE BORDER=""1"" BORDERCOLOR=""999999"" WIDTH=""700"" CELLSPACING=""0"">"
    komponenter = komponenter & START & "<B>Komponent</B>" & MELLEM & "<B>Status</B>" & SLUT
    For i = 0 to Ubound(komponentdata)
        If komponentdata(i) = "" Then
            komponenter = komponenter & START & "<B>" & komponentnavn(i) & "</B>" & MELLEM & "<B>&nbsp;</B>" & SLUT
        Else
            komponenter = komponenter & START & komponentnavn(i) & " (" & komponentdata(i) & ")" & MELLEM & TestCom(komponentdata(i)) & SLUT
        End if
    Next
    komponenter = komponenter & "</TABLE>"
End Function
%>
<%
Response.buffer = True
Response.Expires = -1
Response.AddHeader "PRAGMA", "NO-CACHE"
%>

<HTML>
<HEAD>
<TITLE>ASPADMIN</TITLE>
<LINK REL="stylesheet" TYPE="text/css" HREF="css.css">
</HEAD>
<BODY>
<TABLE BORDER="0" WIDTH="100%">
<TR>
    <TD CLASS="menu"><A HREF="http://www.aspadmin.dk" CLASS="menu">ASPADMIN</A> - KOMPONENTER</TD>
</TR>
<TR>
    <TD CLASS="indhold">
        <% =komponenter() %>
    </TD>
</TR>
<TR>
    <TD CLASS="menu"><A HREF="http://www.aspadmin.dk" CLASS="menu">ASPADMIN</A> - <A HREF="http://www.cnhweb.dk" CLASS="menu">CNH WEB</A></TD>
</TR>
</TABLE>
</BODY>
</HTML>

Kjør denne fila på servern så ser du hva du har støtte for.

jeg understøtter følgende:

  w3 JMail 4.1
  w3 Sockets
  AspMAIL
  AspPOP3
  AspHTTP
  AspDNS
  AspIMAGE
  AspUPLOAD

Lukker igen, da ingen har hjulpet mig til en løsning

mvh.
www.questis.dk

Måske skulle du sætte dig ned og læse dokumentationen til ASpHTTP som foreslået....