Søg
Avatar billede caroc Praktikant
19. januar 2003 - 00:39 Der er 46 kommentarer og
2 løsninger

Maillingliste problem

Jeg er ved at lave en funktion hvor man kan se samtlige tilmeldte af ens maillingliste og bruger følgende kode - men hvad er der galt?

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("maillingliste.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from maillingliste"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("navn") & ("email" & "<br>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede erikjacobsen Ekspert
19. januar 2003 - 00:42 #1
Response.Write rs("navn") & rs("email") & "<br>"
Avatar billede nilfri Nybegynder
19. januar 2003 - 00:42 #2
Hvad sker der/ikke?
Avatar billede caroc Praktikant
19. januar 2003 - 00:43 #3
får stadig fejl..
http://www.friserverplads.dk/warner/Programmering/CMS/maillingliste/tilmeldte.asp
Avatar billede caroc Praktikant
19. januar 2003 - 00:51 #4
på line 61
Avatar billede erikjacobsen Ekspert
19. januar 2003 - 00:53 #5
Hvad er linie 61?
Avatar billede caroc Praktikant
19. januar 2003 - 00:54 #6
det er:
Response.Write rs("navn") & rs("email") & "<br>"
Avatar billede erikjacobsen Ekspert
19. januar 2003 - 00:54 #7
(Nå ja, jeg får ikke den fejl. Jeg får denne i stedet for:

HTTP/1.1 302 Object moved
Server: Microsoft-IIS/5.0
Date: Sat, 18 Jan 2003 23:51:56 GMT
Location: fejl.asp
Content-Length: 129
Content-Type: text/html
Set-Cookie: ASPSESSIONIDAARSSQSC=BNPEHOGDMBMBLFEPFIELDFBH; path=/
Cache-control: private

<head><title>Object moved</title></head>
<body><h1>Object Moved</h1>This object may be found <a HREF="fejl.asp">here</a>.</body>
Avatar billede erikjacobsen Ekspert
19. januar 2003 - 00:55 #8
Hvad siger den om fejlen?
Avatar billede caroc Praktikant
19. januar 2003 - 00:55 #9
error '80020009'
Exception occurred.

/warner/Programmering/CMS/maillingliste/tilmeldte.asp, line 61
Avatar billede niceday Nybegynder
19. januar 2003 - 00:55 #10
Prøv:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("maillingliste.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from maillingliste"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do Until rs.EOF

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("navn") & ("email" & "<br>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede caroc Praktikant
19. januar 2003 - 00:57 #11
niceday --> nope virkede ikke :(
Avatar billede erikjacobsen Ekspert
19. januar 2003 - 00:57 #12
Du bør gøre som niceday foreslår (da din ikke vil virke, når
der ikke er nogen i listen). Men linien skal nu være som jeg skrev den
Avatar billede niceday Nybegynder
19. januar 2003 - 00:57 #13
Altså med i stedet for den ovenstående linie:
Response.Write rs("navn") & rs("email") & "<br>"

Desuden tyder fejlen på at du referer til en kolonne der ikke findes.
Avatar billede caroc Praktikant
19. januar 2003 - 00:58 #14
screenshot af min database (ved ikke om den er rigtigt sat op - er lidt newbie)
http://www.friserverplads.dk/warner/Programmering/CMS/maillingliste/mail.jpg
Avatar billede erikjacobsen Ekspert
19. januar 2003 - 00:59 #15
Response.Write rs("Navn") & rs("Email") & "<br>"
Avatar billede caroc Praktikant
19. januar 2003 - 01:04 #16
nu kommer der ingen fejl men heller ikke noget tekst - selvom jeg har oprettet en tilmeldt i databasen..
http://www.friserverplads.dk/warner/Programmering/CMS/maillingliste/tilmeldte.asp
Avatar billede niceday Nybegynder
19. januar 2003 - 01:06 #17
Prøv nedenstående kode - og indsæt lige stien til din database. Nogle gange løses et problem ved at lave tingene om:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=...fysisk sti til databasen...\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
sql = "Select * from maillingliste"
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sql,conn, 3, 3, 1
%>

<html>

<head>
<title>Tilmedte</title>
</head>

<body>

<table width="500" border="0" cellspacing="0" cellpadding="0">
<%
Do until RS.EOF
%>
  <tr>
    <td width="250"><%=RS("Navn")%></td>
    <td width="250"><%=RS("Email")%></td>
  </tr>
<%
RS.movenext
Loop
%> 
</table>
</body>

</html>
Avatar billede erikjacobsen Ekspert
19. januar 2003 - 01:06 #18
Har du lagt databasen op ? Kan du se om den skriver "<br>"-en ud?
Avatar billede caroc Praktikant
19. januar 2003 - 01:11 #19
niceday--> virkede heller ikke
erik--> forstår ikek hlet hvad du mener??
databasen ligger her: http://www.friserverplads.dk/warner/Programmering/CMS/maillingliste/maillingliste.mdb
Avatar billede niceday Nybegynder
19. januar 2003 - 01:13 #20
Jeg har lige testet koden på en Access 2000, hvor det virkede, så er du SIKKER på at du har de rigtige kolonnenavne (du har f.eks. stavet maillingliste med 2 l'er) og at der ligger en database i det bibliotek du hentyder til. Med den kode du startede med kræves der at databasen ligger i samme bibliotek som din kode.
Avatar billede nilfri Nybegynder
19. januar 2003 - 01:14 #21
Hvor ligger dit script - hvilken folder?
Avatar billede erikjacobsen Ekspert
19. januar 2003 - 01:14 #22
Jeg gætter bare på at din database er tom - kan ikke selv
checke det (har ikke adgang til Access)
Avatar billede caroc Praktikant
19. januar 2003 - 01:15 #23
nilfri --> http://www.friserverplads.dk/warner/Programmering/CMS/maillingliste/tilmeldte.asp
Avatar billede niceday Nybegynder
19. januar 2003 - 01:16 #24
Databasen er tom - har lige tjekket det
Avatar billede niceday Nybegynder
19. januar 2003 - 01:17 #25
Og så tyder det på den er skrivebeskyttet, hvorfor du IKKE kan ændre i den online.
Avatar billede nilfri Nybegynder
19. januar 2003 - 01:17 #26
Jeg kan ikke se poster i den linkede db og tabel maillingliste (du er da konsekvent med den stavefjel ;-)
Avatar billede caroc Praktikant
19. januar 2003 - 01:21 #27
niceday--> hvordan kan jeg gøre så den ikke er skrivebeskyttet?
Avatar billede niceday Nybegynder
19. januar 2003 - 01:22 #28
Højreklik på > vælg egenskaber og fjern krydset ved 'Skrivebeskyttet'
Avatar billede caroc Praktikant
19. januar 2003 - 01:25 #29
den er ikke skrivebeskyttet
Avatar billede nilfri Nybegynder
19. januar 2003 - 01:27 #30
Nå, men nu er der da data i...
Avatar billede niceday Nybegynder
19. januar 2003 - 01:30 #31
og tabellen er stavet rigtigt
Avatar billede caroc Praktikant
19. januar 2003 - 01:32 #32
:) jeps tænkt ejeg lige måtte rette det..

prøv at køre det helt fra starten: www.friserverplads.dk/warner/programmering/cms/admin.asp
kodenavn: admin
password: admin
og så tryk på "se tilmeldte"
Avatar billede niceday Nybegynder
19. januar 2003 - 01:34 #33
Jeg kan ikke se tilmeldte - filen findes ikke.

Men ovenstående kode jeg skrev virker fint: http://www.megastar.dk/tester

Indhold i filen:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=c:\...fysisk sti...\maillingliste.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
sql = "Select * from mailingliste"
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sql,conn, 3, 3, 1
%>

<html>

<head>
<title>Tilmedte</title>
</head>

<body>



<table width="500" border="0" cellspacing="0" cellpadding="0">
<%
Do until RS.EOF
%>
  <tr>
    <td width="250"><%=RS("Navn")%></td>
    <td width="250"><%=RS("Email")%></td>
  </tr>
<%
RS.movenext
Loop
%> 
</table>
</body>

</html>
Avatar billede nilfri Nybegynder
19. januar 2003 - 01:39 #34
>>> caroc: har du renamet hele vejen, eller kun delvist?

Der er jo både kode, mdb, sti etc...
Avatar billede caroc Praktikant
19. januar 2003 - 01:41 #35
kan ikke helt forstå den der data Source.. hvordan skal den skrives hvis de ligger i samme mappe?
Avatar billede caroc Praktikant
19. januar 2003 - 01:41 #36
nilfri--> hele vejen .)
Avatar billede niceday Nybegynder
19. januar 2003 - 01:42 #37
Så, pakket i zip og virker 100% - husk lige at ændre stien til databasen.

Download her:
http://www.megastar.dk/tester/mailing.zip
Avatar billede nilfri Nybegynder
19. januar 2003 - 01:44 #38
Hvis script og db ligger samme sted, er det fint nok nu
Server.MapPath("maillingliste.mdb")

eller velsagtens
Server.MapPath("mailingliste.mdb")
-------------------^ ;-)
Avatar billede caroc Praktikant
19. januar 2003 - 01:49 #39
det er simpelthen for mærkeligt ...
det virker stadig ikke - der opstod en intern HTTP 500-serverfejl
Avatar billede niceday Nybegynder
19. januar 2003 - 01:50 #40
Har du prøvet at downloade min zip-fil og brugt de 2 filer der er i den?
Avatar billede caroc Praktikant
19. januar 2003 - 01:51 #41
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=("mailingliste.mdb)" ;Provider=Microsoft.Jet.OLEDB.4.0;"
sql = "Select * from mailingliste"
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sql,conn, 3, 3, 1

Do until RS.EOF
Response.Write rs("Navn") & " --- " & rs("Email") & "<br>"
RS.movenext
Loop
%>
Avatar billede niceday Nybegynder
19. januar 2003 - 01:56 #42
datasource er forkert
Avatar billede caroc Praktikant
19. januar 2003 - 01:58 #43
hvordan så?
Avatar billede niceday Nybegynder
19. januar 2003 - 02:07 #44
<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open(Server.Mappath("mailingliste.mdb"))
sql = "Select * from mailingliste"
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sql,conn, 3, 3, 1

Do until RS.EOF
Response.Write rs("Navn") & " --- " & rs("Email") & "<br>"
RS.movenext
Loop
%>


Database og asp-filen skal ligge i samme mappe - bemærk filnavnet på databasen skal staves rigtigt.
Avatar billede caroc Praktikant
19. januar 2003 - 02:09 #45
det virkede----- JUBII
det tog også kun 45 indlæg .)
mange tak skal i have begge 2 - sætter lige lidt extra point på
Avatar billede niceday Nybegynder
19. januar 2003 - 02:10 #46
Endelig :-)

Sjældent har jeg undret mig så længe over at det ikke ville virke.
Avatar billede caroc Praktikant
19. januar 2003 - 02:15 #47
sov godt..
Avatar billede niceday Nybegynder
19. januar 2003 - 02:25 #48
ilm
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
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 21/09/202615: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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
27/0916:43 Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »