Notifikationer

Markér alle som læst Log ud

caroc Praktikant

02. april 2003 - 17:27 Der er 17 kommentarer og
1 løsning

Access forbindelses problemer

Hej..
Jeg har prøvet at flette 2 databaseforbindelser sammen til en, men oplever en del problemer. I kan se fejlen på www.mount.dk/hbk/admin/admin.asp
brugernavn: test
password: test

Gå ind under nyheder..
det er den nyhedstabel jeg prøver at flette ind med den tabel der tjekker efter password og brugernavn..
Nogle ideer??

Synes godt om

caroc Praktikant

02. april 2003 - 17:28 #1

ups forkert link: www.mount.dk/hbk/admin.asp

Synes godt om

caroc Praktikant

02. april 2003 - 17:32 #2

kildekoden kan hentes her: www.mount.dk/hbk/admin/nyheder/oversigt.rar

Synes godt om

Jman Praktikant

02. april 2003 - 17:34 #3

er databasen tom ?

Synes godt om

Jman Praktikant

02. april 2003 - 17:36 #4

hvis ikke der er nogen nyheder laver den en fejl.
Så du dskal huske at tjekke for det også:

if rs.eof or rs.bof then
response.write "der er ingen nyheder i systemet"
end if

Synes godt om

caroc Praktikant

02. april 2003 - 17:37 #5

databasen er ikke tom..

Synes godt om

caroc Praktikant

02. april 2003 - 17:39 #6

det her er det originale aspkode fra den fil jeg prøver at flette ind:

<%option explicit%>

<%
dim Connection,SQLstringK,KRS

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../database.mdb")
SQLstringK="SELECT * FROM nyheder ORDER by dato desc"
SET KRS=Connection.Execute(SQLstringK)
%>

<%
while not KRS.EOF%>

<%

KRS.MoveNext
wend

KRS.close
set KRS =nothing
connection.close
set connection = nothing

%>

Synes godt om

-master-d- Nybegynder

02. april 2003 - 17:44 #7

Poblemet er bare at du åbner med denne :

SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../../database/brugere.mdb")

og prøver at kalde denne her :
Connection.Execute(SQLstringK)

Du skal udskifte

SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../../database/brugere.mdb")

med dette :

<%
dim Connection

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../database.mdb")
%>

Synes godt om

-master-d- Nybegynder

02. april 2003 - 17:45 #8

OBS! Husk lige at ændre database stien.

Synes godt om

ellebaek Nybegynder

02. april 2003 - 17:48 #9

hvilken forskel gør det ?

Synes godt om

caroc Praktikant

02. april 2003 - 17:49 #10

hmm det virker ikke - så vil siden ikke engang vises..

Synes godt om

caroc Praktikant

02. april 2003 - 17:49 #11

skal man virkelig lukke den og så åbne den igen??

Synes godt om

-master-d- Nybegynder

02. april 2003 - 17:56 #12

Forskellen er at han på den nuværende side prøver at hente et objekt som ikke findes på siden, og kan dermed ikke finde nogen poster.

Synes godt om

caroc Praktikant

02. april 2003 - 18:00 #13

nogen der har en ide til hvad jeg kan gøre??
Master-D --> da jeg rettede det virkede det ikke men det kan selvfølgelig være at jeg har lavet noget forkert et andet sted..

Synes godt om

-master-d- Nybegynder

02. april 2003 - 18:03 #14

Prøv lige med dette her :

<%
Response.Buffer = True
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../../../../database/brugere.mdb")

if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("../../admin.asp")
end if

IF Session("password-session") = "" Then
Response.Redirect("../../admin.asp")
end if

Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"
set rs = Connection.Execute(SQL)
%>
<html>
<head>
<title>Hjørring Badminton Klub</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td bgcolor="#EBEBEB" valign="top" height="84"><img src="../../top.jpg" width="130" height="130"></td>
<td bgcolor="#EBEBEB" valign="top" height="84">

</td>
</tr>
<tr>
<td bgcolor="#EBEBEB" width="130" valign="top"> 
 
 

 
 
 
 
 
 
 
</td>
<td style="border-right: 1px solid #000000; border-left: 1px solid #000000;" width="1145" valign="top">
 
<table width="80%%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" width="4%">
 
</td>
<td height="2" width="89%">Velkommen
<% = rs("RigtigNavn")%>

</td>
<td height="2" width="7%">
<div align="right"><a href="../bruger.asp?mode=logaf">Log
af</a> </div>
</td>
</tr>
<tr>
<td width="4%" height="141"> </td>
<td height="141" colspan="2"> 
<table width="100%%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%" valign="top">

</td>
<td width="91%" valign="middle">
 
<table border="0" width="637" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#f7f7f7" valign="top" class="menuoverskrift" width="498" align="center" height="2">
<table border="0" cellpadding="2" cellspacing="0" width="100%">
<tr>
<td width="180">Forfatter</td>
<td width="83">Overskrift</td>
<td width="40" align="center">Slet</td>
<td width="40" align="center">Ret</td>
</tr>
<%
SQLstringK = "SELECT * FROM nyheder ORDER by dato desc"
SET KRS =Connection.Execute(SQLstringK)

while not KRS.EOF%>
<tr>
<td width="180" nowrap height="8"><%=KRS("forfatter")%>
</td>
<td width="167" nowrap height="8"><%=KRS("overskrift")%></td>
<td width="40" align="center" height="8">
<a href="./slet.asp?id=<%=KRS("id")%>">Slet</a>
</td>
<td width="40" align="center" height="8"><a href="./ret.asp?id=<%=KRS("id")%>">Ret</a></td>
</tr>
<%

KRS.MoveNext
wend

KRS.close
set KRS =nothing
Conn.Close
Set Conn = Nothing
%>
</table>
</td>
</tr>
</table>
 
|<a href="add.asp">
Tilføj Nyhed</a>
| <a href="oversigt.asp">Ret/Slet
Nyhed</a> |
  
</td>
</tr>
</table>

</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#1D78BD">
<td style="border-right: 1px solid #000000;" colspan="2"> </td>
</tr>
</table>
</body>
</html>

Hvis det ikke virker så ved jeg ikke hvad du har gjort galt.

Synes godt om

caroc Praktikant

02. april 2003 - 18:06 #15

jeps det virker -- men den kommer nu med en fejl alligevel?

Microsoft VBScript runtime error '800a01a8'
Object required: 'Conn'

/hbk/admin/nyheder/oversigt.asp, line 102

Synes godt om

-master-d- Nybegynder

02. april 2003 - 18:13 #16

Hov skal lige være dette istedet :

<%
Response.Buffer = True
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../../../../database/brugere.mdb")

if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("../../admin.asp")
end if

IF Session("password-session") = "" Then
Response.Redirect("../../admin.asp")
end if

Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"
set rs = Connection.Execute(SQL)
%>
<html>
<head>
<title>Hjørring Badminton Klub</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td bgcolor="#EBEBEB" valign="top" height="84"><img src="../../top.jpg" width="130" height="130"></td>
<td bgcolor="#EBEBEB" valign="top" height="84">

</td>
</tr>
<tr>
<td bgcolor="#EBEBEB" width="130" valign="top"> 
 
 

 
 
 
 
 
 
 
</td>
<td style="border-right: 1px solid #000000; border-left: 1px solid #000000;" width="1145" valign="top">
 
<table width="80%%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" width="4%">
 
</td>
<td height="2" width="89%">Velkommen
<% = rs("RigtigNavn")%>

</td>
<td height="2" width="7%">
<div align="right"><a href="../bruger.asp?mode=logaf">Log
af</a> </div>
</td>
</tr>
<tr>
<td width="4%" height="141"> </td>
<td height="141" colspan="2"> 
<table width="100%%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%" valign="top">

</td>
<td width="91%" valign="middle">
 
<table border="0" width="637" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#f7f7f7" valign="top" class="menuoverskrift" width="498" align="center" height="2">
<table border="0" cellpadding="2" cellspacing="0" width="100%">
<tr>
<td width="180">Forfatter</td>
<td width="83">Overskrift</td>
<td width="40" align="center">Slet</td>
<td width="40" align="center">Ret</td>
</tr>
<%
SQLstringK = "SELECT * FROM nyheder ORDER by dato desc"
SET KRS =Connection.Execute(SQLstringK)

while not KRS.EOF%>
<tr>
<td width="180" nowrap height="8"><%=KRS("forfatter")%>
</td>
<td width="167" nowrap height="8"><%=KRS("overskrift")%></td>
<td width="40" align="center" height="8">
<a href="./slet.asp?id=<%=KRS("id")%>">Slet</a>
</td>
<td width="40" align="center" height="8"><a href="./ret.asp?id=<%=KRS("id")%>">Ret</a></td>
</tr>
<%

KRS.MoveNext
wend

KRS.close
set KRS =nothing
Connection.Close
Set Connection = Nothing
%>
</table>
</td>
</tr>
</table>
 
|<a href="add.asp">
Tilføj Nyhed</a>
| <a href="oversigt.asp">Ret/Slet
Nyhed</a> |
  
</td>
</tr>
</table>

</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#1D78BD">
<td style="border-right: 1px solid #000000;" colspan="2"> </td>
</tr>
</table>
</body>
</html>

Synes godt om

-master-d- Nybegynder

02. april 2003 - 18:43 #17

Kan du få det til at virke ??

Synes godt om

caroc Praktikant

02. april 2003 - 18:51 #18

jeps det virker perfekt :)
mange tak..

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	I går 15:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS