Telefontarife??
-
- Poweruser
- Beiträge: 622
- Registriert: 10.11.2003, 18:10
@flambee1: die Function ist im Script im letzten Drittel ...
@lalabyte: kannst Du ma in 2 Worten erklären was es bei Deiner Function anders macht, bitte ...
talli
PS: geändertes Script hier
@lalabyte: kannst Du ma in 2 Worten erklären was es bei Deiner Function anders macht, bitte ...
talli
PS: geändertes Script hier
-
- Poweruser
- Beiträge: 622
- Registriert: 10.11.2003, 18:10
-
- Poweruser
- Beiträge: 622
- Registriert: 10.11.2003, 18:10
Hi,
ka wieso die uns schon wieder ausgesperrt haben. Wenn man die Seite über den Browser anschaut, kommt sie, aber über Samu kommt nur :
talli
ka wieso die uns schon wieder ausgesperrt haben. Wenn man die Seite über den Browser anschaut, kommt sie, aber über Samu kommt nur :
Code: Alles auswählen
D HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<HTML><HEAD><TITLE>The page cannot be displayed</TITLE>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
<STYLE type="text/css">
BODY { font: 8pt/12pt verdana }
H1 { font: 13pt/15pt verdana }
H2 { font: 8pt/12pt verdana }
A:link { color: red }
A:visited { color: maroon }
</STYLE>
</HEAD><BODY><TABLE width=500 border=0 cellspacing=10><TR><TD>
<h1>The page cannot be displayed</h1>
You have attempted to execute a CGI, ISAPI, or other executable program from a directory that does not allow programs to be executed.
<hr>
<p>Please try the following:</p>
<ul>
<li>Contact the Web site administrator if you believe this directory should allow execute access.</li>
</ul>
<h2>HTTP Error 403.1 - Forbidden: Execute access is denied.<br>Internet Information Services (IIS)</h2>
<hr>
<p>Technical Information (for support personnel)</p>
<ul>
<li>Go to <a href="http://go.microsoft.com/fwlink/?linkid=8180">Microsoft Product Support Services</a> and perform a title search for the words <b>HTTP - PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<HTML><HEAD><TITLE>The page cannot be displayed
1. in der Funktion ReturnHTML(sURL) die Zeile
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
durch
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP.5.0")
ersetzen.
2. Die Funktion GetPreis anpassen, denn es sind neue Suchstrings zu setzen.
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
durch
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP.5.0")
ersetzen.
2. Die Funktion GetPreis anpassen, denn es sind neue Suchstrings zu setzen.
Code: Alles auswählen
Private Function GetPreis(OF)
Dim htmlBuffer, hs, ha, he, PL, VL
PL = "<td class=" + Chr(34) + "firstChild" + Chr(34) + " style=" + Chr(34) + "text-align:center" + Chr(34) + "><span>"
VL = "<td style=" + Chr(34) + "text-align:center" + Chr(34) +"><span>"
htmlBuffer = ReturnHTML("http://www.tariftip.de/call-bycall-rechner/ergebnis/index.html?zid=" & OF & "&x0190=on&tarifart=1a&taktung=60&isdnanalog=" & AI & "&format=tabelle&Submit.x=12&Submit.y=13%22")
result=NULL
hs = ""
If AZ < 1 then AZ = 1
If AZ > 4 then AZ = 4
For x= 1 to AZ
ha = instr(htmlBuffer, PL) + Len(PL)
he = InStr(ha, htmlBuffer, "</span></td>")
Preis = replace(Mid(htmlBuffer, ha, he-ha), " ", " ")
ha = instr(he, htmlBuffer, VL) + Len(VL)
he = InStr(ha, htmlBuffer, "</span></td>")
VW = Mid(htmlBuffer, ha, he-ha)
ha = InStr(he, htmlBuffer, "</tr>") + Len("</tr>")
htmlBuffer = Mid(htmlBuffer, ha, Len(htmlBuffer) -he)
hs = hs & VW & Trenn & Preis
If x+1<AZ+1 then hs = hs & vbCrLf
Next
GetPreis = hs
End Function
![Bild](http://home.arcor.de/daolix/Avatar/Signatur_m1.png)
-
- Poweruser
- Beiträge: 622
- Registriert: 10.11.2003, 18:10
-
- Poweruser
- Beiträge: 622
- Registriert: 10.11.2003, 18:10
Danke, damit geht es.
Habe in dem Script den es hier zu downloaden gibt, die letztere Version genommen. Sind ja vieleicht noch andere nicht auf dem neusten stand ......
talli
![dankeschööön :thx:](./images/smilies/icon_danke2.gif)
Habe in dem Script den es hier zu downloaden gibt, die letztere Version genommen. Sind ja vieleicht noch andere nicht auf dem neusten stand ......
talli