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 displayedCode: 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
besten dank....!!!!!!!!!!!!