Why can't I use server in a VBScript function like this:

<script language="VBScript">
sub Inlogg()
alias=trim(formen.alias.value)
losen=trim(formen.losen.value)
self.status=alias & "..." & losen

set ConMitt = Server.CreateObject("ADODB.Connection")
ConMitt.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/ps014/Community2/") & "\medlemmar.mdb"
Set RsMitt = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT * FROM gaster ORDER BY Tid ASC"
rsMitt.Open SQLstr, ConMitt

Do Until RsMitt.EOF
a1=RsMitt("Alias")
a2=RsMitt("Losen")
rsMitt.MoveNext
Loop

RsMitt.close
Set RsMitt= Nothing
ConMitt.close
Set ConMitt = Nothing
self.status=a1 & "..." & a2
end sub
</script>

I can use in regular HTML-code if I use <% %>.

How do I solve this problem ??



Thanks,
Abel