sen är det ju bara att loppa igenom tabellen arrangemang till vänster och få ut titeln på varje arrangemang, med en länk till en sida som plockar ut infon om valt arrangemang.
Sen kan du ju enkelt göra en redigara /admin sida med hjälp från oss här..
Tack för snabba svar.
Det är ungfär som du skriver som jag tänkt. Problemet är ju att man inte är någon guru på asp. Visa grejer från databas kan jag men att sedan ändra etc är det lite svårare med.
visa filen:
<%Set db = Server.CreateObject("ADODB.Connection")
db.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("arr.mdb")
set rs = server.CreateObject("ADODB.Recordset")
rs.Open "select * from db_arr where myid=" & id, db
if not rs.EOF then
%>
rs.Close
set rs = nothing
db.Close
set db = nothing%>
lägga till filen:
<%@ Language=VBScript %>
<%
text = Request.Form("text")
text = Replace(text,vbcrlf,"<br>")
text = Replace(text,vblf,"")
bild = Request.Form("bild")
bild = replace(bild,vbcr,"<br>")
bild = replace(bild,vblf,"")
confirm = Request.Form("confirm")
if confirm <> "" then
Set db = Server.CreateObject("ADODB.Connection")
db.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("arr.mdb")
db.execute("INSERT INTO db_golf (text,bild) VALUES ('" & text & "','" & bild & "')")
msg = "Posten är inlaggd i databasen!"
db.Close
set db = nothing
end if
Visa olika arrangemang filen:
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("arr.mdb")
set rs = server.CreateObject("ADODB.Recordset")
rs.Open "select * from db_arr", db
i=0
do while not rs.EOF
%>
<a href="showit.asp?id=<%=rs("MyID")%>"> <%=rs("rubrik")%></a><br clear="all">
<%
i=i+1
if i=9 then exit do
rs.MoveNext
loop
rs.Close
set rs = nothing
db.Close
set db = nothing
%>
om det bara är en som ska ändra i databasen och ha ett lösenord och ett användar namn kan du lägga lösenord och användarnamn i en sessionsvariabel... det är en början..sen är det bara att skapa en redigera sida där du tex loopar genom alla arrangemang och länkar dem till en sida som lägger ut infon i textboxar där du kan redigera, sedan kör du en update om man trycker på confirm knappen i formen..
en enkel variant för att visa de olika arangemangen är typ
öppna databasen
SQLStmt = "SELECT arr_name, arr_id from Arrangemang"
Set RS = Connect.execute(SQLStmt)
Do Until RS.EOF
<a href="showit.asp?arr_id=<%=RS("arr_id")%>"><%=RS("arr_name")%></a><br>
Rs.MoveNext
Loop
Rs.Close
För att sedan visa den kan du ju skriva typ så här
Öppna databasen
SQLStmt = "Select * FROM Arrangemang Where Arr_id = '"& Request.Querystring("arr_id") &"'"
Set RS = Connect.Execute(SQLStmt)
sen skriver du bara ut det du ska ha med typ
<%=RS("????")%>