|
")
Document.Writeln("
 |
")
Document.Writeln("")
Document.writeln("Anmeldung der Seite ")
Document.Writeln(chr(34) & strURL & chr(34))
Document.Writeln(" in folgenden Suchmaschinen:")
Document.Writeln("")
for x = 0 to (srchEntries-1)
y = InStr(1, Engines(x, 0), "%s", vbTextCompare)
If (y > 0) Then
strTemp = Left(Engines(x, 0), y-1)
strTemp2 = strTemp & strURL
z = len(Engines(x, 0)) - len(strTemp) - 2 ' %s!
strTemp2 = strTemp2 & right(Engines(x, 0), z)
Document.Writeln "- " & Engines(x, 1) & "
"
Window.Open strTemp2, Engines(x, 1), "left=" & myleft & ",top=" & mytop & ",height=300,width=450,status=yes,toolbar=no,menubar=no,location=yes"
myleft = myleft + 20
mytop = mytop + 20
End if
Next
Document.Writeln(" "& strwait &"
")
End Sub
Sub BtnSubmit_OnClick
Dim strTemp
strTemp = txtURL.Value
if ((txtURL.Value <> "") AND (txtURL.Value <> "http://")) Then
register(strTemp)
else
MsgBox "Bitte geben Sie eine gültige Adresse ein!", 0, "Fehler"
End If
End Sub
Sub CheckSpecified(ByVal strFieldValue, ByVal strMsg)
If strFieldValue = "" And bValidOrder Then
MsgBox strMsg, 0, strMsgBoxTitle
bValidOrder = False
End If
End Sub
Sub BtnClear_OnClick
TxtURL.Value = "http://"
End Sub
//-->
|