tilføj

hvofor virker denne funktion tilføj ikke ?

link: http://www.questis.dk/addlink.asp

kode:

<%@ LANGUAGE="VBSCRIPT"%>
<%OPTION EXPLICIT%>
<%Response.Buffer = True%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
    Dim intCatID
    Dim intLevel
    Dim intLoop
   
    Set objConn = Server.CreateObject ("ADODB.Connection")
    Set objRec2 = Server.CreateObject ("ADODB.Recordset")
   
    objConn.Open strconnect
   
    'objRec.Open "cats", objConn, adOpenStatic, adLockReadOnly, adCmdTable
    objRec2.Open "links", objConn, adOpenDynamic, adLockPessimistic, adCmdTable       
   
If (Request.Form("Password") = LSAdminPassword) OR (Request.Cookies(""&Session.SessionID&"") = LSAdminPassword)  Then

'Update the cookie.
Response.Cookies(""&Session.SessionID&"") =  LSAdminPassword

    'Add an entry for each category.
    For intLoop = 1 to Request.Form("field").Count
        objRec2.AddNew
        objRec2("CatID") = Request.Form("field")(intloop)
        objRec2("LinkName") = Request.Form("LinkTitle")
        objRec2("LinkURL") = Request.Form("LinkUrl")
        objRec2("LinkDesc") = Request.Form("LinkDesc")
        objRec2("LinkAdded") = Date()
        objRec2("LinkWord") = Request.Form("LinkWord")
        objRec2("OwnerEmail") = Request.Form("OwnerEmail")
        objRec2("OwnerName") = Request.Form("OwnerName")
        objRec2.Update
    Next

Else
    'If there has been a password entered then it's wrong. Hard luck.   
    If NOT Request.Form("Password") = "" Then
        Response.Write FONT1 & "<strong>Fejl!</strong></font><br>"
    End If
   
End If


'This sub is rather spiffing. Prints out the thread. Very handy bit of code.
Sub ThreadLinks(intLevel, intCatID)

    Dim objRecThread
   
    strSQL = "SELECT * FROM Cats WHERE ParentID = "&intCatID&""
    Set objRecThread = objConn.Execute(strSQL)
   
    Do While NOT objRecThread.EOF
       
        If intCatID = 0 then
            Response.Write "<br><strong>"
        End If%>
       
        <img src="space.jpg" width="<%=intLevel*15%>" height="10">
       
        <input type="radio" name="field" value="<%=objRecThread("CatID")%>"><%=objRecThread("CatTitle")%><br>

        <%
   
        If intCatID = 0 then
            Response.Write "</strong>"
        End If                   

        ThreadLinks intLevel+1,objRecThread("CatID")
        objRecThread.MoveNext
       
    Loop
   
    objRecThread.Close
End Sub %>

<html>
<head>
<title>S&oslash;g</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3">
</head>
<body bgcolor="white" link="#000000" vlink="#000000" alink="#000000" topmargin="0" leftmargin="0">
<CENTER><!-- #include file="site.htm"--></CENTER><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
</TABLE></CENTER>
<%=LSPageBody1%>
<form method="POST" action="addlink.asp">
   
    <%=FONT1%>V&aelig;lg en kategori som du vil tilf&oslash;je dit link til:<br>
   
    <%ThreadLinks 0,0%>
   
    <br><br>
    <%IF NOT Request.Cookies(""&Session.SessionID&"") = LSAdminPassword Then%>
    <%=FONT1%>
    <input type="hidden" name="Password" VALUE="admin" size="40"><p>
    <%End IF%>
    Dit Navn<FONT COLOR="#000000">*</FONT> : <FONT COLOR="#000000" size="1">(Fx. S&oslash;ren Hansen)</FONT><br>
    <input type="text" name="OwnerName" size="40" maxlength="70"></p><FONT FACE="Verdana, Arial, Helvetica" SIZE="1" COLOR="#000000">(*Hvis sidens ejer har siden i forbindelse med et firma skrives firma navnet!)<BR></FONT><BR>   
Din Email : <FONT COLOR="#000000" size="1">(Fx. <A HREF="mailto:jimmi@c.dk">jimmi@c.dk</A>)</FONT><br>
    <input type="text" name="OwnerEmail" size="40" maxlength="70"></p>

    Sidens navn : <FONT COLOR="#000000" size="1">(Fx. <A HREF="redirect.asp?linkid=128" TARGET="_top">Flippet</A> eller <A HREF="redirect.asp?linkid=127" TARGET="_top">netIT Design</A>)</FONT><br>
    <input type="text" name="LinkTitle" size="40" maxlength="70"></p>
   
    <%=FONT1%>Sidens adresse : <FONT COLOR="#000000" size="1">(Fx. <A HREF="http://www.jojo.dht.dk" TARGET="_top">http://www.jojo.dht.dk/</A>)</FONT><br>
    <input type="text" name="LinkURL" size="40" value="http://"></p>
   
    <%=FONT1%>Beskrivelse af siden : <FONT COLOR="#000000" size="1">(Fx. P&aring; denne siden kan du hente alle de fede spil...)</FONT><br>
  <INPUT TYPE="text" SIZE="40" MAXLENGTH="70" NAME="LinkDesc">
    </font></p>
    <%=FONT1%>S&oslash;geord : <FONT COLOR="#000000" size="1">(Fx. spil, download)</FONT><br>
    <INPUT TYPE="text" SIZE="40" MAXLENGTH="70" NAME="LinkWord">
    </font><BR><BR><FONT COLOR="#000000">TRYK KUN EEN GANG!!!<BR><BR>DU KOMMER TILBAGE TIL DENNE SIDE N&Aring;R LINKET ER TILF&Oslash;JET!!!<BR><BR>HVIS DU TILF&Oslash;JER DET SAMME LINK MERE END 1 GANG VIL ALLE LINK BLIVE SLETTET!!!</FONT><p><input type="submit" value="[Tilf&oslash;j]" name="Add Link"><INPUT TYPE="reset" VALUE="[Slet Alt]" NAME="Reste"></p>
    </form>
   
<%

'Clean up a little.
objRec2.Close
Set objRec2 = Nothing
objConn.Close
Set objConn = Nothing
%><BR><BR><CENTER><%=PrintCredit%>

</body>

mvh.
questis.dk