<%
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "DSN=KT080128_webman;UID=;pwd="
SQL = ""
Set rsKund = CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblPages Where pkPageID = " & Request.QueryString("redID") & " "
rsKund.Open SQL, objConn, 3, 3
%>
<% =rsKund("Visible") %>
<% =rsKund("PageName") %>
<% =rsKund("PageHead") %>
<%
Set rsKund = CreateObject("ADODB.Recordset")
Set rsKund.ActiveConnection = objConn
rsKund.Open "SELECT * FROM tblPages Where pkPageId = " & Request.QueryString("redid") & " "
Do While Not rsKund.EOF
If Len(rsKund("counter") & "") = 0 Then
objConn.Execute "UPDATE tblPages SET counter = 1 WHERE pkPageID = " & Request.QueryString("redID")
Else
objConn.Execute "UPDATE tblPages SET counter = counter + 1 WHERE pkPageID = " & Request.QueryString("redID")
End If
%>
<%Set rsKund = CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblLevelPages Where fkPageID = " & Request.QueryString("redID") & " AND status = 'ja' order by leveldate DESC "
rsKund.Open SQL, objConn, 3, 3
Do While Not rsKund.EOF
%>