Dette bliver:
--------< femina_adm_opdatering_betaling_navn.asp >----------------
<% @Language="VBScript" %>
<HTML>
<HEAD>
<TITLE> Opdatering af betaling</TITLE>
<META NAME="Robots" CONTENT="NOINDEX,FOLLOW">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-store">
<LINK REL="stylesheet" HREF="../css/admstyle_screen.css" TYPE="TEXT/CSS" MEDIA="screen">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
'Databaseforbindelse
Set conn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("feminalobet_test.mdb") 'dbpath
conn.Open strDSN
Set dbconnect = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM femina"
dbconnect.Open strSQL, strDSN,1,3
%>
<SCRIPT language=javascript>
<!--
function checkAll()
{
var oForm = document.forms['betaling'];
var n = oForm.length;
for (var i = 0; i < n ; i++) {
oForm.item(i).checked =true;
}
}
-->
</SCRIPT>
</HEAD>
<BODY>
<BR><DIV ID=H1>Opdatering af betaling</DIV><BR>
<DIV ID=PCB>Sorteret efter navn</DIV><BR><BR>
<FORM NAME="betaling" METHOD="post" ACTION="femina_adm_opdatering_betaling2.asp">
<DIV STYLE="text-align:right">
<DIV ID=P>Hak betyder betalt. <A href="java script:checkAll()">Vælg alle</A></DIV><BR><BR>
<DIV STYLE="text-align:center">
<TABLE BORDER="0" WIDTH="95%">
<TR><TD WIDTH="30%"><DIV ID=PB>Fornavn</DIV></TD>
<TD WIDTH="30%"><DIV ID=PB>Efternavn</DIV></TD>
<TD WIDTH="10%"><DIV ID=PB>Refnr.</DIV></TD>
<TD WIDTH="10%"><DIV ID=PB>HoldID</DIV></TD>
<TD WIDTH="10%"><DIV ID=PB>Betaling</DIV></TD></TR>
<%
If Not (dbconnect.BOF Or dbconnect.EOF) Then
dbconnect.PageSize = 200
dbconnect.AbsolutePage = intPage
intRecCount = dbconnect.PageSize
intPageCount = dbconnect.PageCount
Do While Not dbconnect.EOF And intRecCount > 0
'BAGGRUNDSFARVE
tal = tal + 1
dim tal
if tal MOD 2 = 0 then
%>
<tr bgcolor=#e5e5e5>
<% else %>
<tr bgcolor=#ffffff>
<% end if %>
<TD WIDTH="40%"><% Response.Write (dbconnect("fornavn")) %></TD>
<TD WIDTH="40%"><% Response.Write (dbconnect("efternavn")) %></TD>
<TD WIDTH="10%"><% Response.Write (dbconnect("Id")) %></TD>
<TD WIDTH="10%"><% Response.Write (dbconnect("holdID")) %></TD>
<TD WIDTH="10%">
<%
id = dbconnect("ID")
cbName = "CB_" & id
hvName = "HV_" & id
If dbconnect("betalt") = True Then
active = "Ja"
chkd = " CHECKED "
Else
active = "Nej"
chkd = ""
End If
Response.Write _
"<INPUT Type='CheckBox' " _
& "Name='" & cbName & "' Value='Ja'" & chkd & ">" _
& "<INPUT Type='Hidden' " _
& "Name='" & hvName & "' Value='" & active & "'>" _
& " -- " & dbconnect("fornavn") & "<BR>" & vbNewLine
%>
</TD>
</TR>
<%
intRecCount = intRecCount - 1
dbconnect.MoveNext
Loop
End If
dbconnect.Close
Set dbconnect = Nothing
%>
</TABLE></DIV>
<BR><BR>
<DIV STYLE="text-align:center">
<INPUT TYPE="submit" VALUE="Opdater" NAME="Opdater">
</DIV>
</FORM>
</DIV>
<BR><BR>
<%
'UDSKRIVNING AF SIDENUMMERNE
Response.Write "<BR>"
If Clng(intPage) > 1 Then
Response.Write "<A HREF=femina_adm_opdatering_betaling_navn.asp?page=" & intPage - 1 & "><<</A>"
Else
Response.Write "<<"
End If
Response.Write " "
'Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<A HREF=femina_adm_opdatering_betaling_navn.asp?page=" & intNum & ">" & intNum & "</A> "
Next
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<A HREF=femina_adm_opdatering_betaling_navn.asp?page=" & intPage + 1 & ">>></A> "
Else
Response.Write ">>"
End If
%>
<BR><BR>
</BODY>
</HTML>
