hjælp til et lille system

link.asp:
<form action="link.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") & """ 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("/mappe/database.mdb")

'Åben databaseforbindelsen
Conn.Open DSN

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

Conn.Execute(strSQL)
End If
%>

hov:
link = "<a href=""side.asp?id=" & Request.Form("id") & " target=""" & Request.Form("target") & """>" & Request.Form("tekst") & "</a>"

skal være
link = "<a href=""side.asp?id=" & Request.Form("id") & """ target=""" & Request.Form("target") & """>" & Request.Form("tekst") & "</a>"

det var satans:
link = "<a href=""side.asp?id=" & Request.Form("id") & "<!--skulle laves om:-->""<!--/skulle laves om--> target=""" & Request.Form("target") & """>" & Request.Form("tekst") & "</a>"

hvor fortælder du scriptet hvor den gemmer hele linket i ?

har en tabel der hedder menu hvor den culonne den skal gemme i hedder link

det gør man med sql-sætningen:
strSQL = "Insert into tabelnavn (link) values ('" & link & "')"
der hvor der står tabelnavn, skal der stå menu.
der hvor der står link første gan - altså i den første parentes - skal kolonnens navn stå, hvilket jo passer med link

jep men hvorfor giver den så fejl ?
http://www.evilsun.dk/new/menu.asp

har dette her

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

har du skrevet stien til databasen korrekt? det skal du gøre her:
'Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mappe/database.mdb")'der skal stien skrives

takekr var vist abre mig der er lam lige nu!

tak for hjælpen!

var så lidt

er det muligt at lægge koden ind i det system jeg har lavet i forvejen der tager et id og ændre det????

hvor min kode er som følgende:

<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>
<textarea name="Link" rows=1 cols=60><%=rs("link")%></textarea><br><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("link") = Request.form("link")
rs("beskrivelse") = Request.form("beskrivelse")
rs("date") = Date()
rs.Update
%>
Rettet
<% end if %>
</html>

er det ikke bare:
rs("link") = "<a href=""menu.asp?id=" & Request.Form("id") & """ target=""" & Request.Form("target") & """>" & Request.Form("tekst") & "</a>"
sidst i koden

virker indtil man skla opdatere så skriver den:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'id=1, test1'.

/novatech/menu_admin2.asp, line 86

Linie 86 er:
rs.Open strSQL, Conn, 1, 3

jeg satte koden her:


rs("link") = "<a href=""menu.asp?id=" & Request.Form("id") & " target=""" & Request.Form("target") & """>" & Request.Form("tekst") & "</a>"

rs("beskrivelse") = Request.form("beskrivelse")
rs("date") = Date()
rs.Update
%>

test1 er så det jeg skrev i første boks

opretter lige en om dette her.. så du kan få point hvis du hjælper

http://www.eksperten.dk/spm/237378