Problems

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

Try taking off the Server option in from these lines
set ConMitt = Server.CreateObject("ADODB.Connection") And
Set RsMitt = Server.CreateObject("ADODB.Recordset")

When usinb VB script like this, you don't use 'Server'

You are trying to do server side work in client side script.

Keep your recordsets on the server side.

You also can't use server.createobject in client side code. If you did execute this code without the server. object identifyer, the user would get an error if they didn't have ADO installed.

If you are creating objects, keep them server side and always use Server.CreateObject