13 svar · 239 visningar · startad av [AMD]Zmaster
Hejsan, jag har en databas som heter databas.mdb, i den finns det en som heter "nyhetsbrev".
I tabellen finns det 2 fält, ett ID och ett som heter "email".
Hur skriver jag nu en sida som hämtar alla emailadresser och skriver ut dem 1 på varje rad?
<%
SQL = "SELECT * FROM nyhetsbrev Order BY id"
set rs = connect.Execute(SQL)
response.write email & "<br>"
%>
Räcker den lilla kodsnutten??
![[AMD]Zmasters avatar](/av/3411.gif)
<%
Dim objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
Dim objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")
Do until objRs.EOF
Response.Write(objRs("email") & "<br>")
objRs.MoveNext
Loop
Set objRs = Nothing
Set objConn = Nothing
%>
Josef:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/test/index.asp, line 2
Dim objConn = Server.CreateObject("adodb.Connection")
------------^
Men josef då ;)
<%
Dim objConn
objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
Dim objRs
objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")
Do until objRs.EOF
Response.Write(objRs("email") & "<br>")
objRs.MoveNext
Loop
Set objRs = Nothing
Set objConn = Nothing
%>
Hmm, verkar som det ändå inte vill funka:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/test/index.asp, line 4
Oki, men vad är felet i alj's senaste inlägg?
Set objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")
<%
Dim objConn
objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
Dim objRs
Set objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")
Do until objRs.EOF
Response.Write(objRs("email") & "<br>")
objRs.MoveNext
Loop
Set objRs = Nothing
Set objConn = Nothing
%>
Var det så du menade så fungerar inte det :(
<%
Dim objConn
[b]Set[/b] objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
Dim objRs
Set objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")
Do until objRs.EOF
Response.Write(objRs("email") & "<br>")
objRs.MoveNext
Loop
Set objRs = Nothing
Set objConn = Nothing
%>
/ r
Ahh, äntligen, tack så hemskt mycket!