Dette er formularsiden:
<%@LANGUAGE="VBSCRIPT"%>
<%strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vikardatabasen.mdb")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>Indberetning af vikardata</title>
</head>
<body>
<h1>Indberetning til vikardatabasen</h1>
<%
Dim rsRecordset1
Dim rsRecordset2
Dim rsRecordset3
set rsRecordset1 = Server.CreateObject("ADODB.Recordset")
rsRecordset1.ActiveConnection = strConn
rsRecordset1.Source = "SELECT * FROM SD2 ORDER BY SD2.Sdkode"
rsRecordset1.CursorType = 0
rsRecordset1.CursorLocation = 2
rsRecordset1LockType = 3
rsRecordset1.Open
rsRecordset1_numRows = 0%>
<% set rsRecordset2 = Server.CreateObject("ADODB.Recordset")
rsRecordset2.ActiveConnection = strConn
rsRecordset2.Source = "SELECT vikartype FROM vikartype ORDER BY vikartype.vikartype"
rsRecordset2.CursorType = 0
rsRecordset2.CursorLocation = 2
rsRecordset2LockType = 3
rsRecordset2.Open
rsRecordset2_numRows = 0%>
<% set rsRecordset3 = Server.CreateObject("ADODB.Recordset")
rsRecordset3.ActiveConnection = strConn
rsRecordset3.Source = "SELECT * FROM vikarbureauer ORDER BY vikarbureauer.bureaunr"
rsRecordset3.CursorType = 0
rsRecordset3.CursorLocation = 2
rsRecordset3LockType = 3
rsRecordset3.Open
rsRecordset3_numRows = 0%>
<form name="form" method="post" action="add2.asp">
<TABLE BORDER="2">
<tr>
<td>Fakturanr:</td> <td><input type="text" name="fakturanr" maxlength="20"> <br></td>
<td><br></td>
<td><a href="help.htm" target=" blank"><img src="/Image/quest.jpg" align="right" alt="hjælp" ></a></td>
</tr><br>
<tr><td>
Start dato </td>
<td><input type="text" name="startdato" maxlength="20"> </td>
<td> Start tidspunkt </td>
<td><input type="text" name="starttid" maxlength="20"> </td>
</tr>
<tr><td>
Slut dato </td>
<td><input type="text" name="slutdato" maxlength="20"> </td>
<td> Slut tidspunkt </td>
<td><input type="text" name="sluttid" maxlength="20"> </td>
</tr>
<tr><td>
Pris </td>
<td><input type="text" name="pris" maxlength="20"> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr></tr>
<tr>
<td> Afdeling:</td>
<td> <select size="1" name="afdeling">
<% While NOT rsRecordset1.EOF %>
<option value=" <%=(rsRecordset1.Fields.Item("sdkode").Value)%>"
selected><%=(rsRecordset1.Fields.Item("vikarkode").Value)%></option>
<%
rsRecordset1.MoveNext
Wend
SET rsRecordset1= nothing%></select> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> Vikartype:</td>
<td> <select size="1" name="vikartype">
<% While NOT rsRecordset2.EOF %>
<option value=" <%=(rsRecordset2.Fields.Item("vikartype").Value)%>"
selected><%=(rsRecordset2.Fields.Item("vikartype").Value)%></option>
<%
rsRecordset2.MoveNext
Wend
SET rsRecordset2= nothing%></select> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> Vikarbureau:</td>
<td> <select size="1" name="vikarbureau">
<% While NOT rsRecordset3.EOF %>
<option value=" <%=(rsRecordset3.Fields.Item("bureaunr").Value )%>"
selected><%=(rsRecordset3.Fields.Item("vikarbureau").Value)%></option>
<%
rsRecordset3.MoveNext
Wend
SET rsRecordset3= nothing%></select> </td>
<td> </td>
<td> Afstemt:</td>
<td><input type="checkbox" name="afstemt" value=1>
</td>
</tr>
</TABLE>
<br>
<TABLE BORDER="0">
<tr><td></td>
<td>
<input type="submit" name="submit" value="Gem"> </td>
<td><input type="reset" value="Ryd"></td></tr>
</TABLE>
</form>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
