okay...hvor skal det sættes ind? jeg har en fil hvor formularen ligger, og en fil som sørger for at det bliver lagt ind i DB'en
min fil som der ligger det i DB'en ser sådan ud (det er news der skal laves linjeskift i):
<%
Response.Buffer = True
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/maindb.mdb")
Conn.Open DSN
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld
if (Request.Form("dato") <> "" AND Request.Form("forfatter") <> "" AND Request.Form("type") <> "" AND Request.Form("overskrift") <> "" AND Request.Form("trompet") <> "" AND Request.Form("news") <> "") then
'Tilføjer til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from nyheder where overskrift = '" & Request("overskrift") & "'"
rs.Open strsql, conn, 1, 3
if rs.eof or rs.BOF then
'Tilføjer til databasen
rs.AddNew
rs("dato") = Server.HTMLEncode(Request("dato"))
rs("forfatter") = Server.HTMLEncode(Request("forfatter"))
rs("overskrift") = Server.HTMLEncode(Request("overskrift"))
rs("trompet") = Server.HTMLEncode(Request("trompet"))
rs("news") = Server.HTMLEncode(Request("news"))
rs("type") = Server.HTMLEncode(Request("type"))
rs.update
Response.Redirect("../opdateret.asp")
else
'Skriver at navnet er optaget
Response.Write("<font color='red'>Navnet findes i forvejen i databasen</font><br /> <a href='opret.asp'>Tilbage</a><br />")
end if
rs.Close
set rs = nothing
else
Response.Write("<font color='red'>Der var fejl i dine indtastninger</font><br /><a href='opret.asp'>Tilbage</a><br /><br>")
end if
end if
Conn.Close
Set Conn = Nothing
%>
