request id ?

virker den kode da ikke?

nej, hvorfor tror du selv jeg stiller spm ??

hmm

jamal_s>> du skal bruge ADODB.RECORDSET istedet for...!

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/start.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject(\"ADODB.RECORDSET\")
strSQL = \"SELECT * From toplist Order by id Desc\"

RS.Open strSQL, myConn, 3, 1

Rs.Addnew
Rs.Felt = \"værdi\"
Rs.Update
Rs.MoveFirst

id = rs(\"id\")

Rs.Close
Set RS = Nothing
Set myConn = Nothing

Response.Write \"Your Text Link: http://www.friserverplads.dk/toplist/in.asp?id=\"& id &\"\"

                    <%
    dim back,dispmsg
    dispmsg=\"\"
    back=0   

    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"start.mdb\")
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open strDSN

    if (len(request.form(\"password\"))<4) OR (len(request.form(\"password\"))<4) then
            myconn.close
            set mycon=nothing
            dispmsg=\"Your login and password must have a minimum of 4 characters.\"
            response.clear
            response.redirect \"newuser.asp?dispmsg=\"&dispmsg
            response.end

    end if

    strSQL = \"SELECT * From toplist WHERE title=\'\"&request.form(\"title\")&\"\'\"
    Set rs = myConn.Execute(strSQL)

  if not rs.eof then
    if rs(\"title\")=request.form(\"title\") then
        rs.close
        set rs=nothing
        myconn.close
        set mycon=nothing
        dispmsg=\"A title by that name already exist please choose another!\"
        response.clear
        response.redirect \"newuser.asp?dispmsg=\"&dispmsg
        response.end
    end if
  end if
 
          strSQL=\"INSERT INTO toplist (title,url,description,email,dato,password) VALUES (\'\"&request.form(\"title\")&\"\',\'\"&request.form(\"url\")&\"\',\'\"&request.form(\"description\")&\"\',\'\"&request.form(\"email\")&\"\',\'\" & date() & \"\',\'\"&Lcase(request.form(\"password\"))&\"\')\"
        myConn.Execute(strSQL)
        myconn.close
        set mycon=nothing       
       
Set Conn = Nothing

Response.Write \"Your Text Link: <font color=red>http://www.friserverplads.dk/toplist/in.asp?id=\"&request.form(\"title\")&\"</font>\"
%>

prøv den her


dim back,dispmsg, strPassword, strTitle
dispmsg=\"\"
back=0   
strPassword = request.form(\"password\")
strTitle = request.form(\"title\")


strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/start.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")

if (len(strPassword)<4) then
        dispmsg=\"Your login and password must have a minimum of 4 characters.\"
            response.clear
            response.redirect \"newuser.asp?dispmsg=\"&dispmsg
            response.end

    end if

myConn.Open strDSN

    strSQL = \"SELECT * From toplist WHERE title=\'\"& strTitle &\"\'\"
    Set rs = myConn.Execute(strSQL)

  if not rs.eof then
      dispmsg=\"A title by that name already exist please choose another!\"
      response.clear
      response.redirect \"newuser.asp?dispmsg=\"&dispmsg
      response.end
  end if

Set RS = Nothing

Set RS = Server.CreateObject(\"ADODB.RECORDSET\")
strSQL = \"SELECT * From toplist Order by id Desc\"

RS.Open strSQL, myConn, 3, 1

Rs.Addnew
Rs(\"title\") = strTitle
Rs(\"url\") = request.form(\"url\")
Rs(\"description\") = request.form(\"description\")
Rs(\"email\") = request.form(\"email\")
Rs(\"dato\") = date()
Rs(\"password\") = Lcase(strPassword)
Rs.Update

Rs.MoveFirst

intId = rs(\"id\")

Rs.Close
Set RS = Nothing
myConn.Close
Set myConn = Nothing

Response.Write \"Your Text Link: http://www.friserverplads.dk/toplist/in.asp?id=\"& intId &\"\"