<%
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "DSN=KT080128_webman;UID=;pwd="
SQL = ""
Set rsKund = CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblLevelPages Where pkLevelPageID = " & Request.QueryString("redID") & " "
rsKund.Open SQL, objConn, 3, 3
%>
<% =rsKund("Header") %>
<% =rsKund("pageContent") %>
<%
Set rsKund = CreateObject("ADODB.Recordset")
Set rsKund.ActiveConnection = objConn
rsKund.Open "SELECT * FROM tbllevelPages Where pkLevelPageID = " & Request.QueryString("redid") & " "
Do While Not rsKund.EOF
If Len(rsKund("counter") & "") = 0 Then
objConn.Execute "UPDATE tblLevelPages SET counter = 1 WHERE pkLevelPageID = " & Request.QueryString("redID")
Else
objConn.Execute "UPDATE tblLevelPages SET counter = counter + 1 WHERE pkLevelPageID = " & Request.QueryString("redID")
End If
%>
" target="_blank" title="Klicka på länken för att spela upp filmen!"><% =rsKund("mov") %>
<%
rsKund.MoveNext
Loop
rsKund.close
set rsKund = Nothing
objConn.close
set objConn = Nothing
%>