% idPages = Request.QueryString("id") If idPages = "" Then bIsHomePage = True Else response.Redirect "main.asp?id=" & idPages bIsHomePage = False End If If Not bIsHomePage Then 'This is not the home page, collect content 'Split idPage and idSubpage ' underscorePosition = InStr(idPages, "_") ' If underscorePosition <> 0 Then ' idParent = CInt(Left(idPages, underscorePosition - 1)) ' idPage = CInt(Mid(idPages, underscorePosition + 1)) ' bReturn = True ' Else ' idPage = idPages ' idParent = 0 ' bReturn = False ' End If 'Connect to database and get content Set rs = Server.CreateObject("ADODB.RECORDSET") sql = "exec getMenu @id=" & idPages rs.CursorLocation = aduseclient rs.Open sql, con, adOpenDynamic, , adcmdtext set rs.ActiveConnection = nothing End If %>
|
|
|||||||||
|
||||||||||