4 svar · 264 visningar · startad av AboO
Jag har ett litet skript som lägger in namn och e-post i en databas och som sedan räknar hur många namn det finns i databasen.
Nu vill jag ta bort räknaren och göra så den visar namnen som finns i databasen istället. Jag har läst igenom en del artiklar som tar upp saker som det här men jag får det ändå inte att fungera.
Jag postar koden också så kan ni ju ta en titt.
-
- "Räknaren som jag vill ska visa namnen istället för att räkna dom" -
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/anmal.mdb")&";"
Set RecSet = Conn.Execute("SELECT Count(*) As name FROM anmal")
%>
<%=RecSet("name")%> st intresserade.
<%
RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing
%>
- "Lägger in namn + epost i databasen" -
<!-- #include file="adovbs.inc" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/anmal.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From anmal"
RecSet.Open Addera, Conn, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("mail") = Request.Form("mail")
RecSet("name") = Request.Form("name")
Session("reggat") = "Tack!"
RecSet.Update
RecSet.Close
Response.Redirect "count.asp"
%>
- "Formuläret" -
<form name="anmal" method="post" action="spara.asp" onSubmit="return CheckForm();">
Ditt namn:<br>
<input type="text" name="name">
<br>Din epostadress:
<br>
<input type="text" name="mail">
<br>
<input type="submit" value="Skicka!">
</form>
-
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/anmal.mdb")&";"
Set RecSet = Conn.Execute("SELECT DISTINCT name FROM anmal ORDER BY name")
while not RecSet.eof
Response.write RecSet("name") & "<br>"
RecSet.movenext
wend
' stäng recordset, databas, osv
%>
Det vore också bra om du undvek [php]-taggarna för asp-kod, då färgkodningen ger sämre läsbarhet.
Mvh
Du specar ju inga kolumner, men något liknande kanske:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/anmal.mdb")&";"
Set RecSet = Conn.Execute("SELECT * FROM anmal")
If Not RecSet.EOF then
Do until recset.EOF
Response.write RecSet(0) &" : "& RecSet(1) &"<br>"
RecSet.movenext
Loop
else
Response.write "Inget att visa"
end if
RecSet.Close : Set RecSet = Nothing
Conn.Close : Set Conn = Nothing
%>
Tack så mycket.