Næhh, virker ikke umiddelbart. Hvis nogen skulle have lyst til at se på koden, så er den her:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Medlemmer.asp" -->
<LINK href="udprint.css" type="text/css" rel="stylesheet" media="print">
<LINK href="styles.css" type="text/css" rel="stylesheet" media="screen">
<%
' *** Edit Operations: declare variables
' Tjek af loginstatus - TIL ADMINSIDER
If session("userlogin")<>"True" then
response.redirect("loginfejl.asp")
end if
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")) = "form1") Then
MM_editConnection = MM_Medlemmer_STRING
MM_editTable = "Møder"
MM_editRedirectUrl = "moedeadmin.asp"
MM_fieldsStr = "Titel|value|Beskrivelse|value|Dato|value|SidsteTilmelding|value|Lokation|value|Adresse|value|Postnummer|value|Sted|value|Webside|value|Tovholder1|value|Telefon1|value|Mail1|value|Tovholder2|value|Telefon2|value|Mail2|value|Tovholder3|value|Telefon3|value|Mail3|value|Mad|value|Madbetaling|value|Overnatning|value|Eventuelt|value|Aktiv|value"
MM_columnsStr = "Titel|',none,''|Beskrivelse|',none,''|Dato|',none,NULL|SidsteTilmelding|',none,NULL|Lokation|',none,''|Adresse|',none,''|Postnummer|',none,''|Sted|',none,''|Webside|',none,''|Tovholder1|',none,''|Telefon1|',none,''|Mail1|',none,''|Tovholder2|',none,''|Telefon2|',none,''|Mail2|',none,''|Tovholder3|',none,''|Telefon3|',none,''|Mail3|',none,''|Mad|',none,''|Madbetaling|',none,''|Overnatning|',none,''|Eventuelt|',none,''|Aktiv|',none,''"
' 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 Moeder
Dim Moeder_numRows
Set Moeder = Server.CreateObject("ADODB.Recordset")
Moeder.ActiveConnection = MM_Medlemmer_STRING
if request.querystring("moedetype")="Nye" then
Moeder.Source = "SELECT * FROM Møder WHERE Dato >= date() and AKTIV='Ja' ORDER BY Dato ASC"
end if
if request.querystring("moedetype")="Gamle" then
Moeder.Source = "SELECT * FROM Møder WHERE Dato < date() and AKTIV='Ja' ORDER BY Dato ASC"
end if
if request.querystring("moedetype")="Deaktiveret" then
Moeder.Source = "SELECT * FROM Møder WHERE AKTIV='Nej' ORDER BY Dato ASC"
end if
Moeder.CursorType = 0
Moeder.CursorLocation = 2
Moeder.LockType = 1
Moeder.Open()
Moeder_numRows = 0
%>
<%
Dim Moeder2
Dim Moeder2_numRows
Set Moeder2 = Server.CreateObject("ADODB.Recordset")
Moeder2.ActiveConnection = MM_Medlemmer_STRING
Moeder2.Source = "SELECT * FROM Møder"
Moeder2.CursorType = 0
Moeder2.CursorLocation = 2
Moeder2.LockType = 1
Moeder2.Open()
Moeder2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Moeder_numRows = Moeder_numRows + Repeat1__numRows
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID
strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If
On Error Resume Next
If (nLCID > -1) Then
Session.LCID = nLCID
End If
If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If
If (nLCID > -1) Then
Session.LCID = oldLCID
End If
DoDateTime = strRet
End Function
</SCRIPT>
<html>
<head>
<title>Prøvetagningsworkshop - Arbejdsportal</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
background-color: #FFFFFF;
}
.style1 {color: #000000}
.style2 {color: #009900}
.style5 {
color: #FF0000;
font-weight: bold;
font-size: 12;
}
a:link {
text-decoration: none;
color: #FF0000;
}
a:visited {
text-decoration: none;
color: #FF0000;
}
a:hover {
text-decoration: underline;
}
a:active {
text-decoration: none;
}
.style8 {color: #009900; font-size: 14; }
.style11 {
font-size: 16;
color: #FF0000;
font-weight: bold;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body>
<table width="1024" border="0" scellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="tabelboks">
<!--DWLayoutTable-->
<tr>
<td height="55" colspan="5" bgcolor="#000000" class="almtekst"><div align="center"><font color="#FF0000" size="+5" face="Times New Roman, Times, serif">ATV</font>
<font color="#FFFFFF" size="3" face="Times New Roman, Times, serif"><strong>Jord
og Grundvand - Prøvetagningsworkshop</strong></font></div></td>
</tr>
<tr>
<td width="186" rowspan="4" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="193" height="547" align="left" valign="top" bgcolor="#FFFFFF" class="menutekst">
<p>
<p> </p>
<!--#include file="menu.asp"-->
</p>
</table></td>
<td width="12" rowspan="4" valign="top" background="Grafik/dot.gif" class="menutekst"><!--DWLayoutEmptyCell--> </td>
<td height="36" colspan="3" valign="top" background="Grafik/blackdotbag- vert.jpg" >
<p align="right" class="almtekst">Bruger-ID:<font color="#FF0000">
<% response.write session("Userid") & " " %>
</font>Brugernavn: <span class="almtekst"> <font color="#FF0000">
<% response.write session("username") %>
<br>
</font></span> <br>
</p></td>
</tr>
<tr>
<td height="25" colspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="644" height="25" valign="top" class="sortoverskrift"><p>Mødeoversigt (
<% response.write request.querystring("Overskrift")%>
)
</p></td>
<td width="179" valign="top" class="sortoverskrift"><div align="center" class="almtekst">
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" colspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="Grafik/dothorison.gif">
<!--DWLayoutTable-->
<tr>
<td width="824" height="20"> </td>
</tr>
</table></td>
</tr>
<tr>
<td class="datatekst"><div id="Semoeder" style="position:relative; width:638px; height:459px; z-index:1; left: 0px; top: 0px; overflow-y: scroll; visibility: visible; margin:0px;">
<table width="616" border="0" cellpadding="1" cellspacing="0" bgcolor="#000000" class="tabelstreg" id="moedetabel">
<%
While ((Repeat1__numRows <> 0) AND (NOT Moeder.EOF))
%>
<tr bgcolor="#CCCCCC" class="almtekst">
<td width="102" align="left" valign="top"><strong>Titel:</strong></td>
<td colspan="2"><span class="style5"><%=(Moeder.Fields.Item("Titel").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Beskrivelse:</strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("Beskrivelse").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Dato:</strong></td>
<td colspan="2"><span class="style1"><%= DoDateTime((Moeder.Fields.Item("Dato").Value), 2, 2070) %></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Sidste tilmelding: </strong></td>
<td colspan="2"><span class="style1"><%= DoDateTime((Moeder.Fields.Item("SidsteTilmelding").Value), 2, 2070) %></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Lokation:</strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("Lokation").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Adresse:</strong></td>
<td colspan="2"><span class="style1"><%= (Moeder.Fields.Item("Adresse").Value) %></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Postnr:</strong></td>
<td><span class="style1"><%=(Moeder.Fields.Item("Postnummer").Value)%></span></td>
<td>
<div align="center">
<span class="style11">
<%
if UCASE(Moeder.Fields.Item("AFLYST").Value)="JA" then
response.write "MØDE AFLYST !!"
else
response.write ""
end if
%>
</span> </div></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Sted:</strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("Sted").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Webside:</strong></td>
<td colspan="2"><a href="<% response.write (Moeder.Fields.Item("Webside").Value)%>" target="_blank" class="style1"><%=(Moeder.Fields.Item("Webside").Value)%></a></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Tovholder 1: </strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("Tovholder1").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Email 1: </strong></td>
<td colspan="2"><a href="mailto: <% response.write (Moeder.Fields.Item("Mail1").Value)%>" class="style1"><%=(Moeder.Fields.Item("Mail1").Value)%></a></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Telefon 1: </strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("Telefon1").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Tovholder 2:</strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("Tovholder2").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Email 2: </strong></td>
<td colspan="2"><a href="mailto:<% response.write (Moeder.Fields.Item("Mail1").Value)%>" class="style1"><%=(Moeder.Fields.Item("Mail2").Value)%></a></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Telefon 2: </strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("Telefon2").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Tovholder 3:</strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("Tovholder3").Value)%></span></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>E-mail 3: </strong></td>
<td colspan="2"><a href="mailto:<% response.write (Moeder.Fields.Item("Mail1").Value)%>" class="style1"><%=(Moeder.Fields.Item("Mail3").Value)%></a></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td height="20" align="left" valign="top"><strong>Telefon 3: </strong></td>
<td colspan="2"><%=(Moeder.Fields.Item("Telefon3").Value)%></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Mad:</strong></td>
<td colspan="2"><%=(Moeder.Fields.Item("Mad").Value)%></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Betaling for mad: </strong></td>
<td colspan="2"><%=(Moeder.Fields.Item("Madbetaling").Value)%></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Overnatning:</strong></td>
<td colspan="2"><%=(Moeder.Fields.Item("Overnatning").Value)%></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Eventuelt:</strong></td>
<td colspan="2"><%=(Moeder.Fields.Item("Eventuelt").Value)%></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>AKTIV:</strong></td>
<td colspan="2"><%=(Moeder.Fields.Item("Aktiv").Value)%></td>
</tr>
<tr bgcolor="#CCCCCC" class="almtekst">
<td align="left" valign="top"><strong>Moede-ID:</strong></td>
<td colspan="2"><span class="style1"><%=(Moeder.Fields.Item("MoedeID").Value)%></span></td>
</tr>
<tr bgcolor="#FFFFFF" class="almtekst">
<td align="left" valign="top"> </td>
<td width="184" align="left" valign="top"> </a> <span class="style8">Antal tilmeldte:</span> <span class="style8">
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open MM_Medlemmer_STRING
moede=FormatNumber((Moeder.Fields.Item("MoedeID").Value), -1, -2, -2, -2)
'response.write moede
sql="SELECT COUNT(*) FROM Moededeltagere WHERE int(MoedeID)='" & int(moede) &"'"
'response.write sql
SET RScount=conn.execute(sql)
Antaltilmeldte = RSCount.Fields.Item(0).Value
set RScount=nothing
Conn.close
Set conn=nothing
response.write Antaltilmeldte
%>
</span>
</td>
<td width="322"><div align="right"><span class="style2"> </span><img src="Grafik/right.gif" width="7" height="7"><a href="setilmeldte.asp?moedeid=<% response.write (Moeder.Fields.Item("MoedeID").Value)%>">Se liste over tilmeldte</a> <img src="Grafik/right.gif" width="7" height="7">
<%
streng="<a href=""tilmelding.asp?moedeid="
if (Moeder.Fields.Item("SidsteTilmelding").Value)< date() or (Moeder.Fields.Item("Dato").Value)< date() or UCASE(Moeder.Fields.Item("AFLYST").Value)="JA" then
response.write ""
else
response.write streng
response.write (Moeder.Fields.Item("MoedeID").Value)
response.write "&mad="
response.write (Moeder.Fields.Item("Mad").Value)
response.write "&overnatning="
response.write (Moeder.Fields.Item("Overnatning").Value)
response.write "&userid="
response.write session("userid") & """>"
'response.write "Tilmeld dig her"
end if %>
<%
if (Moeder.Fields.Item("Dato").Value)>= date() and (Moeder.Fields.Item("SidsteTilmelding").Value) >= date() and UCASE(Moeder.Fields.Item("AFLYST").Value)<>"JA" then
response.write "Tilmeld dig dette møde"
end if
if (Moeder.Fields.Item("SidsteTilmelding").Value)< date() or (Moeder.Fields.Item("Dato").Value)< date() or UCASE(Moeder.Fields.Item("AFLYST").Value)="JA" then
response.write "Mødetilmelding er afsluttet"
end if
%>
</div></td>
</tr>
<tr bgcolor="#FFFFFF" class="almtekst">
<td align="left" valign="top"> </td>
<td colspan="2"> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Moeder.MoveNext()
Wend
%>
</table>
</div></td>
<td width="13" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="Grafik/dot.gif">
<!--DWLayoutTable-->
<tr>
<td width="13" height="466"> </td>
</tr>
</table></td>
<td width="172" align="left" valign="top"><div align="center" >
<p align="left" class="sortoverskrift">Navigation</p>
<p align="left" ><span class="almtekst"><img src="Grafik/right.gif" width="7" height="7"></span> <span class="almtekst"><a href="moeder.asp?moedetype=Nye&Overskrift=Planlagte%20Møder">Planlagte møder</a></span> </p>
<div align="left">
<p><span class="almtekst"><img src="Grafik/right.gif" width="7" height="7"></span> <span class="almtekst"><a href="moeder.asp?moedetype=Gamle&Overskrift=Tidligere%20møder">Tidligere møder</a> </span></p>
<p><span class="almtekst"><img src="Grafik/right.gif" width="7" height="7"></span> <span class="almtekst"><a href="seminetilmeldte.asp">Møder som du er tilmeldt</a></span> </p>
</div>
</div></td>
</tr>
</table>
<div align="center"> </div>
<div align="center"></div>
<table width="1" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="1" height="31"></td>
</tr>
</table>
</body>
</html>
<%
Moeder.Close()
Set Moeder = Nothing
%>
<%
Moeder2.Close()
Set Moeder2 = Nothing
%>
