Azero Hjælp!
Jeg skal bruge hjælp til at pladsere min Access db, i mappen db! Jeg kal lige sige at jeg er helt grøn og siden er en jeg har fået lavet!Der kan læses ligt om det her, men jeg forstår det ikke: http://azero.dk/?/support/database/access
Her er min koder:
<%@ LANGUAGE=\"VBSCRIPT\" %>
<%Option Explicit%>
<!--#include file=\"includes/data.inc\"-->
<!--#include file=\"includes/filetool.inc\"-->
<%
Dim Prg,Add,comment,name
Dim email,curname,startid
Dim rCount,def_Page_Length
Dim Tmp,PageLength,Pl
Dim SID,NumberOfPages,I
Dim DBPATH,lCounter,zVar,LastID,Exist
Dim iVar_RecPPage,iVar_CurPage,iVar_AmountOfRPPage,iVar_PersonalSettings
Dim iVar_AmountOfRPPageCur,iVar_GStats,iVar_NoNavigationOnCurPage,iVar_Time
Dim iVar_Navigaion,iVar_PleaseFillComment,iVar_PleaseFillName,iVar_WriteYourCommentHere
Dim iVar_Email,iVar_Name,iVar_Comment,iVar_ClickHereToWrite,iPath_HeaderImage
Dim iPath_ClickHereToWrite,iPath_ClickHereToWriteOut,iPath_ClickHereToWriteOver
Dim iVar_All,iVar_Cancel,iVar_Submit,iVar_ClearAll
Dim iVar_SendMailNotifyTo,iVar_SendMailNotifySender,iVar_SendMailNotifySubject,iVar_SendMailNotifyBody,iVar_Server
Dim iSet_BGColor,iSet_FGColor
\' Declare done
\' Setup
DBPATH = server.mappath(\"data/test_guestbook.mdb\") \' Location of guestbook.mdb
def_Page_Length = 20 \' default page length (in records)
iSet_BGColor = \"#EDEEDD\"
iSet_FGColor = \"#000000\"
\' Strings and Paths
iVar_RecPPage = \"Antal indlæg:\"
iVar_CurPage = \"Nuværende side:\"
iVar_AmountOfRPPage = \"Antal indlæg pr. side:\"
iVar_PersonalSettings = \"Personlige indstillinger:\"
iVar_AmountOfRPPageCur = \"Antal indlæg der vises pr. side:\"
iVar_GStats = \"Gæstebog statistik:\"
iVar_NoNavigationOnCurPage = \"Ingen navigation. Viser alle indlæg på samme side.\"
iVar_Navigaion = \"Navigation:\"
iVar_PleaseFillComment = \"Please fill COMMENT to continue!\"
iVar_PleaseFillName = \"Please fill NAME to continue!\"
iVar_WriteYourCommentHere = \"Skriv dit indlæg i Dirch\'s gæstebog her:\"
iVar_Email = \"Email (valgfri!):\"
iVar_Name = \"Navn:\"
iVar_Comment = \"Kommentar:\"
iVar_ClickHereToWrite = \"Klik her for at skrive i Dirch\'s gæstebog!\"
iVar_Time = \"Klokken\"
iVar_All = \"Alle\"
iVar_Cancel = \"Annuller\"
iVar_Submit = \"Indsend kommentar\"
iVar_ClearAll = \"Ryd alle felter\"
\' Mail Addresses
iVar_SendMailNotifyTo = \"duplex@mail.tele.dk\"
iVar_SendMailNotifySender = \"admin@dirch-passer.dk\"
iVar_Server = \"websmtp.dirch-passer.dk\"
iPath_HeaderImage = \"images/dirchsgaestebog.gif\"
iPath_ClickHereToWrite = \"images/letter.gif\"
iPath_ClickHereToWriteOut = \"images/letter.gif\"
iPath_ClickHereToWriteOver = \"images/letter_p.gif\"
\' Start
response.expires = 0
tmp = request.querystring(\"pl\")
if len(tmp) > 0 then
if isnumeric(tmp) then
pagelength = clng(tmp)
response.cookies(\"PL\") = pagelength
response.cookies(\"PL\").expires = now + 365
end if
else
pagelength = request.cookies(\"PL\")
if len(pagelength) = 0 then
pagelength = def_Page_Length
else
pagelength = clng(pagelength)
end if
end if
PL = PageLength
prg = request.form(\"program\")
if len(prg) = 0 then
prg = request.querystring(\"program\")
end if
comment = request.form(\"scomment\")
name = request.form(\"sname\")
email = request.form(\"semail\")
startid = request.querystring(\"startid\")
if len(startid) = 0 then
startid = -1
else
startid = clng(startid)
end if
\' Generate guestbook comments here..>>>
if startid = -1 then
sid = 50000
else
sid = startid
end if
InitRecordLength
%>
<html>
<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Dirch Passer\'s gæstebog</title>
<script>
// SS5BUTTONS01
var browser = \'\';
var version = \'\';
var entrance = \'\';
var cond = \'\';
// BROWSER?
if (browser == \'\'){
if (navigator.appName.indexOf(\'Microsoft\') != -1)
browser = \'IE\'
else if (navigator.appName.indexOf(\'Netscape\') != -1)
browser = \'Netscape\'
else browser = \'NN\';
}
// VERSION?
if (version == \'\'){
version= navigator.appVersion;
paren = version.indexOf(\'(\');
whole_version = navigator.appVersion.substring(0,paren-1);
version = parseInt(whole_version);
}
// BROWSER & VERSION
if (browser == \'IE\' && version >= 4) entrance = \'yes\';
if (browser == \'IE\' && version < 4) entrance = \'no\';
if (browser == \'Netscape\' && version >= 2.02) entrance = \'yes\';
if (browser == \'Netscape\' && version < 2.02) entrance = \'no\';
if (entrance==\'yes\'){
name0a = new Image;name0a.src = \'<%=iPath_ClickHereToWriteOut%>\';
name0b = new Image;name0b.src = \'<%=iPath_ClickHereToWriteOver%>\';
}
function lighten(imgName) {
if (entrance == \'yes\'){
imgOn = eval(imgName + \'b.src\');
document[imgName].src = imgOn;}
}
function darken(imgName) {
if (entrance == \'yes\'){
imgOff = eval(imgName + \'a.src\');
document[imgName].src = imgOff;}
}
</script>
<style>
<!--
BODY {font-family:Verdana,Arial;}
A:link {text-decoration: none; color: #FF0000}
A:visited {text-decoration: none; color: #FF0000}
A:hover {text-decoration: none; color: #0000FF}
A:active {text-decoration: underline + overline; color: #408080}
-->
</style>
</head>
<body style=\"font-family: Verdana; font-size: 8pt\" bgcolor=\"<%=iSet_BGColor%>\" text=\"<%=iSet_FGColor%>\">
<%
if len(prg) > 0 then
select case lcase(prg)
case \"add\" \' Add new record to db..
add = true
\' Validate data..
if len(name) = 0 then
response.write iVar_PleaseFillName
add = false
end if
if len(comment) = 0 then
response.write iVar_PleaseFillComment
add = false
end if
if add then
\' Data was varified ok!
\' Open dataobject
createdataobject DBPATH
opentable \"select ID from messages\"
dbrs.movelast
zVar = dbrs(\"ID\")
zVar = zVar + 1
closetable
opentable \"Select * from Messages where message = \'\" & request.form(\"scomment\") & \"\'\"
if (dbrs.eof or dbrs.bof) then
exist = false
else
exist = true
end if
closetable
if not exist then
opentable \"messages\"
dbrs.addnew
dbrs(\"name\") = request.form(\"sname\")
dbrs(\"email\") = request.form(\"semail\")
dbrs(\"message\") = request.form(\"scomment\")
dbrs(\"date\") = formatDateTime(date,1)
dbrs(\"time\") = time
dbrs(\"ID\") = zVar
dbrs.update
closetable
end if
closedataobject
if not exist then
if len(iVar_SendMailNotifyTo) > 0 then
iVar_SendMailNotifySubject = \"www.dirch-passer.dk:Guestbook item(\" & request.form(\"sname\") & \")\"
iVar_SendMailNotifyBody = \"Name: \" & request.form(\"sname\") & vbcrlf & _
\"Email: \" & request.form(\"semail\") & vbcrlf & _
\"Message:\" & vbcrlf & _
\"-------------------------------------------------------------------\" & vbcrlf & _
request.form(\"scomment\") & vbcrlf & _
\"-------------------------------------------------------------------\" & vbcrlf & _
\"Greetings from Guestbook v1.0 (c) 2001, Brian N. Bergh\"
\'SendMail ReplyTo ,SendTO ,Subject ,Body ,Priority)
\'SendMail iVar_SendMailNotifySender,iVar_SendMailNotifyTo,iVar_SendMailNotifySubject,iVar_SendMailNotifyBody,1
\'SendJMail ServerAddress ,ReplyTo ,SendTO ,Subject ,Body ,Priority)
SendJMail iVar_Server,iVar_SendMailNotifySender,iVar_SendMailNotifyTo,iVar_SendMailNotifySubject,iVar_SendMailNotifyBody,1
end if
name = empty
comment = empty
email = empty
%>
<script>
document.location.href=\"test_guestbook.asp\"
</script>
<%
end if
else
\' Data was varified ERRRO!
end if
case \"write\"
%>
<form method=\"POST\" action=\"test_guestbook.asp\" name=\"frm\">
<input type=\"hidden\" name=\"program\" value=\"add\">
<p><%=iVar_WriteYourCommentHere%></p>
<div align=\"center\">
<center>
<table border=\"0\" style=\"font-family: Verdana; font-size: 8pt; color: #000000\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td align=\"center\">
<p><b><%=iVar_Name%></b><br>
<input type=\"text\" name=\"sname\" value=\"<%=name%>\" <size=\"30\" size=\"78\" style=\"font-family: Verdana; font-size: 8pt; color: #000000\"> <br>
<br>
<b><%=iVar_Email%></b><br>
<input type=\"text\" name=\"semail\" value=\"<%=email%>\" size=\"78\" style=\"font-family: Verdana; font-size: 8pt; color: #000000\"></p>
<p><b><%=iVar_Comment%></b><br>
<textarea rows=\"5\" name=\"scomment\" cols=\"78\" style=\"font-family: Verdana; font-size: 8pt; color: #000000\"><%=comment%></textarea><br>
</p>
</td>
</tr>
<tr>
<td align=\"center\">
<p><br>
<input type=\"button\" value=\"<%=iVar_Cancel%>\" name=\"B1\" onclick=\"history.go(-1)\"> <input type=\"submit\" value=\"<%=iVar_Submit%>\" name=\"Send\">
<input type=\"reset\" value=\"<%=iVar_ClearAll%>\" name=\"Slet\"></p>
</td>
</tr>
</table>
</center>
</div>
</form>
<script>
document.frm.sname.focus();
</script>
<%
end select
end if
if not lcase(prg) = \"write\" then
\' Show guestbook
%>
<div align=\"center\">
<center>
<table border=\"0\" style=\"font-family: Verdana; font-size: 8pt; color: #000000\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td><img border=\"0\" src=\"<%=iPath_HeaderImage%>\"></td>
</tr>
<tr>
<td align=\"center\"><br>
<a href=\"test_guestbook.asp?program=write\" target=\"_self\" onmouseover=\"lighten(\'name0\'); window.status=\'<%=replace(replace(iVar_ClickHereToWrite,\"\"\"\",\"\\\"\"\"),\"\'\",\"\\\'\")%>\'; return true;\" onmouseout=\"darken(\'name0\'); window.status=\'\';return true\" onclick=\"darken(\'name0\')\"><img src=\"<%=iPath_ClickHereToWrite%>\" alt=\"<%=iVar_ClickHereToWrite%>\" border = \"0\" width=\"28\" height=\"21\" name=\"name0\"></a><br>
<%=iVar_ClickHereToWrite%></td>
</tr>
</table>
</center>
</div>
<br>
<%
ShowNavigation
%>
<hr>
<%
createdataobject DBPATH
opentable \"select * from messages where ID <= \" & sid & \" order by ID Desc;\"
do while not (dbrs.eof or dbrs.bof)
lCounter = lCounter + 1
%>
<table border=\"1\" width=\"100%\" cellspacing=\"1\" style=\"font-family: Verdana; font-size: 8pt; color: #000000\" bordercolor=\"#000000\">
<tr>
<%
if len(dbrs(\"email\")) > 0 then
curname = \"<a href=\"\"mailto:\" & dbrs(\"email\") & \"\"\">\" & dbrs(\"name\") & \"</a>\"
else
curname = dbrs(\"name\")
end if
%>
<td width=\"100%\" bgcolor=\"#000000\" style=\"color: #FFFFFF\"><%=curname%> - <%=dbrs(\"date\")%> <%=iVar_Time%> <%=dbrs(\"time\")%></td>
</tr>
<tr>
<td width=\"100%\">
(<%=dbrs(\"ID\")%>)
<blockquote>
<%=replace(dbrs(\"message\"),vbcrlf,\"<br>\")%>
</blockquote>
</td>
</tr>
</table>
<%
if lCounter >= pagelength then
exit do
end if
dbrs.movenext
loop
closetable
closedataobject
shownavigation
showstats
end if
%>
<p align=\"center\">Gæstebog v1.0 ©Copyright 2001, Brian N. Bergh<br>
Udviklet specielt for <a href=\"www.Dirch-Passer.dk</a></p>" target="_blank">http://www.Dirch-Passer.dk\">www.Dirch-Passer.dk</a></p>
<p> </p>
</body>
</html>
<%
function GetCh(v)
if clng(v) = clng(PL) then
GetCh = \"checked\"
end if
end function
Sub InitRecordLength()
\' Show page index (and navigation)
createdataobject DBPATH
opentable \"select * from messages\"
if not (dbrs.eof or dbrs.bof) then
dbrs.movelast
rcount = dbrs(\"ID\")
end if
closetable
closedataobject
if pagelength = -1 then
pagelength = rcount
end if
if startid = -1 then
sid = rCount
end if
if pagelength => rcount then
numberofpages = 1
else
numberofpages = (rcount / pagelength)
if numberofpages > clng(numberofpages) then
\' Round up!
numberofpages = clng(numberofpages)+1
end if
end if
End Sub
Sub ShowNavigation()
\' MAP
Response.write \" <div align=\"\"center\"\">\"
Response.write \" <center>\"
Response.write \" <table border=\"\"1\"\" width=\"\"100%\"\" style=\"\"font-size: 8pt\"\" bordercolor=\"\"#C0C0C0\"\">\"
Response.write \" <tr>\"
Response.write \" <td bgcolor=\"\"#C0C0C0\"\">\"
Response.write \" <b>\" & iVar_Navigaion & \"</b> \"
Response.write \" \"
Response.write \" </td>\"
Response.write \" </tr>\"
Response.write \" <tr>\"
Response.write \" <td>\"
if not pagelength >= rcount then
if sid =< (rcount - pagelength) then
response.write \" <a href=\"\"test_guestbook.asp?startid=\" & (sid + pagelength) & \"\"\"><<<</a> \"
else
response.write \" <<< \"
end if
for i=0 to clng(numberofpages) -1
if (i+1) = clng((((rcount - (sid + 1))/pagelength)+1)) then
response.write \"(\" & i+1 & \") \"
else
response.write \"<a href=\"\"test_guestbook.asp?startid=\" & rcount - (i * pagelength) & \"\"\">\" & i+1 & \"</a> \"
end if
next
if (sid - pagelength) > 0 then
response.write \" <a href=\"\"test_guestbook.asp?startid=\" & (sid - pagelength) & \"\"\">>>></a>\"
else
response.write \" >>>\"
end if
else
response.write iVar_NoNavigationOnCurPage
end if
Response.write \" </td>\"
Response.write \" </tr>\"
Response.write \" </table>\"
Response.write \" </form>\"
Response.write \" </td>\"
Response.write \" </tr>\"
Response.write \" </table>\"
Response.write \" </center>\"
Response.write \" </div>\"
End Sub
Sub ShowStats()
Response.write \" <div align=\"\"center\"\">\"
Response.write \" <center>\"
Response.write \" <table border=\"\"1\"\" width=\"\"100%\"\" style=\"\"font-size: 8pt\"\" bordercolor=\"\"#C0C0C0\"\">\"
Response.write \" <tr>\"
Response.write \" <td bgcolor=\"\"#C0C0C0\"\">\"
Response.write \" <b>\" & iVar_GStats & \"</b> \"
Response.write \" \"
Response.write \" </td>\"
Response.write \" </tr>\"
Response.write \" <tr>\"
Response.write \" <td>\"
\' STATS
response.write \"<p>\" & iVar_RecPPage & rCount & \"<br>\"
response.write iVar_CurPage & \" \" & clng((((rcount - (sid + 1))/pagelength)+1)) & \" / \" & clng(numberofpages) & \"<br>\"
response.write iVar_AmountOfRPPage & pagelength & \"<br>\"
Response.write \" </td>\"
Response.write \" </tr>\"
Response.write \" <tr>\"
Response.write \" <td bgcolor=\"\"#C0C0C0\"\">\"
Response.write \" <b>\" & iVar_PersonalSettings & \"</b> \"
Response.write \" </td>\"
Response.write \" </tr>\"
Response.write \" <tr>\"
Response.write \" <td>\"
Response.write \" <form method=\"\"get\"\" name=\"\"prf\"\">\"
Response.write \" <p><br>\"
Response.write \" \" & iVar_AmountOfRPPageCur & \"</p>\"
Response.write \" <table border=\"\"0\"\" style=\"\"font-family: Verdana; font-size: 8pt; color: #000000\"\" cellpadding=\"\"0\"\" cellspacing=\"\"0\"\">\"
Response.write \" <tr>\"
Response.write \" <td valign=\"\"middle\"\" bgcolor=\"\"#C0C0C0\"\"><input type=\"\"radio\"\" value=\"\"5\"\"\" & getch(5) & \" name=\"\"pl\"\" onclick=\"\"document.prf.submit()\"\"></td>\"
Response.write \" <td valign=\"\"middle\"\" bgcolor=\"\"#C0C0C0\"\">5</td>\"
Response.write \" <td valign=\"\"middle\"\"><input type=\"\"radio\"\" name=\"\"pl\"\"\" & getch(10) & \" value=\"\"10\"\" onclick=\"\"document.prf.submit()\"\"></td>\"
Response.write \" <td valign=\"\"middle\"\">10</td>\"
Response.write \" <td valign=\"\"middle\"\" bgcolor=\"\"#C0C0C0\"\"><input type=\"\"radio\"\" name=\"\"pl\"\"\" & getch(15) & \" value=\"\"15\"\" onclick=\"\"document.prf.submit()\"\"></td>\"
Response.write \" <td valign=\"\"middle\"\" bgcolor=\"\"#C0C0C0\"\">15</td>\"
Response.write \" <td valign=\"\"middle\"\"><input type=\"\"radio\"\" name=\"\"pl\"\"\" & getch(20) & \" value=\"\"20\"\" onclick=\"\"document.prf.submit()\"\"></td>\"
Response.write \" <td valign=\"\"middle\"\">20</td>\"
Response.write \" <td valign=\"\"middle\"\" bgcolor=\"\"#C0C0C0\"\"><input type=\"\"radio\"\"\" & getch(30) & \" name=\"\"pl\"\" value=\"\"30\"\" onclick=\"\"document.prf.submit()\"\"></td>\"
Response.write \" <td valign=\"\"middle\"\" bgcolor=\"\"#C0C0C0\"\">30</td>\"
Response.write \" <td valign=\"\"middle\"\"><input type=\"\"radio\"\" name=\"\"pl\"\"\" & getch(50) & \" value=\"\"50\"\" onclick=\"\"document.prf.submit()\"\"></td>\"
Response.write \" <td valign=\"\"middle\"\">50</td>\"
Response.write \" <td valign=\"\"middle\"\" bgcolor=\"\"#C0C0C0\"\"><input type=\"\"radio\"\"\" & getch(-1) & \" name=\"\"pl\"\" value=\"\"-1\"\" onclick=\"\"document.prf.submit()\"\"></td>\"
Response.write \" <td valign=\"\"middle\"\" bgcolor=\"\"#C0C0C0\"\">\" & iVar_All & \"</td>\"
Response.write \" </tr>\"
Response.write \" </table>\"
Response.write \" </form>\"
Response.write \" </td>\"
Response.write \" </tr>\"
Response.write \" </table>\"
Response.write \" </center>\"
Response.write \" </div>\"
End Sub
%>
