Koden som den ser ud nu er:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../../../Connections/Online.asp" -->
<%
session.lcid=1030
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "book_ny") Then
MM_editConnection = MM_Online_STRING
MM_editTable = "dbo.booking"
MM_editRedirectUrl = "tilfoej-gods.asp?booking=nybook"
MM_fieldsStr = "book_nr|value|usernr|value|afs_navn|value|afs_adr1|value|afs_adr2|value|afs_adr3|value|afs_post|value|afs_by|value|Afs_land|value|modt_navn|value|lev_navn|value|modt_adr1|value|lev_adr1|value|modt_adr2|value|lev_adr2|value|modt_adr3|value|lev_adr3|value|modt_post|value|lev_post|value|modt_by|value|lev_by|value|modt_land|value|lev_land|value|opr_dato|value|afh_dato|value|ank_dato|value"
MM_columnsStr = "Book_nr|none,none,NULL|usernr|none,none,NULL|Afs_navn|',none,''|Afs_adr1|',none,''|Afs_adr2|',none,''|Afs_adr3|',none,''|Afs_post|',none,''|Afs_by|',none,''|Afs_land|none,none,NULL|Modt_navn|',none,''|Lev_navn|',none,''|Modt_adr1|',none,''|Lev_adr1|',none,''|Modt_adr2|',none,''|Lev_adr2|',none,''|Modt_adr3|',none,''|Lev_adr3|',none,''|Modt_post|',none,''|Lev_post|',none,''|Modt_by|',none,''|Lev_by|',none,''|Modt_land|none,none,NULL|Lev_land|none,none,NULL|opr_dato|',none,NULL|afh_dato|',none,NULL|ank_dato|',none,NULL"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim book
Dim book_numRows
Set book = Server.CreateObject("ADODB.Recordset")
book.ActiveConnection = MM_Online_STRING
book.Source = "SELECT * FROM dbo.booking"
book.CursorType = 0
book.CursorLocation = 2
book.LockType = 1
book.Open()
book_numRows = 0
%>
<%
Dim land
Dim land_numRows
Set land = Server.CreateObject("ADODB.Recordset")
land.ActiveConnection = MM_Online_STRING
land.Source = "SELECT * FROM dbo.Landekoder"
land.CursorType = 0
land.CursorLocation = 2
land.LockType = 1
land.Open()
land_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="
http://www.w3.org/1999/xhtml"><head>
<script language="JavaScript" src="pupdate.js">
/*
Popup calendar script by Sev Kotchnev (webmaster@personal-connections.com)
For full source code and installation instructions to this script
Visit
http://www.dynamicdrive.com*/
</script>
<%
If isEmpty(Session("Usernr")) Then
Response.Redirect("../../login.asp")
End If
dim usernr
usernr=Session("Usernr")
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
.style8 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small; }
.style9 {font-size: x-small}
.style10 {color: #FF0000}
-->
</style>
</head>
<body>
<%
dim book_nr_temp
book_nr_temp=Session("book_nr")
Session("Usernr")=usernr
session("usernr")=session("usernr")
Session("book_nr")=session("book_nr")
%>
<form action="<%=MM_editAction%>" method="POST" name="book_ny">
<p class="style8">Ny booking. Nr.
<%response.Write(book_nr_temp)%>
<input name="book_nr" type="hidden" id="book_nr" value="<%response.Write(book_nr_temp)%>" />
<input type="hidden" name="usernr" value="<%response.Write(usernr)%>" />
</p>
<table width="500" border="0">
<tr>
<td width="10%" class="style8"><span class="style8">Afsender</span></td>
<td width="38%" class="style8"><span class="style9"></span></td>
<td width="4%" class="style8"><span class="style9"></span></td>
<td width="10%" class="style8"><span class="style9"></span></td>
<td width="38%" class="style8"><span class="style9"></span></td>
</tr>
<tr>
<td class="style8"><span class="style8">Navn:</span></td>
<td class="style8"><input tabindex="1" name="afs_navn" type="text" id="afs_navn" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
</tr>
<tr>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="2" name="afs_adr1" type="text" id="afs_adr1" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
</tr>
<tr>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="3" name="afs_adr2" type="text" id="afs_adr2" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
</tr>
<tr>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="4" name="afs_adr3" type="text" id="afs_adr3" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
</tr>
<tr>
<td class="style8"><span class="style8">Postnr.:</span></td>
<td class="style8"><input tabindex="5" name="afs_post" type="text" id="afs_post" size="10" maxlength="10" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
</tr>
<tr>
<td class="style8"><span class="style8">By:</span></td>
<td class="style8"><input tabindex="6" name="afs_by" type="text" id="afs_by" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
</tr>
<tr>
<td class="style8"><span class="style9">Land:</span></td>
<td class="style8"><label>
<select name="Afs_land" id="Afs_land" tabindex="7">
<%
While (NOT land.EOF)
%>
<option value="<%=(land.Fields.Item("Kode").Value)%>"><%=(land.Fields.Item("Land").Value)%></option>
<%
land.MoveNext()
Wend
If (land.CursorType > 0) Then
land.MoveFirst
Else
land.Requery
End If
%>
</select>
</label></td>
<td class="style8"><span class="style9"></span></td>
<td colspan="2" rowspan="2" class="style8">Hvis anden leverings adresse udfyld da nedenstående</td>
</tr>
<tr>
<td class="style8"> </td>
<td class="style8"> </td>
<td class="style8"> </td>
</tr>
<tr>
<td class="style8"><span class="style8">Modtager</span></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style8">Levering</span></td>
<td class="style8"><span class="style9"></span></td>
</tr>
<tr>
<td class="style8"><span class="style8">Navn:</span></td>
<td class="style8"><input tabindex="8" name="modt_navn" type="text" id="modt_navn" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style8">Navn:</span></td>
<td class="style8"><input tabindex="15" name="lev_navn" type="text" id="lev_navn" size="30" maxlength="30" /></td>
</tr>
<tr>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="9" name="modt_adr1" type="text" id="modt_adr1" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="16" name="lev_adr1" type="text" id="lev_adr1" size="30" maxlength="30" /></td>
</tr>
<tr>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="10" name="modt_adr2" type="text" id="modt_adr2" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="17" name="lev_adr2" type="text" id="lev_adr2" size="30" maxlength="30" /></td>
</tr>
<tr>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="11" name="modt_adr3" type="text" id="modt_adr3" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style8">Adresse:</span></td>
<td class="style8"><input tabindex="18" name="lev_adr3" type="text" id="lev_adr3" size="30" maxlength="30" /></td>
</tr>
<tr>
<td class="style8"><span class="style8">Postnr.:</span></td>
<td class="style8"><input tabindex="12" name="modt_post" type="text" id="modt_post" size="10" maxlength="10" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style8">Postnr.:</span></td>
<td class="style8"><input tabindex="19" name="lev_post" type="text" id="lev_post" size="10" maxlength="10" /></td>
</tr>
<tr>
<td class="style8"><span class="style8">By:</span></td>
<td class="style8"><input tabindex="13" name="modt_by" type="text" id="modt_by" size="30" maxlength="30" /></td>
<td class="style8"><span class="style9"></span></td>
<td class="style8"><span class="style8">By:</span></td>
<td class="style8"><input tabindex="20" name="lev_by" type="text" id="lev_by" size="30" maxlength="30" /></td>
</tr>
<tr>
<td class="style8">Land:</td>
<td class="style8"><label>
<select name="modt_land" id="modt_land" tabindex="14">
<%
While (NOT land.EOF)
%>
<option value="<%=(land.Fields.Item("Kode").Value)%>"><%=(land.Fields.Item("Land").Value)%></option>
<%
land.MoveNext()
Wend
If (land.CursorType > 0) Then
land.MoveFirst
Else
land.Requery
End If
%>
</select>
</label></td>
<td class="style8"> </td>
<td class="style8">Land:</td>
<td class="style8"><label>
<select name="lev_land" id="lev_land" tabindex="21">
<%
While (NOT land.EOF)
%>
<option value="<%=(land.Fields.Item("Kode").Value)%>"><%=(land.Fields.Item("Land").Value)%></option>
<%
land.MoveNext()
Wend
If (land.CursorType > 0) Then
land.MoveFirst
Else
land.Requery
End If
%>
</select>
</label></td>
</tr>
<tr>
<td class="style8"> </td>
<td class="style8"> </td>
<td class="style8"> </td>
<td class="style8"><input name="opr_dato" type="text" id="opr_dato" value="<%response.write(date)%>" /></td>
<td class="style8"> </td>
</tr>
<tr>
<td class="style8">Afhentes</td>
<td class="style8"><label>
<input name="afh_dato" type="text" id="afh_dato" size="10" maxlength="10" />
<a href="#" onClick="getCalendarFor(document.book_ny.afh_dato);return false">[Vælg her]</a></label></td>
<td class="style8"> </td>
<td class="style8">Leveres</td>
<td class="style8"><label>
<input name="ank_dato" type="text" id="ank_dato" size="10" maxlength="10" />
<a href="#" onClick="getCalendarFor(document.book_ny.ank_dato);return false">[Vælg her]</a></label></td>
</tr>
<tr>
<td colspan="5" class="style8"><div align="center" class="style10">BEMÆRK! Datoformat skal være mm/dd/åååå. For en sikkerheds skyld brug kalenderen.</div></td>
</tr>
</table>
<p>
<label></label>
<label>
<input tabindex="22" type="submit" name="Submit" value="Opret" />
</label>
</p>
<input type="hidden" name="MM_insert" value="book_ny">
</form>
<script language="JavaScript">
if (document.all) {
document.writeln("<div id=\"PopUpCalendar\" style=\"position:absolute; left:0px; top:0px; z-index:7; width:200px; height:77px; overflow: visible; visibility: hidden; background-color: #FFFFFF; border: 1px none #000000\" onMouseOver=\"if(ppcTI){clearTimeout(ppcTI);ppcTI=false;}\" onMouseOut=\"ppcTI=setTimeout(\'hideCalendar()\',500)\">");
document.writeln("<div id=\"monthSelector\" style=\"position:absolute; left:0px; top:0px; z-index:9; width:181px; height:27px; overflow: visible; visibility:inherit\">");}
else if (document.layers) {
document.writeln("<layer id=\"PopUpCalendar\" pagex=\"0\" pagey=\"0\" width=\"200\" height=\"200\" z-index=\"100\" visibility=\"hide\" bgcolor=\"#FFFFFF\" onMouseOver=\"if(ppcTI){clearTimeout(ppcTI);ppcTI=false;}\" onMouseOut=\"ppcTI=setTimeout('hideCalendar()',500)\">");
document.writeln("<layer id=\"monthSelector\" left=\"0\" top=\"0\" width=\"181\" height=\"27\" z-index=\"9\" visibility=\"inherit\">");}
else {
document.writeln("<p><font color=\"#FF0000\"><b>Error ! The current browser is either too old or too modern (usind DOM document structure).</b></font></p>");}
</script>
<noscript><p><font color="#FF0000"><b>JavaScript er ikke aktiveret i din browser !</b></font></p></noscript>
<table border="1" cellspacing="1" cellpadding="2" width="200" bordercolorlight="#000000" bordercolordark="#000000" vspace="0" hspace="0"><form name="ppcMonthList"><tr><td align="center" bgcolor="#CCCCCC"><a href="java script:moveMonth('Back')" onMouseOver="window.status=' ';return true;"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b>< </b></font></a><font face="MS Sans Serif, sans-serif" size="1">
<select name="sItem" onMouseOut="if(ppcIE){window.event.cancelBubble = true;}" onChange="switchMonth(this.options[this.selectedIndex].value)" style="font-family: 'MS Sans Serif', sans-serif; font-size: 9pt"><option value="0" selected>2000 • Januar</option><option value="1">2000 • Februar</option><option value="2">2000 • Marts</option><option value="3">2000 • April</option><option value="4">2000 • Maj</option><option value="5">2000 • Juni</option><option value="6">2000 • Juli</option><option value="7">2000 • August</option><option value="8">2000 • September</option><option value="9">2000 • Oktober</option><option value="10">2000 • November</option><option value="11">2000 • December</option><option value="0">2001 • Januar</option></select></font><a href="java script:moveMonth('Forward')" onMouseOver="window.status=' ';return true;"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b> ></b></font></a></td></tr></form></table>
<table border="1" cellspacing="1" cellpadding="2" bordercolorlight="#000000" bordercolordark="#000000" width="200" vspace="0" hspace="0"><tr align="center" bgcolor="#CCCCCC"><td width="20" bgcolor="#FFFFCC"><b><font face="MS Sans Serif, sans-serif" size="1">Sø</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">Ma</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">Ti</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">On</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">To</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">Fr</font></b></td><td width="20" bgcolor="#FFFFCC"><b><font face="MS Sans Serif, sans-serif" size="1">Lø</font></b></td></tr></table>
<script language="JavaScript">
if (document.all) {
document.writeln("</div>");
document.writeln("<div id=\"monthDays\" style=\"position:absolute; left:0px; top:52px; z-index:8; width:200px; height:17px; overflow: visible; visibility:inherit; background-color: #FFFFFF; border: 1px none #000000\"> </div></div>");}
else if (document.layers) {
document.writeln("</layer>");
document.writeln("<layer id=\"monthDays\" left=\"0\" top=\"52\" width=\"200\" height=\"17\" z-index=\"8\" bgcolor=\"#FFFFFF\" visibility=\"inherit\"> </layer></layer>");}
else {/*NOP*/}
</script>
</body>
</html>
<%
book.Close()
Set book = Nothing
%>
<%
land.Close()
Set land = Nothing
%>