<% 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 %>


[ Tillbaka ]