HMM
Hejsa eksperterEr der en der kan få denne side : <%
Response.Buffer = True
If Session(\"password-session\") = \"\" Then Response.Redirect \"default.asp\"
If Request(\"Mode\") = \"logaf\" Then
Session.Abandon
Response.Redirect \"default.asp\"
End if
Select Case Request(\"sendMode\")
Case \"sendt\": medd = \"SMS er sendt\"
Case \"add\": medd = \"Nyt nummer er oprettet\"
Case \"del\": medd = \"Nummer er slettet\"
Case \"fejl\": medd = \"Du har ikke skrevet et gyldig mobil nummer\"
Case \"id\": medd = \"Status for beskeden\"
End Select
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \"\"
strSQL = \"SELECT COUNT(*) AS found FROM users;\"
Set Rs = Conn.Execute(strSQL)
IAlt = Rs(\"found\")
strSQL = \"SELECT * FROM users WHERE id=\" & Session(\"UserId\") & \";\"
Set Rs = Conn.Execute(strSQL)
strRigtigNavn = Rs(\"RigtigNavn\")
\' retrieve all phone book entries for the current user and save them in a string delimited by
\' %. If a phone book entry has a % in it, it will count as two seperate names, so be sure to
\' check a name before it is submitted!
strSQL = \"SELECT * FROM book WHERE userid=\" & Session(\"UserID\") & \" ORDER BY navn;\"
Set Rs = Conn.Execute(strSQL)
If Not Rs.BOF Then
Do Until Rs.EOF
strNavne = strNavne & Rs(\"navn\") & \"%\"
Rs.MoveNext
Loop
strNavne = Left(strNavne, Len(strNavne) - 1)
End If
%>
<html>
<head>
<title>w w w . z e q u e n z e .d k</title>
<style TYPE=\"text/css\">
<!--
A:link { text-decoration: None; color: #000000;}
A:visited { text-decoration: None; color: #000000;}
A:active { text-decoration: None; color: #000000;}
A:hover { text-decoration: None; color: #DBC43B;}
-->
</style>
</head>
<script language=\"JavaScript\">
<!--
// phone book names for use in the searchBook() function.
var names = \"<%=strNavne%>\";
var namestring = names.split(\"%\");
function searchBook(srcstring) {
// searchBook() function by and (C) tdaugaard <e@tdaugaard.dk> 2. April, 2001
// ---------------------------------------------------------------------------
// input : search string
// output : <nothing>
// function : searches the phone book list to see if a matching name
// or partial name was found. If so it selects the matched
// name in the phone book list.
if (srcstring.length>0) {
for (var index=0;index<namestring.length;index++) {
strname=namestring[index].toLowerCase();
strname=strname.substring(0,srcstring.length);
if (strname==srcstring.toLowerCase()) { sms.id.selectedIndex=index; break; }
}
} else {
sms.id.selectedIndex=-1;
}
}
function checkBook_AddEntry(entry) {
// checkBook_AddEntry() function by and (C) tdaugaard <e@tdaugaard.dk> 2. April, 2001
// -----------------------------------------------------------------------------------
// input : entry string/name
// output : true or false
// function : checks to see if a percent sign is in the input string. If it is
// the function returns false if it\'s not it returns true.
if (entry.indexOf(\"%\")>-1) { alert(\"Navnet må ikke indeholde procent tegnet!\"); return (false); } else { return (true); }
}
function check_emne() {
document.sms.tilbage.value = 150 - document.sms.besked.value.length;
if (document.sms.tilbage.value < 0) {
alert(\"Beskeden kan ikke være på mere end 150 tegn!\");
}
}
//-->
</script>
<body bgcolor=\"#808080\">
<div align=\"center\">
<center>
<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"670\" bordercolor=\"#000000\">
<tr>
<td>
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td width=\"160\" valign=\"top\" align=\"left\"><img border=\"0\" src=\"../images/logodel1.gif\" width=\"160\" height=\"71\"></td>
<td width=\"510\" valign=\"top\" align=\"left\" background=\"../images/top.gif\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td valign=\"middle\" align=\"left\"><img border=\"0\" src=\"../images/logodel1b.gif\" width=\"35\" height=\"71\"></td>
<td valign=\"middle\" align=\"left\"><!--#include Virtual=\"banner/banner.asp\" --></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width=\"160\" valign=\"top\" align=\"left\" background=\"../images/menubg.gif\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr><td><img border=\"0\" src=\"../images/logodel2.gif\" width=\"160\" height=\"43\"></td></tr>
<tr><td><img border=\"0\" src=\"../images/services.gif\" width=\"106\" height=\"26\"><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></td></tr>
<tr>
<td style=\"padding-left: 15\" leftmargin=\"15\"><font face=\"Arial\" size=\"2\">
<a href=\"../sms/default.asp\">Almindelig SMS</a><br>
<a href=\"../chat/default.asp\">Chatten</a><br>
<a href=\"../logo/default.asp\">SMS Logo</a><br>
<a href=\"../ringetoner/default.asp\">SMS Ringetoner</a></font></td>
</tr>
<tr><td><font face=\"Arial\" size=\"2\"><a href=\"../brugere/default.asp\"><img border=\"0\" src=\"../images/login.gif\" width=\"118\" height=\"26\"></a></font><img border=\"0\" src=\"../images/on_dims.gif\"></td></tr>
<tr><td><font face=\"Arial\" size=\"2\"><a href=\"../admin/default.asp\"><img border=\"0\" src=\"../images/admin.gif\" width=\"121\" height=\"26\"></a><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></font></td></tr>
<tr><td><font face=\"Arial\" size=\"2\"><a href=\"../udvikling/default.asp\"><img border=\"0\" src=\"../images/udvikling.gif\" width=\"121\" height=\"26\"></a><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></font></td></tr>
<tr><td><font face=\"Arial\" size=\"2\"><a href=\"../bag/default.asp\"><img border=\"0\" src=\"../images/bagomsiden.gif\" width=\"121\" height=\"26\"></a><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></font></td></tr>
<tr>
<td style=\"padding-left: 15\"><font face=\"Arial\" size=\"2\">
<a href=\"../hvorfor/default.asp\">Hvorfor?</a><br>
<a href=\"../anbefal/default.asp\">Anbefal siden</a><br>
<a href=\"../kontakt/default.asp\">Kontakt</a></font></td>
</tr>
<tr><td><a href=\"../tak/default.asp\"><img border=\"0\" src=\"../images/taktil.gif\" width=\"121\" height=\"26\"></a><img border=\"0\" src=\"../images/off_knap.gif\" width=\"25\" height=\"26\"></td></tr>
<tr><td height=\"20\"> </td></tr>
<tr><td><img border=\"0\" src=\"../images/statustop.gif\" width=\"160\" height=\"26\"></td></tr>
<tr>
<td height=\"83\" background=\"../images/statusbg.gif\" style=\"padding-left: 10; padding-right: 10\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"140\" height=\"74\">
<tr>
<td height=\"24\" width=\"120\"><font face=\"Arial\" size=\"2\">Antal online:</font></td>
<td height=\"24\" width=\"76\" align=\"center\"><font face=\"Arial\" size=\"2\"><b>[ <%=Application(\"BrugereOnline\") %> ]</b></font></td>
</tr>
<tr>
<td height=\"25\" width=\"80\"><font face=\"Arial\" size=\"2\">Antal Profiler:</font></td>
<td height=\"25\" width=\"76\" align=\"center\"><font face=\"Arial\" size=\"2\"><b> [ <%
Set Rs = Server.CreateObject(\"ADODB.Connection\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \"\"
Sql = \"Select count(*) as Found from users\"
Set Record = Rs.Execute(Sql)
Ialt = Record(\"found\")
Response.Write Ialt
%> ]</b></font></td>
</tr>
<tr>
<td height=\"25\" width=\"90\"><font face=\"Arial\" size=\"2\">Logget på:</font></td>
<td height=\"25\" width=\"76\" align=\"center\"><font face=\"Arial\" size=\"2\"><b>[ <%=session(\"password-session\")%> ]</b></font></td>
</tr>
</table>
</div>
</td>
</tr>
<tr><td><img border=\"0\" src=\"../images/statusbund.gif\" width=\"160\" height=\"9\"></td></tr>
<tr><td> </td></tr>
</table>
</div>
</center>
</td>
<td width=\"510\" valign=\"top\" align=\"left\" background=\"../images/mainbg.gif\">
<p align=\"center\"> </p>
<div align=\"center\">
<table border=\"1\" width=\"90%\" style=\"border-style: solid\" bordercolor=\"#000000\">
<tr>
<td width=\"25%\"><p align=\"center\"><a href=\"mobilbog.asp\"><font color=\"#000000\" size=\"2\" face=\"Arial\">Din Mobilbog</font></a></td>
<td width=\"25%\"><p align=\"center\"><a href=\"bruger.asp?mode=logaf\"><font face=\"Arial\" color=\"#000000\" size=\"2\">Log af</font></a></td>
</tr>
</table>
</div>
<div align=\"center\">
<table border=\"0\" width=\"90%\" bordercolor=\"#000000\">
<tr>
<td width=\"80%\" align=\"left\" valign=\"top\">
<font face=\"Arial\" size=\"2\">
Fra <%=strRigtigNavn%>
</font>
<p>
<font face=\"Arial\" size=\"2\">
Besked:</p>
<form method=\"POST\" action=\"send.asp\" name=\"sms\">
</font>
</td>
<td width=\"20%\" height=\"40\" rowspan=\"4\">
</td>
<td width=\"20%\" height=\"10\" valign=\"top\">
<p align=\"center\">
<p align=\"center\">
<font face=\"Arial\" size=\"2\">Dine Numre</font>
</td>
</tr>
<tr>
<td width=\"80%\" align=\"left\" valign=\"middle\" rowspan=\"2\" colspan=\"2\">
<font face=\"Arial\" size=\"2\">
<p>
<textarea name=\"besked\" maxlength=\"150\" cols=\"30\" wrap=\"virtual\" onkeyup=\"check_emne()\" onchange=\"check_emne()\" rows=\"5\"></textarea><br>
Tegn tilbage :<br><input name=\"tilbage\" size=\"3\" value=\"150\">
<p>
<input type=\"submit\" value=\"Send besked\">
</p>
</font>
<form action=\'add.asp\' method=\'post\' name=\"frmAddEntry\" onsubmit=\"return checkBook_AddEntry(frmAddEntry.navn.value);\">
Tilføj Navn Tilføj Nummer<br>
<input type=\'text\' name=\'navn\' size=\'10\'>
<%
Response.Write(\"<input type=\'text\' name=\'nr\' size=\'10\'>\" & \" \" &\"<input type=\'submit\' value=\'Opret nummer\' id=\'submit\'1 name=\'submit\'1>\")
\'Response.Write(\"<input type=\'submit\' value=\'Opret nummer\' id=\'submit\'1 name=\'submit\'1>\") & vbCrLf
Response.Write(\"</form>\") & vbCrLf
%>
<font face=\"Arial\" size=\"2\">
<%=medd %>
</font>
</td>
<td align=\"center\" width=\"25%\" height=\"10\" valign=\"top\">
<font face=\"Arial\" size=\"2\"><select size=\"5\" name=\"id\" style=\"width: 100px;\">
<%
SQL = \"SELECT * FROM Book WHERE UserID=\" & session(\"UserID\") & \" ORDER BY Navn\"
set book = conn.Execute(SQL)
Response.Write(\"Send SMS besked:\") & vbCrLf
Response.Write(\"<p>\") & vbCrLf
Do while not book.EOF
Response.Write(\" <option value=\"\"\" & book(\"ID\") & \"\"\">\" & book(\"Navn\") & \"</option>\")
book.MoveNext
Loop
book.Close
set book = nothing
%>
</select><br>
Søg: <input type=\"text\" name=\"src_book\" style=\"width: 70px;\" onkeyup=\"searchBook(this.value);\">
<br>
<br>
<input type=\'submit\' value=\'Slet nummer\' name=\'mode\'></form>
</font>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
<tr>
<td width=\"670\" valign=\"middle\" align=\"center\" background=\"../images/bund.gif\" border=\"0\" height=\"21\" colspan=\"2\">
<font color=\"#808080\"><font face=\"Arial\" size=\"1\">Copyright
© Zequenze 2001</font>
</font>
</td>
</tr>
</table>
</div>
</body>
</html>
Til at passe med designet på www.zequenze.dk (det drejer sig om bundlinjen)
