Wolfgang: Übersetzten in JavaScript

Beitrag lesen

Will mich bei Christian bedanken, aber leider schaffe ich es nicht den Code in JavaScript zu übersetzten!!
Bitte um Eure Hilfe:

das ist zwar asp aber leicht auf js zu aendern:

Dim sender,meldung,from
from = "woher.htm"
sender = Instr(1,Request.ServerVariables("HTTP_REFERER"),from,1)

If sender < 1 then
meldung = "<font color=" & "red" & "> Direkter Zugriff nicht erlaubt!"
Response.Redirect(from & "?Errorstring=" & Server.URLEncode(meldung))
End If
'Fehlermeldungen

'Wenn Seite von richtigem Formular angewaehlt wurde  
mache hier weiter

mfg Wolfgang