VBScript einbinden

[witty]

Hallo Selfhtmler

ich bin ziemlich neu beim Scripten von Webseiten. Ich versuche gerade mit einem VBScript einen LINK dynamisch zu erstellen. Soweit ich es verstanden habe funktioniert das aufrufen des scriptes genauso, wie bei JavaScript.
Ich weiß das der Code selber nicht fehlerhaft ist, da dieser in einer .asp Seite schon funktioniert. Nun möchte ich diesen auch in meiner index.html Seite verwenden.Wenn ich die Seite lade bekomme ich vom IE folgende Fehlermeldung.

Die Fehlermeldung:

Details zum Fehler auf der Webseite

Meldung: Anweisungsende erwartet
Zeile: 97
Zeichen: 14
Code: 0
URI: http://ip/index.html

Nun zu meiner Frage: Was habe ich übersehen das, dass Script nicht ausgeführt wird / dieser Fehler verursacht wird??? Vieleicht sieht jemand das ja auf den ersten Blick.

<script language="VBScript" runat="server">  
  
dim onlyref = Request.ServerVariables("QUERY_STRING")  
  
  
     if InStrRev(onlyref, "ref") > 0 Then  
  
          position = (InStrRev(onlyref, "=")) + 1  
          onlyref = (Mid(onlyref, position ))  
  
           if onlyref = "123" then  
  
            Response.write("weiter123.htm")  
  
  
           else if onlyref = "456" then  
  
            Response.write("weiter456.htm")  
  
           end if  
  
     else  
  
          Response.write("http://www.example.com")  
  
     end if  
  
</script> 

Vielen Dank

witty