Lista/meny som uppdaterar

Välkommen till webforum!

Jag har två frågor!
Vad menar du med blädderlista?
Vad är DW?

Ahh, du menar såklart Dreamweaver!

Men jag undrar fortfarande vad du menar med blädderlista? Vill du kunna administrera sidan och ändra innehållet?

Vi säger att jag har 10 st personer. Då vill jag kunna få fram information om en enskild person genom att använda blädderlistan och kunna ändra det.

Okey!

Du har alltså en databas med olika kolumner med information om vissa personer. och du har 10 stycken rader i databasen. Du vill kunna välja vilken person som du vill ändra informationen om i en select list!

Det skulle underlätta något om du postar din nuvarande kod. Jag har ingen lust och skriva hela koden åt dig!

Precis så är det.

Det är ju det, har ingen kod. Det är inte det jag behöver utan bara hur man ska börja o lite sånt, så jag kommer igång.

Okey!

Du börjar med att connecta till databasen. det gör du genom att skriva:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dindatabas.mdb")
%>

Ändra dindatabas.mdb till namnet på din databas.

Sen så hämtar du ut alla poster och lägger in dom i listan genom att skriva:

<form method="POST" action="change.asp">
<select>
<%
sql = "SELECT * from tabell"
Set rs = conn.Execute(sql)

Do Until rs.EOF
%>
<option value='<%=rs("ID") %>'><%=rs("namn") %></option>
<%
    rs.MoveNext
  Loop
%>
</select>

<input type="submit" value="ändra">
</form>

Ändra namn till namnet på kolumnen som du vill skriva ut.

Sen så i filen change.asp
så skriver du typ ut all information som finns i databasen i textfields eller liknande:

<%
strID=request.form("ID")
%>

<form method='POST' action='<%=publicera.asp?ID="&strID&"%>'>

sql = "SELECT * FROM tabell WHERE ID="&strID&""
Set rs= conn.Execute(sql)

<input name='age' type='text' value='<%=rs("age")%>'>
<input name='namn' type='text' value='<%=rs("name")%>'>
<input type='submit' value='publicera'>
<form>

Sen filen publicera.asp:

strID=Request.QueryString("bilder")
strNamn=request.form("namn")
strAge=request.form("age")
sql = "UPDATE tabell SET namn='"& strNamn'&" , age='"&strAge&"' WHERE id ="& ID &""
 conn.Execute(sql)

Hoppas det där hjälpte lite!

Tack så mycket! Det gör det säkert.. :)

Hur gick det lyckades du få det att fungera så som du ville ha det?

Nej, tyvärr så funkade det inte riktigt som jag ville. Connecta till databasen går väl att köra genom programmet, för på ditt sätt så ville den inte alls hitta filen, fast jag redirektade den till den mappen där den ligger.

En dum fråga kanske, har du installerat någon webbserver? Typ IIS?

Japp, har iis.

Okey, bra. Men publicera din nuvarande kod så kanske jag kan se vart det blir fel.

Sen bör man skriva ut ASP koden själv. DW är väll mera gjord för att fixa design och sånt.

<form name="form1" class="stil4" id="form1">
<label> <span class="stil4"><br />
Hyresgäst:<br />
<select name="hyresgäst" class="stil1" id="hyresgäst">
<%
While (NOT listmeny.EOF)
%>
<option value="<%=(listmeny.Fields.Item("debiteringar_kundnr").Value)%>"><%=(listmeny.Fields.Item("debiteringar_hyresgäst").Value)%></option>
<%
listmeny.MoveNext()
Wend
If (listmeny.CursorType > 0) Then
listmeny.MoveFirst
Else
listmeny.Requery
End If
%>
</select>
</span>

  \<p onmouseover="MM_validateForm('textfield2','','R');return document.MM_returnValue"\>
    \<input name="kundnr" type="text" class="stil1" id="kundnr" value="\<%=(debuppdatera.Fields.Item("debiteringar_kundnr").Value)%\>" /\>

</form>

Så ser det ut just nu...

Hur ser din databas ut? Vilka kolumner har du?
Hur ser din databas koppling ut? Posta hela din kod!