EMIL !!!! >>>
HJÆLP !
Jeg poster lige mit script her:
SOURCE:
------
<html>
<head>
<SCRIPT LANGUAGE="JavaScript">
function NewWin () {
window.open('more.asp?id=<%=members("ID")%>','width=200, height=200, toolbar=no, scrollbars=no, menubar=no, location=yes')
}
</script>
<title>ICQSvendborg ver. 1.0</title>
</head>
<body bgcolor="#FFFFFF">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("icq.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
response.write "<table width='50%' align='center' border='0'>"
response.write "<tr>"
response.write "<td class='text' width='20%'>Bruger oprettet:</td>"
response.write "<td class='text' width='30%' align='right'>" & FormatDateTime(rs("dato"), VbLongDate) & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='text' width='20%'>Navn:</td>"
response.write "<td class='text' width='30%' align='right'>" & rs("realname") & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='text' width='20%'>Alder:</td>"
response.write "<td class='text' width='30%' align='right'>" & rs("alder") & " år</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='text' width='20%'>Nickname:</td>"
response.write "<td class='text' width='30%' align='right'>" & rs("nick") & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='text' width='20%'>ICQ #:</td>"
response.write "<td class='text' width='30%' align='right'>" & rs("icqnummer") & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='text' width='20%'>Online / Offline:</td>"
response.write "<td class='text' width='30%' align='right'><img src='
http://online.mirabilis.com/scripts/online.dll?icq=" & rs("icqnummer") & "&img=5'></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='text' width='20%'>Hjemmeside:</td>"
response.write "<td class='text' width='30%' align='right'>[<a href=http://" & rs("url") & ">" & rs("titel") & "</a>]</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='text' width='20%'>E-Mail:</td>"
response.write "<td class='text' width='30%' align='right'>[<a href='mailto:" & rs("email") & "'>" & rs("email") & "</a>]</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='text' width='20%'>Mere information:</td>"
response.write "<td class='text' width='30%' align='right'>[<a href='NewWin()'>Mere info</a>]</td>"
response.write "</tr>"
response.write "</table>"
response.write "<hr width='50%' align='center' noshade size='1'>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
<br>
<br>
<div align='center' class='text'>
[<a href='tilmeld.asp'>Tilmeld dig listen</a>]
</div>
</body></html>
----------
Der sker overhovedet ngenting når jeg kører dette...
Men fjerner jeg scriptet virker det fint !?
???? HELP ????
<//morpheus\\>
Ny bruger
Nybegynder
Opret
Preview
