sub InfoX()
on error resume next
dim l
dim msg
l=chr(10)
msg="Kai's Homepage 2004" & l
msg=msg & "Diese Seiten enthalten Java/VBScript und ActiveX-Elemente." & l & "Benutzen Sie deshalb den Internet Explorer ab 4.0." & l & l
msg=msg & "Idee/Autor/Vertrieb:" & l
msg=msg & "Kaisoft" & l
msg=msg & "Tel: 030 47558313" & l & "Fax/Voice: 0180  505255634204" & l & "Mobil: 0175 8735358" & l
msg=msg & "e-Mail: info@pocketkai.de" & l
msg=msg & "Internet: http://www.pocketkai.de" & l & "Windows CE: http://www.pocketkai.de"
msgbox msg,32,"Info..."
end sub

sub goback()
history.back
end sub

sub gofore()
history.forward
end sub

sub gonew()
x=location.pathname
window.open x , "_top"
end sub