Loop problem!
Hej jeg har et problem med min aps kode.Jeg skal have den til at hente nogle informationer fra en mdb. og det gør den såment også fint nok, problemet er at der er 2 forskellige steder den skal lave loop på i koden, den ene af den klarer den fint nok men den anden af dem skriver den det samme i dem alle.
Plz. help me
asp kode
------------------
<%@ Language=VBScript %>
<%
Option Explicit
Dim ConnDB, RS, navn, nick, hjemmeside, alder, email, tlf, mobil, status, citat, drik, bommert, msn, members, StartOfPage, InputForm, EndOfPage
Set ConnDB = Server.CreateObject("ADODB.Connection")
ConnDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/database.mdb")
'Fjerner evt mellemrum i start og slut af input
navn = Trim(Request.Form("navn"))
nick = Trim(Request.Form("nick"))
hjemmeside = Trim(Request.Form("hjemmeside"))
alder = Trim(Request.Form("alder"))
email = Trim(Request.Form("email"))
tlf = Trim(Request.Form("tlf"))
mobil = Trim(Request.Form("mobil"))
status = Trim(Request.Form("status"))
citat = Trim(Request.Form("citat"))
drik = Trim(Request.Form("drik"))
bommert = Trim(Request.Form("bommert"))
msn = Trim(Request.Form("msn"))
'-----------------------------------------------------------
IF (len(navn) <> 0) or len(nick) <> 0 or len(hjemmeside) <> 0 or len(alder) <> 0 or len(email) <> 0 or len(tlf) <> 0 or len(mobil) <> 0 or len(status) <> 0 or len(citat) <> 0 or len(drik) <> 0 or len(bommert) <> 0 or len(msn) <> 0 Then
'Der er indsendt data
IF (len(navn) <> 0) AND len(nick) <> 0 AND len(hjemmeside) <> 0 AND len(alder) <> 0 AND len(email) <> 0 AND len(tlf) <> 0 AND len(mobil) <> 0 AND len(status) <> 0 AND len(citat) <> 0 AND len(drik) <> 0 AND len(bommert) <> 0 AND len(msn) <> 0 Then
IF ConnDB.Execute ("SELECT * FROM members WHERE navn='" & navn & "' AND nick='" & nick & "' AND hjemmeside='" & hjemmeside & "' AND alder='" & alder & "' AND email='" & email & "' AND tlf='" & tlf & "' AND mobil='" & mobil & "' AND status='" & status & "' AND citat='" & citat & "' AND drik='" & drik & "' AND bommert='" & bommert & "' AND msn='" & msn & "'").EOF Then
ConnDB.execute "INSERT INTO members (navn,nick,hjemmeside,alder,email,tlf,mobil,status,citat,drik,bommert,msn) VALUES ('" & navn & "','" & nick & "','" & hjemmeside & "','" & alder & "','" & email & "','" & tlf & "','" & mobil & "','" & status & "','" & citat & "','" & drik & "','" & bommert & "','" & msn & "')"
Response.Redirect "index.asp"
ELSE
%> <P>
<b><font face="Arial" size="2">
<%
End if
ELSE
'Alle felter er ikke udfyldt
%></font></b><P>
<b><font face="Arial" size="2"></font>
<%
End if
End if
'-----------------------------------------------------------
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Jesper Christophersen Link 2</title>
<script language="javascript" type="text/javascript">
<!--
/*
Image w/ description tooltip- By Dynamic Web Coding (www.dyn-web.com)
Copyright 2002 by Sharon Paine
Visit http://www.dynamicdrive.com for this script
*/
/* IMPORTANT: Put script after tooltip div or
put tooltip div just before </BODY>. */
var dom = (document.getElementById) ? true : false;
var ns5 = ((navigator.userAgent.indexOf("Gecko")>-1) && dom) ? true: false;
var ie5 = ((navigator.userAgent.indexOf("MSIE")>-1) && dom) ? true : false;
var ns4 = (document.layers && !dom) ? true : false;
var ie4 = (document.all && !dom) ? true : false;
var nodyn = (!ns5 && !ns4 && !ie4 && !ie5) ? true : false;
// resize fix for ns4
var origWidth, origHeight;
if (ns4) {
origWidth = window.innerWidth; origHeight = window.innerHeight;
window.onresize = function() { if (window.innerWidth != origWidth || window.innerHeight != origHeight) history.go(0); }
}
// avoid error of passing event object in older browsers
if (nodyn) { event = "nope" }
/////////////////////// CUSTOMIZE HERE ////////////////////
// settings for tooltip
// Do you want tip to move when mouse moves over link?
var tipFollowMouse= false;
// Be sure to set tipWidth wide enough for widest image
var tipWidth= 375;
var offX= 12; // how far from mouse to show tip
var offY= 12;
var tipFontFamily= "Verdana, arial, helvetica, sans-serif";
var tipFontSize= "8pt";
// set default text color and background color for tooltip here
// individual tooltips can have their own (set in messages arrays)
// but don't have to
var tipFontColor= "#000000";
var tipBgColor= "#FFFFFF";
var tipBorderColor= "#000000";
var tipBorderWidth= 1;
var tipBorderStyle= "dotted";
var tipPadding= 1;
// tooltip content goes here (image, description, optional bgColor, optional textcolor)
var messages = new Array();
// multi-dimensional arrays containing:
// image and text for tooltip
// optional: bgColor and color to be sent to tooltip
<%
Set RS = ConnDB.Execute("SELECT * FROM members ORDER BY id DESC")
Do While Not Rs.eof
%>
messages[0] = new Array('<%=rs("image")%>.jpg','<b>Navn:</b> <%=rs("navn")%><br><b>Alder:</b> <%=rs("alder")%><br><b>StrandParty Status:</b> <%=rs("strandparty")%><br><b>E-mail</b> <%=rs("email")%><br><b>MSN:</b> <%=rs("msn")%><br><b>Tlf/Mobil nr.</b> <%=rs("tlf")%> / <%=rs("mobil")%><br><b>Partner Status:</b> <%=rs("status")%>',"#ffffff");
<%
RS.movenext
Loop
%>
//////////////////// END OF CUSTOMIZATION AREA ///////////////////
// preload images that are to appear in tooltip
// from arrays above
if (document.images) {
var theImgs = new Array();
for (var i=0; i<messages.length; i++) {
theImgs[i] = new Image();
theImgs[i].src = messages[i][0];
}
}
// to layout image and text, 2-row table, image centered in top cell
// these go in var tip in doTooltip function
// startStr goes before image, midStr goes between image and text
var startStr = '<table width="' + tipWidth + '"><tr border="1"><td valign="top" width="100%">';
var midStr = '</td><td valign="top"><img src="image/';
var endStr = '" border="1"></td></tr></table>';
////////////////////////////////////////////////////////////
// initTip - initialization for tooltip.
// Global variables for tooltip.
// Set styles for all but ns4.
// Set up mousemove capture if tipFollowMouse set true.
////////////////////////////////////////////////////////////
var tooltip, tipcss;
function initTip() {
if (nodyn) return;
tooltip = (ns4)? document.tipDiv.document: (ie4)? document.all['tipDiv']: (ie5||ns5)? document.getElementById('tipDiv'): null;
tipcss = (ns4)? document.tipDiv: tooltip.style;
if (ie4||ie5||ns5) { // ns4 would lose all this on rewrites
tipcss.width = tipWidth+"px";
tipcss.fontFamily = tipFontFamily;
tipcss.fontSize = tipFontSize;
tipcss.color = tipFontColor;
tipcss.backgroundColor = tipBgColor;
tipcss.borderColor = tipBorderColor;
tipcss.borderWidth = tipBorderWidth+"px";
tipcss.padding = tipPadding+"px";
tipcss.borderStyle = tipBorderStyle;
}
if (tooltip&&tipFollowMouse) {
if (ns4) document.captureEvents(Event.MOUSEMOVE);
document.onmousemove = trackMouse;
}
}
window.onload = initTip;
/////////////////////////////////////////////////
// doTooltip function
// Assembles content for tooltip and writes
// it to tipDiv
/////////////////////////////////////////////////
var t1,t2; // for setTimeouts
var tipOn = false; // check if over tooltip link
function doTooltip(evt,num) {
if (!tooltip) return;
if (t1) clearTimeout(t1); if (t2) clearTimeout(t2);
tipOn = true;
// set colors if included in messages array
if (messages[num][2]) var curBgColor = messages[num][2];
else curBgColor = tipBgColor;
if (messages[num][3]) var curFontColor = messages[num][3];
else curFontColor = tipFontColor;
if (ns4) {
var tip = '<table bgcolor="' + tipBorderColor + '" width="' + tipWidth + '" cellspacing="0" cellpadding="' + tipBorderWidth + '" border="0"><tr><td><table bgcolor="' + curBgColor + '" width="100%" cellspacing="0" cellpadding="' + tipPadding + '" border="0"><tr><td>'+ startStr + '<span style="font-family:' + tipFontFamily + '; font-size:' + tipFontSize + '; color:' + curFontColor + ';">' + messages[num][1] + '</span>' + midStr + messages[num][0] + endStr + '</td></tr></table></td></tr></table>';
tooltip.write(tip);
tooltip.close();
} else if (ie4||ie5||ns5) {
var tip = startStr + '<span style="font-family:' + tipFontFamily + '; font-size:' + tipFontSize + '; color:' + curFontColor + ';">' + messages[num][1] + '</span>' + midStr + messages[num][0] + endStr;
tipcss.backgroundColor = curBgColor;
tooltip.innerHTML = tip;
}
if (!tipFollowMouse) positionTip(evt);
else t1=setTimeout("tipcss.visibility='visible'",100);
}
var mouseX, mouseY;
function trackMouse(evt) {
mouseX = (ns4||ns5)? evt.pageX: window.event.clientX + document.body.scrollLeft;
mouseY = (ns4||ns5)? evt.pageY: window.event.clientY + document.body.scrollTop;
if (tipOn) positionTip(evt);
}
/////////////////////////////////////////////////////////////
// positionTip function
// If tipFollowMouse set false, so trackMouse function
// not being used, get position of mouseover event.
// Calculations use mouseover event position,
// offset amounts and tooltip width to position
// tooltip within window.
/////////////////////////////////////////////////////////////
function positionTip(evt) {
if (!tipFollowMouse) {
mouseX = (ns4||ns5)? evt.pageX: window.event.clientX + document.body.scrollLeft;
mouseY = (ns4||ns5)? evt.pageY: window.event.clientY + document.body.scrollTop;
}
// tooltip width and height
var tpWd = (ns4)? tooltip.width: (ie4||ie5)? tooltip.clientWidth: tooltip.offsetWidth;
var tpHt = (ns4)? tooltip.height: (ie4||ie5)? tooltip.clientHeight: tooltip.offsetHeight;
// document area in view (subtract scrollbar width for ns)
var winWd = (ns4||ns5)? window.innerWidth-20+window.pageXOffset: document.body.clientWidth+document.body.scrollLeft;
var winHt = (ns4||ns5)? window.innerHeight-20+window.pageYOffset: document.body.clientHeight+document.body.scrollTop;
// check mouse position against tip and window dimensions
// and position the tooltip
if ((mouseX+offX+tpWd)>winWd)
tipcss.left = (ns4)? mouseX-(tpWd+offX): mouseX-(tpWd+offX)+"px";
else tipcss.left = (ns4)? mouseX+offX: mouseX+offX+"px";
if ((mouseY+offY+tpHt)>winHt)
tipcss.top = (ns4)? winHt-(tpHt+offY): winHt-(tpHt+offY)+"px";
else tipcss.top = (ns4)? mouseY+offY: mouseY+offY+"px";
if (!tipFollowMouse) t1=setTimeout("tipcss.visibility='visible'",100);
}
function hideTip() {
if (!tooltip) return;
t2=setTimeout("tipcss.visibility='hidden'",100);
tipOn = false;
}
//-->
</script>
</head>
<body>
<%
Set RS = ConnDB.Execute("SELECT * FROM members ORDER BY id DESC")
Do While Not Rs.eof
%>
<a href="#" onclick="doTooltip(event,0)" onmouseout="hideTip()"><%=rs("navn")%></a><br>
<%
RS.movenext
Loop
%>
<div id="tipDiv" style="position:absolute; visibility:hidden; z-index:100"></div>
</body>
</html>
