så jeg tilbage ... og jeg kan se at molokyle har blandet sig som han altid gør når det er HTML :D
her er hvad der skal gøres ...
i opret skal der tilføjes noget kode
<%Session.LCID = 1030%>
<%
'Her bliver der undersøgt om session("Adgang") er sat til Godkendt, er den ikke det bliver man sendt tilbage til adgangskontrol.asp med en fejlmeddelelse
If Not Session("Adgang") = "Godkendt" Then
Response.Redirect("login.asp?valg=forbudt")
End If Dato=Date
ENOverskrift=Request.Form("ENOverskrift") ' der skal kunne modtages flere fra formen
ENIndhold=Request.Form("ENIndhold")
GEOverskrift=Request.Form("GEOverskrift")
GEIndhold=Request.Form("GEIndhold")
DKOverskrift=Request.Form("DKOverskrift")
DKIndhold=Request.Form("DKIndhold")
Forfatter=Request.Form("Forfatter")
strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database/mp.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strQ = "SELECT * FROM Nyheder"
rs.Open strQ, strConn, 1, 2
rs.AddNew
rs("ENOverskrift")=ENOverskrift 'vi skal have nogle flere versioner af nyheden så dem må vi lave plads til
rs("ENIndhold")=ENIndhold
rs("GEOverskrift")=GEOverskrift
rs("GEIndhold")=GEIndhold
rs("DKOverskrift")=DKOverskrift
rs("DKIndhold")=DKIndhold
rs("Forfatter")=Forfatter
rs("Dato")=Dato
rs.Update
rs.Close
Set rs = Nothing
response.Redirect ("krop.asp?valg=nyhed")
%>
og i den Form hvor du tilføjer skal der så tilføjes de 2 ekstra Overskrift og indhold bokse der skal omdøbes til overstående ...
...
så når nyheds siden loades skal et script lige finde ud af hvad for en det der skal vises og så kalde den rigtige
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/mp.mdb")
If Request.QueryString("ID")<>"" then
SQL = "select * from Nyheder WHERE ID=" & Request.QueryString("ID")
Conn.Execute (SQL)
Set rs = Conn.Execute(SQL)
'Response.Write "<img border=0 src=images/nyhed.jpg><br><br>"
Response.Write "Nyhed er fra d. " & rs("Dato") & "<br><br>"
if sprog = "DK" then 'sprogvariablen skal lige defineres ... med en session eller *.asp?sprog=DK men det må du lige selv finde ud af hvad der er smartest
overskrift= rs("DKoverskrift")
Indhold=rs("DKindhold")
elseif sprog = "GE"
.... ' ETC
end if
Response.Write "<b>" & overskrift & "</b><br><br>"
For x = 1 to Len(Indhold)
If mid(Indhold,x,1)=chr(13) then
Response.Write "<br>"
Else
Response.Write mid(Indhold,x,1)
End If Next
Response.Write "<br><br><br><i>Forfatter : " & rs("Forfatter") & "</i>"
Response.Write "<br><br><center><a href=nyheder.asp><font color='#2e4e2e'>Tilbage til oversigt</font></a></center>"
Else
'Response.Write "<img border=0 src=images/nyhed.jpg><br><br>"
Response.Write "<b>Oversigt over nyheder : </b><br><br>"
SQL="SELECT * FROM fNyheder"
Conn.Execute (SQL)
Set rs = Conn.Execute(SQL)
rs.movefirst
do while not rs.eof If rs("Dato")+60 > Date Then
Response.Write rs("Dato") & " - <a href=nyheder.asp?id=" & rs("ID") & "><font color='#2e4e2e'>" & rs("Overskrift") & "</font></a><br>"
Response.Write "<font size=1>"
Response.Write Left(rs("Indhold"),45) & "</font><br><br>"
....
sådan håber det hjalp lidt ... har ikke testet det selv så du må lige brokke dig hvis det er helt sort og uforståligt eller at du bare ikke kan få det til at virke:D
mvh
Phylock`