hvad er der galt??
hej jeg har et probs www.friserverplads.dk/zob og ja....Min tagwall dur ik den dur ik FP...
her får i koderne til den
<%
If (Request("Mode")) = "Add" then
Response.Redirect("add.asp")
END IF
%>
<%
Response.Buffer = True
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/zob/tagwall/tagwall.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TagWall ORDER BY Date DESC"
rs.Open strSQL, myConn, 1, 3
%>
<html>
<head>
<STYLE type="text/css">
a:hover
{
color: #99CC99;
text-decoration: none;
}
a
{
text-decoration: none;
}
Table
{
font-family:Tahoma, verdana, Microsoft Sans Serif, Ms Sans Serif, arial;
font-size:8pt;
border: 0px;
}
Body
{
font-family:Tahoma, verdana, Microsoft Sans Serif, Ms Sans Serif, arial;
font-size:8pt;
margin: 0px;
background-color: FFFFFF;
scrollbar-face-color: #669966 ;
scrollbar-shadow-color: #000000 ;
scrollbar-highlight-color: #000000 ;
scrollbar-3dlight-color: #000000 ;
scrollbar-darkshadow-color: #000000 ;
scrollbar-track-color: #000000 ;
scrollbar-arrow-color: #000000 ;
}
</STYLE>
</head>
<body Link="#000000">
<table border="0" cellpadding="0" cellspacing="0" width="550" align=center>
<tr>
<td height="15" Background="build/3-1.gif" align="center"
style="font-size:12px; font-weight: bold">
.... Tag Wall ....</td>
</tr>
</table>
<div align="center"><center>
<table border="0" cellpadding="2" cellspacing="0">
<tr>
<td align="center"><a href="index.asp?Mode=Add">Tilføj en besked</a></td>
</tr>
</table>
</center></div><BR>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/zob/tagwall/tagwall.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TagWall ORDER BY Date DESC"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
intRecCount = intRecCount - 0
%>
<div align="center"><center>
<%
body = rs("body")
name = rs("name")
Subject = rs("subject")
body = Replace(body, "<", "<")
body = Replace(body, ">", ">")
body = Replace(body, "", "<b>")
body = Replace(body, "", "</b>")
body = Replace(body, "", "<i>")
body = Replace(body, "", "</i>")
body = Replace(body, "", "<u>")
body = Replace(body, "", "</u>")
body = Replace(body, ":-)", "<img src=""09.gif"">")
body = Replace(body, ":-(", "<img src=""11.gif"">")
body = Replace(body, vbCrLf, "<br>")
name = Replace(name, "<", "<")
Subject = Replace(Subject, "<", "<")
%>
<table border="0" cellpadding="0" cellspacing="0" width="550">
<tr>
<td BGCOLOR="#689868" width="370" height="22"> <img src="<% =RS("funimg")%>.gif" alt="Fun" border="0"> #
<%
If rs("url") = "" Then
Response.Write "<img src=homepage.gif alt='Ingen hjemmeside' border=0 WIDTH=14 HEIGHT=14>"
Else
Response.Write "<a href=http://"& rs("url") &" target=_blank><img src=homepage.gif alt='Gå til: "& rs("url") &"' border=0 WIDTH=14 HEIGHT=14></a>"
End If
%>
<a href="mailto:<%=RS("email")%>"><img src="mail.gif" border="0" alt="Send post til:
<%=name%>" WIDTH="14" HEIGHT="11"></a># <strong><a name="<%=sub%>"></a>
<%=sub%></strong></td>
<td BGCOLOR="#689868" width="169" height="22"><p align="right"><% =RS("Date")%>
</td>
<td BGCOLOR="#689868" height="22"><% nydato = dateadd("d", 1 , RS("date"))
If nydato > Date() Then%>
<p><img src="new.gif" ALT="<%=RS("Date")%>" WIDTH="34" HEIGHT="14"> <% End If %></td>
</tr>
<tr>
<td colspan="3" width="550" height="72"><BR><p align="left"><%=body%><BR></td>
</tr>
<tr>
<TD valign="top" BGcolor="#669966"><p align="left">Skrevet af: <%=name%></P></TD>
<td valign="top" colspan=2 width="450" BGcolor="#669966">IP: <% =RS("IP")%>
<%
If rs("icq") = "" Then
Response.Write "Ingen ICQ"
Else
Response.Write "ICQ: <a href=http://wwp.icq.com/scripts/contact.dll?msgto="& rs("icq") &"><img src=http://wwp.icq.com/scripts/online.dll?icq=rs("icq")amp;img=2 alt=ICQ#rs("icq")border=0></a>"
End If
%>
</td>
</tr>
<tr><td colspan=3 bgcolor="#000000" height=3></td>
</tr>
</table>
<br>
</center></div>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<CENTER>"
Response.Write "<TABLE BORDER=0 WIDTH=400 HEIGHT=30><TR><TD>"
Response.Write "Gå til side:</TD>"
Response.Write "<TD ALIGN=center>[ "
If Clng(intPage) > 1 Then
Response.Write "<a href=index.asp?page=" & intPage - 1 & "><<<</a>"
Else
Response.Write "<<<"
End If
Response.Write " | "
For intNum = 1 To intPageCount
Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write " | "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=index.asp?page=" & intPage + 1 & ">>>></a>"
Else
Response.Write ">>>"
End If
Response.Write " ]</TD><TD ALIGN=right><b>Side " & intPage & " af " & intPageCount & "</b></TD></TR></TABLE>"
Response.Write "</CENTER>"
%>
</body>
</html>
jeg forstår det sim¨pelt hen ik er ik den største programmør...
