Avatar billede mindcrawler Nybegynder
13. juni 2003 - 21:27 Der er 3 kommentarer og
1 løsning

Fejl i kode

Hejsa!

Kan nogen finde en fejl i linie 35? Der er tale om en form for konflikt.

-------------------------------------'

<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Guestbook - Read</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#7B91A6" link="#7B91A6"
vlink="#7B91A6" alink="#7B91A6">

<p><!--webbot bot="HTMLMarkup" startspan --><style>
  Body {
    scrollbar-3dlight-color: #7B91A6;
    scrollbar-arrow-color: #7B91A6;
    scrollbar-base-color: #ffffff;
    scrollbar-darkshadow-color: #ffffff;
    scrollbar-face-color: #ffffff;
    scrollbar-highlight-color: #ffffff;
    scrollbar-shadow-color: #ffffff;
  }
</style> <!--webbot
bot="HTMLMarkup" endspan --><a href="write.asp"><font size="2" face="Verdana"><b>Skriv i
gæstebogen</b></a><br>
<br>
</p>

<table border="0" cellpadding="0" cellspacing="0" width="377">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gb.mdb")
SQL = "SELECT * From guestbook order by ID desc"
rs.Open SQL, Conn

Do while NOT rs.EOF
%>    <tr>
        <td width="188" bgcolor="#F5F5F5"><b><%=rs("topic")%></b> </td>
        <td width="189" bgcolor="#F5F5F5"><b><%=Server.HTMLEnCode(rs("name"))%> - <%=rs("date")%></b> </td>
    </tr>
    <tr>
        <td colspan="2"><br>
<%=Server.HTMLEnCode(rs("mess"))%>        </td>
    </tr>
    <tr>
        <td width="188" height="5">&nbsp;</td>
    </tr>
    <tr>
        <td colspan="2"><% If NOT rs("email") = "" Then %> <a href="mailto:<%=rs("email")%>"
        title="<%=rs("email")%>"><img src="img/e-post.gif"
        border="0" width="49" height="15"></a> <% End If %> <% If NOT rs("url") = "http://" Then %> <a
        href="<%=rs("url")%>" target="_blank"
        title="<%=rs("url")%>"><img src="img/hemsida.gif"
        border="0" width="52" height="15"></a> <% End If %> <img
        src="img/<%=rs("vote")%>"> <hr color="#808080">
        </td>
    </tr>
<%
Rs.MoveNext
Loop
%></table>
</body>
</html>
Avatar billede -master-d- Nybegynder
13. juni 2003 - 21:34 #1
Prøv lige det her af.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gb.mdb")
SQL = "SELECT * From guestbook order by ID desc"
rs.Open SQL, Conn

If Not (rs.BOF or rs.EOF) Then
Do while NOT rs.EOF
%>    <tr>
        <td width="188" bgcolor="#F5F5F5"><b><%=rs("topic")%></b> </td>
        <td width="189" bgcolor="#F5F5F5"><b><%=Server.HTMLEnCode(rs("name"))%> - <%=rs("date")%></b> </td>
    </tr>
    <tr>
        <td colspan="2"><br>
<%=Server.HTMLEnCode(rs("mess"))%>        </td>
    </tr>
    <tr>
        <td width="188" height="5">&nbsp;</td>
    </tr>
    <tr>
        <td colspan="2"><% If NOT rs("email") = "" Then %> <a href="mailto:<%=rs("email")%>"
        title="<%=rs("email")%>"><img src="img/e-post.gif"
        border="0" width="49" height="15"></a> <% End If %> <% If NOT rs("url") = "http://" Then %> <a
        href="<%=rs("url")%>" target="_blank"
        title="<%=rs("url")%>"><img src="img/hemsida.gif"
        border="0" width="52" height="15"></a> <% End If %> <img
        src="img/<%=rs("vote")%>"> <hr color="#808080">
        </td>
    </tr>
<%
Rs.MoveNext
Loop
End If
%></table>
Avatar billede Slettet bruger
13. juni 2003 - 21:34 #2
Har du ikke en fejlmeddelelse?
Avatar billede mindcrawler Nybegynder
13. juni 2003 - 22:34 #3
Overstående script virker heller ikke. Feljmeldingen lyder på:

ADODB.Connection.1 error '800a0bb9'
The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/voldsdruk/tagwall/guestbook.asp, line 35
Avatar billede eagleeye Praktikant
14. juni 2003 - 00:35 #4
Fejlen kommer i denne linje:

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gb.mdb")


Så det kunne tyde på at den ikke kan finde databasen i den angivne folder, ligger db i www root så skal du havde / foran

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/gb.mdb")


Hvis du har et web hotel hvor db og www root folderen ligger i samme niveau  så kan man ikke bruge Server.MapPth men er nød til at skrive stien fuldt ud:

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\homes\xxxdk\db\gb.mdb;"
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