info knap i script
hej eksperteri en medlemsdatabase er der på medlemsoversigten en info knap til yderligere oplysninger om medlemmet....
Dette ønskes vist som en info popup.
Selve scriptet virker fint og bruger kan selv redigere i sine medlemsoplysninger. Men denne info knap kan jeg ikke hitte ud af, samt hvordan man udskriver og henter disse yderligere oplysninger....
scriptet vises her::
<%@ LANGUAGE="VBScript" %>
<!-- #include file="protect.inc" -->
<!-- #include file="db.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Forsiden</title>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=windows-1252">
<META NAME="keywords" CONTENT="phbirkerød, politihundetræning, hundetræning, hunde, sportræning, kåringsprogram, kåring, område 6, ph, schæfer, rotweiler, schæferhundetræning, konkurrenceprogram, dm, vm, dm i politihundearbejde">
<META NAME="description" CONTENT="Vi ønsker at skabe interesse for opdræt og træning af politihunde og deres praktiske
anvendelse inden for politiets arbejde og blandt civile medlemmer, samt det
at lade foretage kåringer af civile hunde og føre en politihundestambog.
Denne kåring er i relation til avl, at betragte som en brugshundeprøve.
at lade afholde konkurrencer, der bygger på praktisk politihundearbejde.
at søge samarbejde om konkurrencer og politihundearbejde
med lignende foreninger i ind- og udland.">
<META NAME="author" CONTENT="Kim Moos">
<META NAME="ROBOTS" CONTENT="ALL">
<LINK REV="made" href="mailto:info@phbirkerød.dk">
<link rel="stylesheet" type="text/css" href="style/style.css">
<script type="text/javascript" language="JavaScript" src="javascript/functions.js"></script>
<script type="text/javascript" language="JavaScript">
<!--
function checkKey() {
var key = window.event.keyCode;
if (key == 13) {
document.login.submit();
}
}
function infobox(URL,w,h) {
day = new Date();
id = day.getTime();
pos_horizon = ((screen.width/2)-(w/2));
pos_vertical = ((screen.height/2)-(h/2));
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=1,width="+w+",height="+h+",left = "+pos_horizon+",top = "+pos_vertical+"');");
}
//-->
</SCRIPT>
<script>
</script>
<noscript>
<meta http-equiv="refresh" content="1; URL=http://www.phbirkerød.dk/noscript.html">
</noscript>
</head>
<body>
<center>
<!--#include file="ssi_header.html"-->
<!-- start txt -->
<table style="width:100%">
<tr>
<td style="border-bottom:3px dotted #5d6871; border-left-width: 1px; border-right-width: 1px;"><b>>Medlemsoplysninger</b></td>
<td style="text-align:right;border-bottom:3px dotted #5d6871; border-left-width: 1px; border-right-width: 1px; ">
<a href="default.asp"><img src="images/main.gif" border="0" alt="Forsiden" width="18" height="17"></a>
<a href="java script:history.go(-1);"><img src="images/back.gif" border="0" alt="Tilbage" width="18" height="17"></a>
</td>
</tr>
</table>
<p align="left">
<!--#include file="ssi_kn.asp"-->
<br/><br/>Hej <%= session("username") %>. Denne medlemsliste er under opdatering frem til ca.d. 01-01-2012 (Der bliver programmeret). Du kan - og bedes venligst - opdaterer dine oplysninger på denne side <a href="default11.asp"> <b><u>Rediger medlemsoplysninger</u></b>.</a>
<br/>Listen viser kun medlemmer, der har ønsket at oprette sig.<br/><br/>
<form action="admin.asp" method="POST" name="action">
<input name="beskedid" type="hidden" value="">
<input name="status" type="hidden" value="">
<input name="action" type="hidden" value="">
<input name="deleteid" type="hidden" value="">
<input name="aktiv" type="hidden" value="">
<br><table class="tablesub" border="1" cellpadding="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#5d6871" width="100%" id="AutoNumber2">
<td width="2%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Nr</b></td>
<td width="25%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Email</b></td>
<td width="24%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Navn</b></td>
<td width="18%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Adresse</b></td>
<td width="10%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>By</b></td>
<td width="3%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Postnr</b></td>
<td width="4%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Mobil</b></td>
<td width="4%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Hunds navn</b></td>
<td width="4%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Race</b></td>
<td width="4%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Kl/hold</b></td>
<td width="2%" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom: 1px solid #C0C0C0"><b>Info</b></td>
</tr>
<%
session.lcid = 2057
call OpenConn()
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from users ORDER BY id ASC;"
rs.Open sql, dbc
do while not rs.eof
response.write("<tr>")
%>
<tr>
<td width="2%" style="padding-top: 1"><%= rs("medlemsnr") %> </td>
<td width="25%" style="padding-top: 1"><% response.write "<a href=mailto:" & RS("brugernavn") & ">" & RS("brugernavn") & "</A>" %> </td>
<td width="24%" style="padding-top: 1"><%= rs("navn") %> </td>
<td width="18%" style="padding-bottom: 1"><%= rs("adresse") %> </td>
<td width="10%" style="padding-top: 1"><%= rs("byen") %> </td>
<td width="3%" style="padding-top: 1"><%= rs("postnr") %> </td>
<td width="4%" style="padding-top: 1"><%= rs("mobil") %> </td>
<td width="4%" style="padding-top: 1"><%= rs("hundsnavn") %> </td>
<td width="4%" style="padding-top: 1"><%= rs("race") %> </td>
<td width="4%" style="padding-top: 1"><%= rs("klasse") %> </td>
`her under vises knappen til ønsket popup side med yderligere `oplysninger::::
<td width="2%" style="padding-top: 1"> "<a href="<% If not isnull(rs("Id")) Then response.write "vis3.asp?key=" & Server.URLEncode(rs("Id")) Else response.write "java script:alert('Invalid Record! Key is null.');" %>">"<img src='images/info.gif'> </td>
</tr>
<%
rs.movenext
loop
call closeConn()
%>
</table>
<p>
<br>
</form>
</p>
<div style="width:100%; float:left; text-align:left; padding-top:10px;">
<!-- end txt -->
<!--#include file="ssi_footer.html"-->
</div>
</body>
</html>
