Ok, hier is de code. Moet je even het volgende weten.
GetButton en GetAnchorElement staan in de common.asp, en daar worden als het ware tables aangemaakt met daarin de link. Er moet dus perse een submit worden gegeven omdat het geen buttons zijn maar gewoon linkjes.
<body>
<form method="post" name="timesheet" action="../index.asp">
<input type="Hidden" name="user" value="<%=lcase(user)%>">
<input type="Hidden" name="action" value="<%=lcase(action)%>">
<input type="Hidden" name="userid" value="<%=userid%>">
<%=GetSeparator("400",Heading,true)%>
<table width=400 border=0 cellpadding=0 cellspacing=0>
<%select case lcase(user)
case "tempemployee"
dim objrs, strConnect
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\temp\Users.mdb;" & _
"Persist Security Info=False"
set objrs = server.CreateObject("ADODB.RecordSet")
objrs.Open "Users",strConnect,adOpenForwardOnly,adLockReadOnly,adCmdTable
objrs.Filter = "TempID LIKE "+userid
%>
<table>
<tr>
<td width=150>Employee ID :</td><td><%=userid%></td>
</tr><tr>
<td width=150>Employee name :</td><td><%=objrs("name")%></td>
</tr><tr>
<td width=150>Job description :</td><td><%=objrs("job description")%></td>
</tr><tr>
<td width=150>Temp agency :</td><td><%=objrs("agency")%></td>
</tr>
</table>
<br>
<%objrs.Close%>
<%=CalculateWeekDay(userid, StartDate, Period, action)%>
<%case "admin"%>
<%case "agency"%>
<%end select%>
</td></tr>
<tr><td colspan=<%= 2 + period%>>
<%response.write(GetButtonBarStart())
response.write(GetButton(GetAnchorElement("", Array( "~", "history.go(-1);"), "class=""btn""", "Back")))
response.write(GetButton(GetAnchorElement("", Array( "~", "window.print();"), "class=""btn""", "Print")))
response.write(GetButton(GetAnchorElement("", Array( "~", "document.timesheet.submit();"), "class=""btn""", "Release")))
response.write(GetButton(GetAnchorElement("", Array( "~", "document.timesheet.FormAction.value='SaveHours.asp';"), "class=""btn""", "Save")))
response.write(GetButtonBarEnd())%>
</td></tr>
</table>
<%
if lcase(action) = "timesheet" then
Javascript = ""
Javascript = Javascript & "<script language='Javascript'>" & vbCrLf
Javascript = Javascript & "<!--" & vbCrLf
Javascript = Javascript & "Total('een','toteen');" & vbCrLf
Javascript = Javascript & "Total('twee','tottwee');" & vbCrLf
Javascript = Javascript & "Total('drie','totdrie');" & vbCrLf
Javascript = Javascript & "Total('vier','totvier');" & vbCrLf
Javascript = Javascript & "Total('vijf','totvijf');" & vbCrLf
Javascript = Javascript & "//-->" & vbCrLf
Javascript = Javascript & "</script>" & vbCrLf
response.write Javascript
end if
%>
</form>
Bij
deze link kun je even naar de code kijken als ie gegenereerd is.
Alvast hartstikke bedankt.