happylinks
Gebruiker
- Lid geworden
- 25 nov 2007
- Berichten
- 71
Hey Helpmij.nl,
Ik ben bezig met een gastenboek met "dynamic ajax content" maar helaas wil de pagina niet meer laden sinds ik het asp gedeelte er in heb geplakt.
Dit is mijn Code:
Gastenboek.asp:
Hopelijk kunnen jullie de fout vinden...
Gegroet Michiel Westerbeek
Ik ben bezig met een gastenboek met "dynamic ajax content" maar helaas wil de pagina niet meer laden sinds ik het asp gedeelte er in heb geplakt.
Dit is mijn Code:
Gastenboek.asp:
HTML:
<!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">
<head>
<link type="text/css" href="css/css.css" rel="stylesheet" media="screen" />
<title>Damon Racing.nl</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
<!--
body {
background-color: #FF0000;
}
-->
</style>
<!-- AJAX SCRIPT -->
<script type="text/javascript">
/***********************************************
* Dynamic Ajax Content- © Dynamic Drive DHTML code library (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code
***********************************************/
var loadedobjects=""
var rootdomain="http://"+window.location.hostname
function ajaxpage(url, containerid){
var page_request = false
if (window.XMLHttpRequest) // if Mozilla, Safari etc
page_request = new XMLHttpRequest()
else if (window.ActiveXObject){ // if IE
try {
page_request = new ActiveXObject("Msxml2.XMLHTTP")
}
catch (e){
try{
page_request = new ActiveXObject("Microsoft.XMLHTTP")
}
catch (e){}
}
}
else
return false
page_request.onreadystatechange=function(){
loadpage(page_request, containerid)
}
page_request.open('GET', url+'?bustcache='+new Date().getTime(), true)
page_request.send(null)
}
function loadpage(page_request, containerid){
if (page_request.readyState == 4 && (page_request.status==200 || window.location.href.indexOf("http")==-1))
document.getElementById(containerid).innerHTML=page_request.responseText
}
function loadobjs(){
if (!document.getElementById)
return
for (i=0; i<arguments.length; i++){
var file=arguments[i]
var fileref=""
if (loadedobjects.indexOf(file)==-1){ //Check to see if this object has not already been added to page before proceeding
if (file.indexOf(".js")!=-1){ //If object is a js file
fileref=document.createElement('script')
fileref.setAttribute("type","text/javascript");
fileref.setAttribute("src", file);
}
else if (file.indexOf(".css")!=-1){ //If object is a css file
fileref=document.createElement("link")
fileref.setAttribute("rel", "stylesheet");
fileref.setAttribute("type", "text/css");
fileref.setAttribute("href", file);
}
}
if (fileref!=""){
document.getElementsByTagName("head").item(0).appendChild(fileref)
loadedobjects+=file+" " //Remember this object as being already added to page
}
}
}
</script>
<!--/AJAX SCRIPT -->
</head>
<body>
<div id="container">
<div id="banner" >
<img src="images/logo1.png" /><img src="images/logo.png" /><img src="images/logo2.png" />
<h1> </h1>
</div>
<div id="left">
<h2>Menu</h2>
<ul>
<li><a href="index.html">Home</a><br /></li>
<li><a href="Over Mij.html">Over Mij</a><br /></li>
<li><a href="Verslagen.asp">Verslagen</a><br /></li>
<li><a href="Ons Team.html">Ons Team</a><br /></li>
<li><a href="Foto's/index.html">Foto's</a><br /></li>
<li><a href="Gastenboek/index.html">Gastenboek</a><br /></li>
<li><a href="contact.html">Contact</a></li>
</ul>
</div>
<div id="right">
</div>
<div id="content">
<h2 align="center">Gastenboek</h2>
<!-- AJAX -->
<div id="main">
<center><a name="Schrijf in het Gastenboek" href="javascript:ajaxpage('Gastenboek/teken.asp', 'rightcolumn');">Schrijf in het gastenboek</a>
-
<a name="Lees het Gastenboek" href="gastenboek.asp">Lees het gastenboek</a></center>
<div id="rightcolumn">
<!-- TEST -->
<!--#include file="Gastenboek/instellingen.asp" -->
<%
' De variabelen van het sBericht
Dim aAlleData, sNaam, sEmail, sWebsite, sBericht, sDatum, iLeeg, sTekst, sNaamveld
' Opvragen startpositie
Dim iStart, iOffset
iStart = Request("Start")
iOffset = Request("Offset")
'controle op posities
if Not IsNumeric(iStart) or Len(iStart) = 0 then
iStart = 0
else
iStart = CInt(iStart)
end if
if Not IsNumeric(iOffset) or Len(iOffset) = 0 then
iOffset = iAantalPP
else
iOffset = Cint(iOffset)
end if
sSQL = "SELECT * FROM Berichten ORDER BY Datum DESC, Bericht_id DESC"
' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
Set objCon = Server.CreateObject ( "ADODB.Connection" )
objCon.open strCon
'Maak een recordset aan met de gegevens uit de database.
Dim objRec
set objRec=objCon.execute(sSQL)
' Als er geen gegevens in de database staan geeft dit dan aan.
if objRec.eof then
ileeg = 1
Call SluitAlles
end if
if ileeg <> 1 then
' Nu halen we alle records uit de database en zetten ze in aAlleData
aAlleData=objRec.getrows
Call SluitAlles
end if
%>
<link type="text/css" href="css/css.css" rel="stylesheet" media="screen">
</head>
<div align="center">
<table width="480" border="1" cellpadding="2" cellspacing="0" bordercolor="">
<tr>
<td width="500" align="center" valign="middle"> <table width="472" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="480"> </td>
</tr>
</table>
<%
if ileeg = 1 then
response.write "Nog geen berichten in het gastenboek!<br><br>"
else
' Tel het aantal rijen.
Dim iAantalRijen, iRijTeller, iStop
iAantalRijen=ubound(aAlleData,2)
If iAantalRijen > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iAantalRijen
End If
' Loop door de rijen heen.
FOR iRijTeller = iStart to iStop
' Zet de waarden uit uit de database in de variabelen.
sNaam = aAlleData(1,iRijTeller)
sEmail = aAlleData(2,iRijTeller)
sWebsite = aAlleData(3,iRijTeller)
sBericht = aAlleData(4,iRijTeller)
sDatum = aAlleData(5,iRijTeller)
if blnSmileys = True then
' Verander de smileys in plaatjes.
sBericht = Replace(sBericht, "[:)]", "<img border=""0"" src=""Gastenboek/smileys/happy.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:student:]", "<img border=""0"" src=""Gastenboek/smileys/student.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:happybirthday:]", "<img border=""0"" src=""Gastenboek/smileys/happybirthday.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:smilies:]", "<img border=""0"" src=""Gastenboek/smileys/smilies.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:greenbiggrin:]", "<img border=""0"" src=""Gastenboek/smileys/greenbiggrin.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:greenrolleyes:]", "<img border=""0"" src=""Gastenboek/smileys/greenrolleyes.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:shy:]", "<img border=""0"" src=""Gastenboek/smileys/shy.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:baby:]", "<img border=""0"" src=""Gastenboek/smileys/baby.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:oh:]", "<img border=""0"" src=""Gastenboek/smileys/oh.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:finger:]", "<img border=""0"" src=""Gastenboek/smileys/finger.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:animbaby:]", "<img border=""0"" src=""Gastenboek/smileys/animbaby.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:greenrolleyes:]", "<img border=""0"" src=""Gastenboek/smileys/greenrolleyes.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:madashell:]", "<img border=""0"" src=""Gastenboek/smileys/madashell.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:inlove:]", "<img border=""0"" src=""Gastenboek/smileys/inlove.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:razz:]", "<img border=""0"" src=""Gastenboek/smileys/razz.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:angel:]", "<img border=""0"" src=""Gastenboek/smileys/angel.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:read:]", "<img border=""0"" src=""Gastenboek/smileys/read.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:walk:]", "<img border=""0"" src=""Gastenboek/smileys/walk.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:smoker:]", "<img border=""0"" src=""Gastenboek/smileys/smoker.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:sad:]", "<img border=""0"" src=""Gastenboek/smileys/sad.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[;)]", "<img border=""0"" src=""Gastenboek/smileys/wink.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:disgust:]", "<img border=""0"" src=""Gastenboek/smileys/disgust.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:mad:]", "<img border=""0"" src=""Gastenboek/smileys/mad.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:drunk:]", "<img border=""0"" src=""Gastenboek/smileys/drunk.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:D]", "<img border=""0"" src=""Gastenboek/smileys/biggrin.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:afro:]", "<img border=""0"" src=""Gastenboek/smileys/afro.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:bigmouth:]", "<img border=""0"" src=""Gastenboek/smileys/bigmouth.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:banghead:]", "<img border=""0"" src=""Gastenboek/smileys/banghead.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:cat:]", "<img border=""0"" src=""Gastenboek/smileys/blackcat.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:bored:]", "<img border=""0"" src=""Gastenboek/smileys/bored.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:x]", "<img border=""0"" src=""Gastenboek/smileys/censored.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:hat:]", "<img border=""0"" src=""Gastenboek/smileys/conicalhat.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:crazy:]", "<img border=""0"" src=""Gastenboek/smileys/crazy.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:dunce:]", "<img border=""0"" src=""Gastenboek/smileys/dunce.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:eyepop:]", "<img border=""0"" src=""Gastenboek/smileys/eye-popping.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:(]", "<img border=""0"" src=""Gastenboek/smileys/frown.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:boo:]", "<img border=""0"" src=""Gastenboek/smileys/ghost.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:hug:]", "<img border=""0"" src=""Gastenboek/smileys/hug.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:hyper:]", "<img border=""0"" src=""Gastenboek/smileys/hyper.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:innocent:]", "<img border=""0"" src=""Gastenboek/smileys/innocent.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:jester:]", "<img border=""0"" src=""Gastenboek/smileys/jester.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:king:]", "<img border=""0"" src=""Gastenboek/smileys/king.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:queen:]", "<img border=""0"" src=""Gastenboek/smileys/queen.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:knight:]", "<img border=""0"" src=""Gastenboek/smileys/knight.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:prin:]", "<img border=""0"" src=""Gastenboek/smileys/princess.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:lily:]", "<img border=""0"" src=""Gastenboek/smileys/lily.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:medusa:]", "<img border=""0"" src=""Gastenboek/smileys/medusa.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:monkey:]", "<img border=""0"" src=""Gastenboek/smileys/monkey.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:prop:]", "<img border=""0"" src=""Gastenboek/smileys/propeller.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:rose:]", "<img border=""0"" src=""Gastenboek/smileys/rose.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:smoke:]", "<img border=""0"" src=""Gastenboek/smileys/smoke.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:skull:]", "<img border=""0"" src=""Gastenboek/smileys/skull.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:finger:]", "<img border=""0"" src=""Gastenboek/smileys/thefinger.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:tired:]", "<img border=""0"" src=""Gastenboek/smileys/tired.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:tomb:]", "<img border=""0"" src=""Gastenboek/smileys/tombstone.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:vamp:]", "<img border=""0"" src=""Gastenboek/smileys/vampire.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:yell:]", "<img border=""0"" src=""Gastenboek/smileys/yell.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:yuck:]", "<img border=""0"" src=""Gastenboek/smileys/yuck.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:zombie:]", "<img border=""0"" src=""Gastenboek/smileys/zombie.gif"">", 1, -1, 1)
sBericht = Replace(sBericht, "[:z:]", "<img border=""0"" src=""Gastenboek/smileys/z.gif"">", 1, -1, 1)
end if
' Als er geen sNaam ingevult is, maak er Anoniem van.
if trim(sNaam) = "" OR isnull(sNaam) OR trim(sEmail) = chr(13) then
sNaam = "Anoniem"
end if
' Kijk of er een e-mailadres is ingevuld en als dat er is maar er een link van.
if trim(sEmail) = "" OR isnull(sEmail) OR trim(sEmail) = chr(13) then
sNaamveld = sNaam
else
if isEmail(sEmail)= true then
sNaamveld = nospam(sEmail,sNaam)
else
sNaamveld = sNaam
end if
end if
' Kijk of er iets is ingevult voor sWebsite
if trim(sWebsite) = "" OR trim(sWebsite) = "http://" then
sWebsite = "-"
else
sTekst = sWebsite
if len(sTekst) > 34 then
sTekst = left(sTekst,34)
sTekst = sTekst & "..."
end if
sWebsite = "<a href=""" & sWebsite & """ target=""_blank"" title=""" & sWebsite & """>" & sTekst & "</a>"
end if
%> <table width="474" border="0" cellspacing="0" cellpadding="2">
<td width="155"><font size="-1"><strong>Door:</strong>
<%= sNaamveld %></font></td>
<td width="223"><font size="-1"><strong>Website:</strong> <%= sWebsite %></font></td>
<td width="84"><div align="right"><font size="-1"><strong><%= sDatum %></strong></font></div></td>
</tr>
<tr>
<td colspan="3"><%= sBericht %></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
</table>
<%
NEXT
%> <br><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" align="left">
<%
'Toon de vorige link
if iStart > 0 then
Response.Write "<div align=""left""><a href=""default.asp?start=" & iStart-iOffset & "&offset=" & iOffset & """>Vorige " & iOffset & "</a></div>"
end if
%></td>
<td align="center">Pagina <%= cInt(iStart/iOffset)+1 %> van de <%= round(((iAantalRijen+1)/iOffset)+0.49999) %></td>
<td width="20%" align="right"><%
'Toon de volgende link
if iStop < iRijTeller AND (iStart+iOffset) < iAantalRijen then
Response.Write "<div align=""right""><a href=""default.asp?start=" & iStart+iOffset & "&offset=" & iOffset & """>Volgende " & iOffset & "</a></div>"
end if
%>
</td>
</tr>
</table>
<%
end if
%> </td>
</tr>
</table>
<p> </p>
<p> </p>
</div>
<%
' Sluit de recordset af en verbreek de verbinding met de database.
SUB SluitAlles
objRec.close
set objRec=nothing
objCon.close
set objCon=nothing
END SUB
%>
<!--/TEST -->
</div>
</div>
<!--/AJAX -->
</div>
<div id="footer"><h1></h1></div>
</div>
<br />
</body>
</html>Hopelijk kunnen jullie de fout vinden...
Gegroet Michiel Westerbeek
Laatst bewerkt:
