Opdatere forskellige poster,med forskellig værdi
Jeg har denne side, det er nok nemmest hvis i selv sætter den ind i frontpage el.lign:********************************************************
<%
Brugernavn = session("Brugernavn")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("Firmafest.mdb")
Conn.Open DSN
sql = "Select * from Sange order by point"
Set rs = Conn.Execute(sql)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Band</title>
</head>
<body bgcolor="#C0C0C0">
<form method="POST" action="Giv_Point.asp">
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="20%" bgcolor="#A4A4A4"><font size="2" face="Verdana"><b>Band</b></font></td>
<td width="20%" bgcolor="#A4A4A4"><font size="2" face="Verdana"><b>Sang</b></font></td>
<td width="20%" bgcolor="#A4A4A4"><font size="2" face="Verdana"><b>Genre</b></font></td>
<td width="20%" bgcolor="#A4A4A4"><font size="2" face="Verdana"><b>Point</b></font></td>
<td width="20%" bgcolor="#A4A4A4"><font size="2" face="Verdana"><b>Kommentar</b></font></td>
</tr>
<%do while not rs.EOF or rs.BOF%>
<tr>
<td width="20%" bgcolor="#C0C0C0"><%=rs("Band")%></td>
<td width="20%" bgcolor="#C0C0C0"><%=rs("Titel")%></td>
<td width="20%" bgcolor="#C0C0C0"><%=rs("Genre")%></td>
<%
'*hvis det er brugeren som har tilføjet sangen, kan denne ikke tilføje point.
If Brugernavn = rs("Bruger") Then
%>
<td width="20%" bgcolor="#C0C0C0"><%=rs("Point")%></td>
<%Else%>
<td width="20%" bgcolor="#C0C0C0">
<select size="1" name="D1">
<option selected value="-">-</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select>
</td>
<%
'Hvis der er nogen sange som brugeren kan gi point ved, skal der komme en submit-knap.
Knap = "Ja"
End if
%>
<td width="20%" bgcolor="#C0C0C0"><%=rs("Kommentar")%></td>
</tr>
<%
rs.movenext
Loop
%>
<tr>
<td>
<%If Knap = "Ja" Then%>
<input type="submit" value="Giv point" name="Giv point"></td>
<%
Else
End if
%>
</tr>
</table>
</form>
</body>
</html>
********************************************************
Det er nu meningen at når brugeren trykker submit, skal asp gå ind og finde ud af hvilke
sange den skal opdatere, og med hvor mange point. Det er det som er problemet for hvordan
kommer koden til den side til at se ud?
Det er fint nok hvis i ændre i denne kode også...
-Brian
