AspTear eksempel

<%
Const Request_POST = 1
Const Request_GET = 2

Set xobj = CreateObject(\"SOFTWING.ASPtear\")
Response.ContentType = \"text/html\"
   
On Error Resume Next
\' URL, action, payload, username, password
strRetval = xobj.Retrieve(\"http://www.jubii.dk\", _
                Request_GET, \"\", \"\", \"\")

If Err.Number <> 0 Then
    Response.Write \"<b>\"
    If Err.Number >= 400 Then
        Response.Write \"Server returned error: \" & Err.Number
    Else
        Response.Write \"Component/WinInet error: \" & Err.Description
    End If
    Response.Write \"</b>\"
    Response.End
End If

Response.Write strRetval
%>

Jeg får en \"The page cannot be found\". Er du sikker på det er korrekt det du har skrevet?

(Det kan jo være at komponenten ikke er installeret rigtigt?!)

Er det en intern serverfejl 500 ?

Nej - den alm. standard -

The page cannot be found

The page you are looking for might have been removed, had its name changed, or is temporarily unavailable.

Prøv evt. med denne istedet

strRetval = xobj.Retrieve(\"http://www.eksperten.dk/index.phtml\", Request_GET, \"\", \"\", \"\")

netsrac >> Har fundet fejlen. Dit første bud var korrekt. Det var bare mig der havde klokket i det!

Har du en løsnings ide til hvordan man kan erstatte noget i denne HTML-side? Fx det der står i mellem 2 tags?

<!-- BEGIN TABLE -->
noget...
<!-- End TABLE -->

pos1 = instr(strRetval, \"<!--BEGIN TABLE-->\")
pos2 = instr(strRetval, \"<!--End TABLE-->\")
erstatmed = \"Hej\"
new = mid(strRetval, 1, pos1) & erstatmed & mid(strRetval, pos2, len(strRetval))

Hmm... Den vil ikke helt:

Expected statement

/test/temp.asp, line 26

new = mid(strRetval, 1, pos1) & erstatmed & mid(strRetval, pos2, len(strRetval))

Hm...er du sikker på at de to tags er i den side du modtager ? Skrevet på nøjagtig samme måde?
eller prøv med:

new = mid(strRetval, 1, pos1) & erstatmed & mid(strRetval, pos2)

Det der skal ske er følgende:

Den side jeg henter har et table mellem disse tags:
<!-- BEGIN LINK TABLE -->
<!-- END LINK TABLE -->

Det skal udskiftes med et table i en anden fil - der bare hedder sammme tags (kan også omdøbes hvis det er nemmere?!)

huh ? Den side du henter det ind i skal hente fra 2 filer eller ?

Den side jeg henter har et table mellem disse tags:
<!-- BEGIN LINK TABLE -->
<!-- END LINK TABLE -->

I en anden fil har jeg et opdateret table. Det vil jeg gerne sætte ind i siden jeg henter. Evt. med en include?! Aner ikke om man kan, men det tror jeg!

<%
pos1 = instr(ucase(strRetval), \"<!-- BEGIN LINK TABLE -->\")
pos2 = instr(ucase(strRetval), \"<!-- END LINK TABLE -->\")
%>
<%=mid(strRetval, 1, pos1) %>
<!-- #include = \"fil.html\" -->
<%=mid(strRetval, pos2) %>

netsrac >> Det virker næsten nu. Har siddet og rodet lidt med det! - Men af en eller anden mærkelig grund jeg ikke lige kan gennemskue sletter den ikke tegnet \"<\"

I filen test.htm står der KUN: \"Dette er en test\" (uden \"\") og i filen der hentes hedder tags præcis det der står - men outputtet bliver:

<td valign=\"top\" width=\"535\">
<Dette er en test<!-- END LINK TABLE -->
            </td>

BEMÆRK < FORAN \"Dette er en test\". Desuden er det mærkeligt at den sletter <!-- BEGIN LINK TABLE -->??


Her er koden:
<%
Const Request_POST = 1
Const Request_GET = 2

Set xobj = CreateObject(\"SOFTWING.ASPtear\")
Response.ContentType = \"text/html\"
   
On Error Resume Next
\' URL, action, payload, username, password
strRetval = xobj.Retrieve(\"http://www.noget.dk/noget.html\", _
                Request_GET, \"\", \"\", \"\")

If Err.Number <> 0 Then
    Response.Write \"<b>\"
    If Err.Number >= 400 Then
        Response.Write \"Server returned error: \" & Err.Number
    Else
        Response.Write \"Component/WinInet error: \" & Err.Description
    End If
    Response.Write \"</b>\"
    Response.End
End If
%>
<%
pos1 = instr(ucase(strRetval), \"<!-- BEGIN LINK TABLE -->\")
pos2 = instr(ucase(strRetval), \"<!-- END LINK TABLE -->\")
%>
<%=mid(strRetval, 1, pos1) %>
<!-- #include file=\"test.htm\" -->
<%=mid(strRetval, pos2) %>

Sætter jeg eksempelvis dette ind i toppen af test.htm virker det jo fint \"b></b>\". Men det holder ikke helt! Kan du gennemskue det?

Det ligger i noget med +1 eller -1 et eller andet sted i de sidste linier, prøv med:


<%=mid(strRetval, 1, pos1 + 1) %>

Mmmmjaaa....

Det virker med:
<%=mid(strRetval, 1, pos1 - 1) %>

Men den skriver jo altså ikke \"<!-- BEGIN LINK TABLE -->\" (igen uden \"\") - den linie er slettet!

Lidt pudsigt! Det gør ikke det store - men det er lidt underligt!?

Tilsvarende - hvis jeg skriver:
<%=mid(strRetval, 1, pos1 + 25) %> - så tilføjer den linien <!-- BEGIN LINK TABLE -->:

<td valign=\"top\" width=\"535\">
<!-- BEGIN LINK TABLE -->

<table width=\"510\" border=\"0\" cellpadding=\"2\" cellspacing=\"1\">
  <tr>
...


SGU DA MÆRKELIGT!

Du skal jo sige -25 hvis du vil have det der <!-- BEGIN LINK TABLE --> med, men det skylles at pos1 indeholder positionen af tegnet < i linien <!-- BEGIN LINK TABLE -->: