Her er hele siden!
<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>XXXXXX</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../css/AdminGlobePC.css">
<script>
var altern;
function alter()
{
var altern;
altern = document.form1.alternativ.value;
alert(altern);
}
</script>
<script language="JavaScript">
function sendsms(strID)
{
if (confirm("Er du klar til at sende nyheds-sms til alle?"))
window.open("sendsms.asp?id="+strID+"", "SmsStatus", "toolbar=no, location=no, directories=no, status=no, scrollbars=yes, resizable=yes, width=400, height=400");
else
alert("Intet er sendt...");
}
function sendtestmail(strID)
{
if (confirm("Er du klar til at sende nyheds-mail til test personen?"))
{ window.open("sendmail.asp?id="+strID+"&hvem=test&alternativ="+altern+"", "MailStatus", "toolbar=no, location=no, directories=no, status=no, scrollbars=yes, resizable=yes, width=400, height=400");}
else
{alert("Ingen testmail er sendt...");}
}
function sendmail(strID)
{
if (confirm("Er du klar til at sende nyheds-mail til alle?"))
window.open("sendmail.asp?id="+strID+"", "MailStatus", "toolbar=no, location=no, directories=no, status=no, scrollbars=yes, resizable=yes, width=400, height=400");
else
alert("Intet er sendt...");
}
function visnyhed(strID)
{
open("../nyheder/vis.asp?id="+strID+"", "VisNyhed", "toolbar=no, location=no, directories=no, status=no, scrollbars=yes, resizable=yes, width=540, height=520");
}
</script>
</head>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout = 15
Conn.CommandTimeout = 30
Conn.Open Session("XXXXXX")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT nyhedsbrev.* FROM nyhedsbrev ORDER BY nyhedsbrev.datoen DESC"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Conn
RS.Open cmdTemp, , 3, 1
%>
<body bgcolor="#A2A2A2" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%">
<tr>
<td align="left" valign="top" class="brodtxtWhite">
<b>Mailoversigt</b> - Content Management System ©2001 XXXXXX
</td>
<td align="right" valign="top" class="brodtxtWhite">
<b>[ <a href="lynmail.asp" target="indhold" class="brodtxtWhite">LynMail</a> ]</b>
<b>[ <a href="lynsms.asp" target="indhold" class="brodtxtWhite">LynSms</a> ]</b>
<b>[ <a href="../menu.asp" target="indhold" class="brodtxtWhite">Menu</a> ]</b>
<b>[ <a href="../login.asp" target="indhold" class="brodtxtWhite">LogOff</a> ]</b>
</td>
</tr>
</table>
<hr align="left" width="100%" size="1" noshade>
<form name="form1" method="post">
<table border="0" cellspacing="2" cellpadding="3">
<tr>
<td bgcolor="#333333" align="left" valign="middle" class="brodtxtWhite"><b>Dato</b></td>
<td bgcolor="#333333" align="left" valign="middle" class="brodtxtWhite"><b>Redaktør</b></td>
<td bgcolor="#333333" align="left" valign="middle" class="brodtxtWhite"><b>Titel</b></td>
<td align="left" valign="middle" class="brodtxtWhite"></td>
<td align="left" valign="middle" class="brodtxtWhite"></td>
<td align="left" valign="middle" class="brodtxtWhite"></td>
<td bgcolor="#333333" align="left" valign="middle" class="brodtxtWhite" colspan=3>Testcenter</td>
</tr>
<%DO While Not RS.EOF%>
<tr>
<td bgcolor="#FFFFFF" align="left" valign="middle" class="brodtxtGrey"><%=RS("datoen")%></td>
<td bgcolor="#FFFFFF" align="left" valign="middle" class="brodtxtGrey"><%=RS("redaktor")%></td>
<td bgcolor="#FFFFFF" align="left" valign="middle" class="brodtxtGrey"><%=RS("titel")%></td>
<td align="left" valign="middle" class="brodtxtWhite"><a href="../nyheder/vis.asp?id=<%=RS("nyhedsID")%>" target="_blank" class="brodtxtWhite"><img src="../imgShare/ikon_vis_mail.gif" border="0" alt="Test nyheden som mail"></a></td>
<td align="left" valign="middle" class="brodtxtWhite"><a href="java script:sendmail('<%=RS("nyhedsID")%>');" class="brodtxtWhite"><img src="../imgShare/ikon_send_mail.gif" border="0" alt="Send pr. mail"></a></td>
<td align="left" valign="middle" class="brodtxtWhite"><a href="java script:sendsms('<%=RS("nyhedsID")%>');" class="brodtxtWhite"><img src="../imgShare/ikon_send_sms.gif" border="0" alt="Send pr. sms"></a></td>
<td colspan=3 align="center">
<input type="text" value="test e-mail" name="alternativ" size="8" onChange="alter();"> <input type="button" value="send" onClick="java script:sendtestmail('<%=RS("nyhedsID")%>');">
</td>
</tr>
<%RS.MoveNext%>
<%Loop%>
</table>
</body>
</html>
<%
RS.Close
set RS = nothing
Conn.Close
set Conn=nothing
%>
Ny bruger
Nybegynder
Opret
Preview
