Det er en lidt beskidt måde at gøre det på, men det fungere (Er kun hobby proggramør
)
http://www.bojohansen.dk/kd/36573/
default.asp :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Ændringer</title>
</head>
<body>
<%
'Først laver vi en database forbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.Mappath ("/") & "\..\db\kandu.mdb"
'Så laver vi et Recordset til at hente vores data
Set Rs = Conn.Execute("SELECT * FROM 36573")
%>
<!-- Vi skal nu have lavet en Form til at putte alle data ind i -->
<!-- Vi sætter Form Action til "POST" for at sikre at vi ikke oveskride grænsen for datamængde i Querystringen "GET" -->
<form action="/kd/36573/gem_endringer.asp" method="post" name="endringer" id="endringer">
<!-- Vi laver et LOOP for at vise alle Records i databasen -->
<% do until rs.Eof %>
<p>Id =
<% = Rs("Id") %>
</p>
<p>
<!--Bemærk at vi sætte Id fra databasen ind foran hver Radio Button's navn,
hvis vi ikke gør det vil det crashe i HTML'en da vi jo laver et loop og gentager de samme radio button's igen og igen.
Og det gør at vi kan identificere dem igen når vi skal til at opdatere vores database-->
No1 = 1 <input name="<%= Rs("Id") %>-No1" type="radio" value="1"<% If Rs("No1") = "1" Then %> checked> <% Else %> > <%End If %>
2 <input name="<%= Rs("Id") %>-No1" type="radio" value="2"<% If Rs("No1") = "2" Then %> checked> <% Else %> > <%End If %>
</p>
<p>No2 = 1 <input name="<%= Rs("Id") %>-No2" type="radio" value="1"<% If Rs("No2") = "1" Then %> checked>
<% Else %> > <%End If %>
2 <input name="<%= Rs("Id") %>-No2" type="radio" value="2"<% If Rs("No2") = "2" Then %> checked>
<% Else %> > <%End If %>
</p>
<p>No3 = 1 <input name="<%= Rs("Id") %>-No3" type="radio" value="1"<% If Rs("No3") = "1" Then %> checked>
<% Else %> > <%End If %>
2 <input name="<%= Rs("Id") %>-No3" type="radio" value="2"<% If Rs("No3") = "2" Then %> checked>
<% Else %> > <%End If %>
</p>
<p>No4 = 1 <input name="<%= Rs("Id") %>-No4" type="radio" value="1"<% If Rs("No4") = "1" Then %> checked> <% Else %> > <%End If %>
2 <input name="<%= Rs("Id") %>-No4" type="radio" value="2"<% If Rs("No4") = "2" Then %> checked> <% Else %> > <%End If %>
</p>
<hr>
<p>
<%
rs.movenext
loop
'Luk Rs og Conn
Rs.Close()
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</p>
<p>
<input type="submit" name="Submit" value="Gem ændringer">
</p>
</form>
</body>
</html>
gem_endringer.asp :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Først laver vi en database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.Mappath ("/") & "\..\db\kandu.mdb"
'Så skal vi have fat i vores data fra forrige side
For each object in Request.Form
'Da submit knappen postes med skal vi lige sortere den fra
If Object = "Submit" Then
'Gør ingenting
Else
'Vi er nød til at finde Id og Radio Button navn for hvert object, dette gøres ved at dele Object ved "-" som du jo husker
'satte vi Id foran vores Radio Button's navn. Med spilt får vi 0=Id og 1=Radio button Navn
SplitObject = Split(Object, "-", 2)
'Så laver vi vores SQL streng
strSQL = "Update 36573 set " & SplitObject(1) & " = '" & Request.Form (""& Object &"") & "' Where Id = " & SplitObject(0) & ""
Conn.Execute(strSQL)
End IF
Next
'Luk Conn
Conn.Close
Set Conn = Nothing
'Diriger tilbage til default så vi kan se ændringerne
Response.Redirect("/kd/36573/default.asp")
%>