Server.Execute

Är skit ledsen nu ju.....

<%
Dim strSida
strSida = Request.QueryString("sida")
If strSida = "" Then
strSida = "default"
End If
%>

<%
Select Case strSida
Case default
Server.Execute(index.asp)
Case lank1
Server.Execute(lank1.asp)
Case lank2
Server.Execute(lank2.asp)
Case lank3
Server.Execute(lank3.asp)
Case lank4
Server.Execute(lank4.asp)
Case lank5
Server.Execute(lank5.asp)
End Select
%>

Får detta felmedellande:
----------------------------------------------
Microsoft VBScript runtime error '800a01a8'

Object required: 'Server'

/hastar/Default.asp, line 47
---------------------------------------------

m.v.h
Markus

Server.Execute finns bara på IIS5, så se till att du har den först... sedan så tar server.execute en sträng som argument, så det borde se ut såhär:

Server.Execute( "index.asp" )

Mvh, Vide