hvorfor kan siden ikke findes?
Jeg er igang med et script jeg har hentet på nettet, og eftersom jeg er total newbie til asp ville det være rart med lidt hjælp, omend der måske er lidt meget kode at læse igennem :)adressen er: http://www30.brinkster.com/moggblog/moggbook.asp - prøv at fylde formen og send den...
det er en guestbook og strukturen på sitet er opbygget således:
../moggblog/moggbook.asp (1. html med <!--# include..." db/moggblog.asp">)
../moggblog/db/moggblog.asp (2. guestbookscriptet der bare sender videre til filen nedenfor:)
../moggblog/db/guestbookadd.asp (der skriver til acces databasen i samme dir)
---------
moggblog (2 - ikke html'en) ser sådan ud:
<link rel="stylesheet" type="text/css" href="db/styles.css">
<%
Dim ANRec, ANConn, strANConn
strANConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/argonews.mdb")
%>
<TABLE WIDTH="100%">
<%
if Session("added") <> "true" then
%>
<FORM action="db/guestbookadd.asp" method=POST><INPUT TYPE=HIDDEN NAME=GIP VALUE=<%=Request.ServerVariables("REMOTE_ADDR")%>>
<TR><TD WIDTH=50% VALIGN=TOP>Your name:</TD>
<TD WIDTH=50><INPUT TYPE=TEXT NAME=GNAME size=20></TD></TR>
<TR>
<TD WIDTH=50% VALIGN=TOP>Your email address</TD>
<TD WIDTH=50%><INPUT TYPE=TEXT NAME=GEMAIL size=20></TD>
</TR><TR>
<TD WIDTH=50% VALIGN=TOP>Your message:</TD>
<TD WIDTH=50% VALIGN=TOP><TEXTAREA rows=6 NAME=GMESSAGE COLS=40></TEXTAREA>
</TD></TR>
<TR><TD COLSPAN=2>
<DIV ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE="Add entry"></FORM></DIV>
</TD></TR>
<%
end if
Set ANConn = Server.CreateObject ("ADODB.Connection")
Set ANRec = Server.CreateObject ("ADODB.Recordset")
ANConn.Open strANConn
if Request.QueryString("SEARCH") <> "" then
searchStr = Request.QueryString("SEARCH")
ContentSQL = "SELECT * FROM guestbook WHERE Name LIKE '%" & Replace(searchStr, "'", "''") & "%' OR Email LIKE '%" & Replace(searchStr, "'", "''") & "%' OR Message LIKE '%" & Replace(searchStr, "'", "''") & "%' ORDER BY ID DESC"
else
ContentSQL = "SELECT * FROM guestbook ORDER BY ID DESC"
end if
ANRec.Open ContentSQL, strANConn
if ANRec.EOF then
%>
<TR><TD COLSPAN=2><DIV ALIGN=CENTER>No entries!</DIV></TR></TR>
<%
else
%>
<TR><TD COLSPAN=2><DIV ALIGN=CENTER>Current entries:</DIV></TR></TR>
<%
end if
do while not ANRec.EOF
%>
<tr><td colspan=2><font size=5><a href=mailto:<%=ANRec("email")%>><%=ANRec("name")%></a></font><font size=2> writes:</font></td></tr>
<tr><td colspan=2><font size=2><%=ANRec("message")%></font></td></tr>
<tr><td><br></td></tr>
<%
ANRec.MoveNext
Loop
%>
<TR><TD WIDTH="50%"><FORM ACTION="moggbook.asp" METHOD=GET>
<INPUT TYPE=TEXT NAME=SEARCH VALUE="Search for..." SIZE=10><INPUT TYPE=SUBMIT VALUE=Search!>
</FORM>
<%
if not ANRec.EOF then
%>
<TD WIDTH="50%"><DIV ALIGN=RIGHT><A HREF="moggbook.asp&pos=<%=Displayed%>&SEARCH=<%=Request.QueryString("SEARCH")%>&SEARCHTYPE=<%=Request.QueryString("SEARCHTYPE")%>&SEARCHCAT=<%=Request.QueryString("SEARCHCAT")%>">Next Page</A></DIV></TD></TR></TABLE>
<%
else
Response.Write "</TR></TABLE>"
end if
ANRec.Close
Set ANRec = Nothing
ANConn.Close
Set ANConn = Nothing
%>
</TABLE>
------
guestbookadd.asp ser sådan ud:
<!--#INCLUDE FILE=adovbs.inc-->
<!--#INCLUDE FILE=dbconn.asp-->
<!--#INCLUDE FILE=siteconfig.asp-->
<%
Dim Name, Email, Message
Name = Trim(Request.Form("GNAME"))
Email = Trim(Request.Form("GEMAIL"))
IP = Trim(Request.Form("GIP"))
Set ANConn = Server.CreateObject ("ADODB.Connection")
Set ANRec = Server.CreateObject ("ADODB.Recordset")
ANConn.Open strANConn
ANRec.Open GBTableName, ANConn, adOpenDynamic, adLockPessimistic, adCmdTable
ANRec.AddNew
ANRec("Name") = Name
ANRec("Email") = Email
ANRec("Message") = Replace(Request.Form("GMESSAGE"), chr(13), "<BR>" & chr(13), 1)
ANRec("IP") = IP
ANRec.Update
Session("added") = "True"
Response.Redirect GBPageName
%>
i den includede siteconfig.asp er guestbooken defineret:
'Set this to the name of the Guestbook category
GBTableName = "moggbook"
'Set this to the name of your guestbook page (the one you generate)
GBPageName = "../moggblog/db/moggbook.asp"
HJÆLP!
