Puhaaaaa.... så har jeg fået den
http://sabzi.dk/visdata.asp til vise de rigtige data.Jeg behøvet lettet ikke have lavet de konvertings funktioner for de er allerede defineret i <!--#INCLUDE FILE="inc_functions.asp" -->. Jeg har så bare slettet funktionen og tilføjet denne linje <!--#INCLUDE FILE="inc_functions.asp" -->
Ssså nu kan vi vende tilbage til Users online bosen.. nedenfor er der givet hele koden for den.Jeg har også her prøvet slettet de konveterings funktioner og tilføj <!--#INCLUDE FILE="inc_functions.asp" --> ...Men det kommer så en fejl på siden...Måske tilføjer jeg ikke <!--#INCLUDE FILE="inc_functions.asp" --> det rigtig sted i koden..
hvor i koden skal jeg skrive <!--#INCLUDE FILE="inc_functions.asp" -->.
.........................................
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="
http://www.w3.org/1999/xhtml">
<script type="text/javascript">
/******************************************
* Scrollable content script II- © Dynamic Drive (
www.dynamicdrive.com)
* Visit
http://www.dynamicdrive.com/ for full source code
* This notice must stay intact for use
******************************************/
iens6=document.all||document.getElementById
ns4=document.layers
//specify speed of scroll (greater=faster)
var speed=4
if (iens6){
document.write('<div id="container" style="position:relative;width:175px;height:220px;border:1px solid black;overflow:hidden">')
document.write('<div id="content" style="position:absolute;width:170px;left:0;top:0">')
}
</script>
<ilayer name="nscontainer" width=175 height=160 clip="0,0,175,160">
<layer name="nscontent" width=175 height=160 visibility=hidden>
<!--INSERT CONTENT HERE-->
<%
'open ADO connection
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/mwpxnext.mdb")
sqlstr = "select MEMBER_ID,M_NAME, M_SEX, M_LASTHEREDATE,M_COUNTRY from PORTAL_MEMBERS order by M_LASTHEREDATE desc"
Set rs = dbConn.Execute(sqlstr)
Response.Write("<table border=0 WIDTH=175 >")
Do
strMemberDays = DateDiff("d", strToDate(rs("M_LASTHEREDATE")), Date)
If rs("M_SEX")="Male" Then
'strMemberDays = 0 And
Response.Write("<tr BGCOLOR=#FFFF66>")
Response.Write("<td>")
Response.Write("<IMG SRC='fyr.bmp'WIDTH=25 HEIGHT=25 >")
Response.Write("</td>")
Response.Write("<td>")
Response.Write rs("M_NAME")
Response.Write("</td>")
Response.Write("<td>")
Response.Write("")
Response.Write "<a href='
http://sabzi.dk/pop_profile.asp?mode=display&id="&rs("MEMBER_ID")&"' target='_new'><IMG SRC='profil.gif'WIDTH=16 HEIGHT=16 alt='læs profilen' border=0></a>"
Response.Write("</td>")
Response.Write("</tr>")
end if
IF rs("M_SEX")<>"Male" Then
'If strMemberDays = 0 And
Response.Write("<tr BGCOLOR='#99FF33'>")
Response.Write("<td>")
Response.Write("<IMG SRC='pige.bmp'WIDTH=25 HEIGHT=25 >")
Response.Write("</td>")
Response.Write("<td>")
Response.Write rs("M_NAME")
Response.Write("</td>")
Response.Write("<td>")
Response.Write "<a href='
http://sabzi.dk/pop_profile.asp?mode=display&id="&rs("MEMBER_ID")&"' target='_new'><IMG SRC='profil.gif'WIDTH=16 HEIGHT=16 alt='læs profilen' border=0 ></a>"
Response.Write("</td>")
Response.Write("</tr>")
end if
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
Response.Write("</table>")
dbConn.Close
Set dbConn = Nothing
%>
<!--END CONTENT-->
</layer>
</ilayer>
<script language="JavaScript1.2">
if (iens6)
document.write('</div></div>')
</script>
<table width="178px" bgcolor=#6699FF><td><p align="right">
<a href="#" onMouseover="moveup()" onMouseout="clearTimeout(moveupvar)"><img src="up.gif" border=0 WIDTH=10 HEIGHT=10></a> <a href="#" onMouseover="movedown()" onMouseout="clearTimeout(movedownvar)"><img src="down.gif" WIDTH=10 HEIGHT=10 border=0></a></p></td>
</table>
<script language="JavaScript1.2">
if (iens6){
var crossobj=document.getElementById? document.getElementById("content") : document.all.content
var contentheight=crossobj.offsetHeight
}
else if (ns4){
var crossobj=document.nscontainer.document.nscontent
var contentheight=crossobj.clip.height
}
function movedown(){
if (iens6&&parseInt(crossobj.style.top)>=(contentheight*(-1)+100))
crossobj.style.top=parseInt(crossobj.style.top)-speed+"px"
else if (ns4&&crossobj.top>=(contentheight*(-1)+100))
crossobj.top-=speed
movedownvar=setTimeout("movedown()",20)
}
function moveup(){
if (iens6&&parseInt(crossobj.style.top)<=0)
crossobj.style.top=parseInt(crossobj.style.top)+speed+"px"
else if (ns4&&crossobj.top<=0)
crossobj.top+=speed
moveupvar=setTimeout("moveup()",20)
}
function getcontent_height(){
if (iens6)
contentheight=crossobj.offsetHeight
else if (ns4)
document.nscontainer.document.nscontent.visibility="show"
}
window.onload=getcontent_height
</script>
<body>
</body>
</html>