Avatar billede thalamus Nybegynder
10. april 2002 - 01:58 Der er 3 kommentarer og
2 løsninger

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!
Avatar billede keysersoze Ekspert
10. april 2002 - 02:01 #1
prøv at gør følgende;

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelels om uskadelige http-fejl"

på den måde kan du se hvad fejlen er...

(nemlig; The Microsoft Jet database engine cannot find the input table or query 'moggbook'. Make sure it exists and that its name is spelled correctly.)
Avatar billede Slettet bruger
10. april 2002 - 02:15 #2
Microsoft JET Database Engine error '80040e37'

The Microsoft Jet database engine cannot find the input table or query 'moggbook'. Make sure it exists and that its name is spelled correctly.

/moggblog/db/guestbookadd.asp, line 12
Avatar billede thalamus Nybegynder
10. april 2002 - 03:12 #3
smart :) .. nå, men så YIIIIHAAAAA!!!! DET VIRKER! tak....
Avatar billede thalamus Nybegynder
10. april 2002 - 03:13 #4
i får lige 50 hver.. fordi i begge var lige gode :)
Avatar billede thalamus Nybegynder
10. april 2002 - 03:14 #5
eller seje.. vælg selv
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester