Toon posts:

[ASP] Database prob. (zoals beloofd)

Pagina: 1

Acties:

95 views sinds 30-01-2008
Reageer

maandag 25 februari 2002 19:02

Acties:

Verwijderd

Topicstarter

Hier ben ik weer, zoals ik al zei zou ik nog iets met een database willen doen...Heb een tuturial op web con gedaan...En nu ziet het er zo uit:
ASP:

<%
Dim DbConn
Dim DbConnStr
Dim DbPad
Dim RsMailList
Dim SqlMailList

Set DbConn = Server.CreateObject("Adodb.Connection")
Set RsMailList = Server.CreateObject("Adodb.Recordset")

DbPad = Server.MapPath("db/maillist.mdb")

DbConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPad

SqlMailList = "SELECT * FROM MailList"

DbConn.Open DbConnStr

RsMailList.Open SqlMailList, DbConn

If RsMailList.EOF Then
Response.Write "Helaas zijn er geen gegevens gevonden."
Else

Do Until RsMailList.EOF
Response.Write RsMailList("Naam") & " - " & RsMailList("Naam2") & "
"
RsMailList.MoveNext
Loop
End If

RsMailList.Close
DbConn.Close

Set RsMailList = Nothing
Set DbConn = Nothing
%>

Hij heet dus maillist.mdb, met daarin een tabel die MailList heet, En daarin Naam en Naam2

Ik heb dit op een gewone webserver gebruikt die asp ondersteund, en onder een brinkster host...En elke keer een interne serverfout...FFS wat is hier fout aan???

maandag 25 februari 2002 19:07

Acties:

Verwijderd

1. Wat is de foutmelding?
2. Je roept hem toch niet lokaal aan he?

3. Verder gok ik dat hij de database niet kan vinden en [edit]Hier stond onzin

maandag 25 februari 2002 19:09

Acties:

Verwijderd

Op maandag 25 februari 2002 19:07 schreef Shivo het volgende:
3. Verder gok ik dat hij de database niet kan vinden en RsMaillist.EOF doet waarschijnlijk ook niet wat je wilt. Daarvoor kun je beter If len(RsMaillist) = 0 Then gebruiken.

Daar ben ik het niet mee eens!

Je moet wel degelijk .EOF gebruiken, Len heeft hier niks mee te maken (wat zou de lengte van een Rst zijn

maandag 25 februari 2002 19:14

Acties:

Verwijderd

Topicstarter

Op maandag 25 februari 2002 19:07 schreef Shivo het volgende:
1. Wat is de foutmelding?
2. Je roept hem toch niet lokaal aan he?
3. Verder gok ik dat hij de database niet kan vinden en RsMaillist.EOF doet waarschijnlijk ook niet wat je wilt. Daarvoor kun je beter If len(RsMaillist) = 0 Then gebruiken.

1: 500, interne server fout
2: nee, online, zowel normale als brinkster
3: zo stond het in de tutorial

maandag 25 februari 2002 19:16

Acties:

Verwijderd

Op maandag 25 februari 2002 19:09 schreef KoenM het volgende:

[..]

Daar ben ik het niet mee eens! Je moet wel degelijk .EOF gebruiken, Len heeft hier niks mee te maken (wat zou de lengte van een Rst zijn )!

[edit] Ik zit niet op te letten en dingen door elkaar te halen.

maandag 25 februari 2002 19:20

Acties:

Verwijderd

Topicstarter

Hey dudes, zede code werkt wel, alleen ziet er nu zo uit:

<%option explicit%>
<html>
<head><title>List Database</title></head>
<body>
<%
dim conn,rs,x
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("db/maillist.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM maillist",conn
%>
<table border="0" width="86%" cellpadding="0" cellspacing="0">
<tr>
<%
for each x in rs.Fields
response.write("<td>" & ucase(x.name) & "</td>")
next
%>
</tr>
<%do until rs.EOF%>
<tr>
<form method="post" action="demo_db_edit.asp">
<%for each x in rs.Fields
if x.name="no" then%>

<td> </td>
<%else%>
<td><%Response.Write(x.value)%></td>
<%end if
next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>

</body>
</html>

http://www26.brinkster.com/sebl/maillist.asp

Naam:____ID____Naam2

Ik vind het best als die naam en naam 2 er boven staan, alleen niet dat die ID er nog tussen staat...

Weet iemand hier iets op?

maandag 25 februari 2002 19:22

Acties:

Verwijderd

404 page cannot be found.

maandag 25 februari 2002 19:28

Acties:

Verwijderd

code:

Do While not rs.EOF
Response.write rs("naam") & " " & rs.("naam2")
rs.MoveNext
Loop

Zoiets?

maandag 25 februari 2002 20:10

Acties:

Verwijderd

Op maandag 25 februari 2002 19:20 schreef slindenau het volgende:
rs.open "SELECT * FROM maillist",conn
[...]
Naam:____ID____Naam2

Ik vind het best als die naam en naam 2 er boven staan, alleen niet dat die ID er nog tussen staat...

Weet iemand hier iets op?

"SELECT Naam, Naam2 FROM maillist"?
De meest basale basiskennis van SQL...

maandag 25 februari 2002 20:37

Acties:

Verwijderd

Topicstarter

Op maandag 25 februari 2002 19:28 schreef Shivo het volgende:
code:
1
2
3
4
Do While not rs.EOF
Response.write rs("naam") & " " & rs.("naam2")
rs.MoveNext
Loop
Zoiets?

Nee, want er staat al IF THEN, en ELSE...Die else is dus als er wel iets staat...

dinsdag 26 februari 2002 09:30

Acties:

Verwijderd

Topicstarter

Op maandag 25 februari 2002 19:22 schreef Shivo het volgende:
404 page cannot be found.

Woeps, 29 moest 26 zijn, maar weet iemand nu hoe ik die ID weg kan krijgen???

dinsdag 26 februari 2002 10:37

Acties:

Verwijderd

Topicstarter

YO DUDES!

Ik heb heeeeel lang (op school) aan code1 zitten klote, en toen kwam ik uit op code 2, EN DIE WEKRT NU!!!

code:

CODE1:

<%
Dim DbConn
Dim DbConnStr
Dim DbPad
Dim RsMailList
Dim SqlMailList 

Set DbConn = Server.CreateObject("Adodb.Connection")
Set RsMailList = Server.CreateObject("Adodb.Recordset") 

DbPad = Server.MapPath("db/maillist.mdb")

DbConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPad

SqlMailList = "SELECT * FROM MailList"

DbConn.Open DbConnStr

RsMailList.Open SqlMailList, DbConn

If RsMailList.EOF Then
Response.Write "Helaas zijn er geen gegevens gevonden."
Else

Do Until RsMailList.EOF
Response.Write RsMailList("Naam") & " - " & RsMailList("Naam2") & "
"
RsMailList.MoveNext
Loop
End If

RsMailList.Close
DbConn.Close

Set RsMailList = Nothing
Set DbConn = Nothing
%>

code:

CODE2

<%option explicit%>
<html>
<head><title>Umm</title>
</head>
<body>

<%
Dim DbConn
Dim DbConnStr
Dim DbPad
Dim Rsmaillist
Dim Sqlmaillist 


Set DbConn = Server.CreateObject("Adodb.Connection")
Set Rsmaillist = Server.CreateObject("Adodb.Recordset") 


DbPad = Server.MapPath("db/maillist.mdb")


DbConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPad


Sqlmaillist = "SELECT * FROM maillist"


DbConn.Open DbConnStr
%>


<%
Rsmaillist.Open Sqlmaillist, DbConn

If Rsmaillist.EOF Then
Response.Write "Leeg"
Else

Do Until Rsmaillist.EOF
Response.Write(Rsmaillist("Naam").value & " - " & Rsmaillist("Naam2").value)
Rsmaillist.MoveNext
Loop
End If
%>


<%
Rsmaillist.Close
DbConn.Close

Set Rsmaillist = Nothing
Set DbConn = Nothing
%>
</body>
</html>

dinsdag 26 februari 2002 13:53

Acties:

Verwijderd

Geen dank

.
Leuk dat je nog even meldt dat je het aan het werk hebt gekregen

Pagina: 1

Reageer