Samsætning af 2 Scripts

Hey

Har fået lavet et script her af Hells http://exp.dk/spm/237340

som jeg skal have sat sammen med mit eget, har selv prøvet men får sku for mange fejl.. osv osv osv...

<link rel="stylesheet" type="text/css" href="admin.css">
<%
Response.Buffer = True
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")

If request("Mode") = "logaf" Then
session.Abandon
Response.Redirect("admin.asp")
end if

If Session("password-session") = "" Then
Response.Redirect("admin.asp")
end if


Sql = "Select * FROM login WHERE username = '" & session("password-session") & "'"
set rs = rs.Execute(SQL)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
%>
<% mode = request("mode") %>
<% if mode = "" then %>
<%
SQL = "SELECT * FROM menu"
set rs = Conn.execute(SQL)
if rs.EOF then
%>

<a href="menu.asp?mode=logaf">logaf</a>
Intet i db'en
<%
else
%>
<a href="menu.asp?mode=logaf">logaf</a>
<table width="400" border="1">
<tr>
<td>id:</td>
<td>dato:</td>
<td>Menu Beskrivelse</td>
<td>link</td>
    </tr>
<%
Do Until rs.EOF
%>
<tr>
<td valign="top"><a href="?mode=ret&id=<%=rs("id")%>"><%=rs("id")%></td></a>
<td valign="top"><%=rs("date")%></td>
        <td valign="top"><%=rs("beskrivelse")%></td>
        <td valign="top"><%=rs("link")%></td>
    </tr>
<%
rs.MoveNext
Loop
end if
%>
<% end if %>
<% if mode = "ret" then %>
<form method="POST" action="?mode=ret2">
<input type="hidden" name=Id value=<%=Request.QueryString("id")%>>
<%
SQL = "Select * From menu where id="& Request.QueryString("id")
set rs = Conn.execute(SQL)
%>
Id: <%=rs("id")%><br><br>
Dato: <%=rs("date")%><br><br>

Menu Beskrivelse:<br>
<textarea name="beskrivelse" rows=5 cols=60><%=rs("beskrivelse")%></textarea><br><br>

Link:<br>


<input type="submit" value="Send" name="B1">
</form>
<% end if %>
<% if mode = "ret2" then %>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")

strSQL = "Select * From menu where id=" & Request.form("id")
rs.Open strSQL, Conn, 1, 3


rs("beskrivelse") = Request.form("beskrivelse")
rs("date") = Date()
rs.Update
%>
Rettet
<% end if %>
</html>


og her kommer den kode der skla ind

<form action="menu.asp" method="post">
<input type="hidden" name="mode" value="lavlink" />
<input type="text" name="id" />
<input type="text" name="target" />
<input type="text" name="tekst" />
<input type="submit" />
</form>

<%
If Request.Form("mode") = "lavlink" Then
link = "<a href=""side.asp?id=" & Request.Form("id") & "<!--skulle laves om:-->""<!--/skulle laves om--> target=""" & Request.Form("target") & """>" & Request.Form("tekst") & "</a>"

'ADODB connection objektet skabes:
Set Conn = Server.CreateObject("ADODB.Connection")

'Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")

'Åben databaseforbindelsen
Conn.Open DSN

strSQL = "Insert into menu (link) values ('" & link & "')"

Conn.Execute(strSQL)
End If
%>