ASP

www.asp.dk (netcoders)
www.activeserverpages.dk
det er de 2 sider som er du bedste i danmark med ASP og så er der jo Eksperten.dk, her kan du altid få hjælp!

hejsa Dennis,

start med og download en del sourcecodes fra netcoders.dk, kig dem igennem ret lidt hist og her og se om du kan forstå koden.....jo mere du forstår jo mere skal du rette i scriptet...jeg har selv lært en del på den måde!

M.h.t bøger kan jeg anbefale Active Server Pages for dummies, jeg går også selv i 8 og kan sagtens læse den!

-/Bjarke

hvad står rs for? altså i ASP-koder..

HMM det ved jeg ikke, men det plejer at bruges når man åbner en tabel fra en Access DB...
Ud kan også kalde dem andet end rs, det gør jeg nogle gange så jeg kan finde rundt i filerne :)

zeropaq.dk -> for det meste vil <%=Rs(\"feltnavn\")%>

Trække et felt ud fra en acces db

Okay :-)

Hvis du skal bruge en dansk ASP bog der starter helt fra bunden af, burde du nok kigge nærmere på \"ASP - Active Server Pages\" fra IDG ... http://www.bookworld.dk/Vis_produkt.asp?ISBN=87-7843-361-4

Ellers kan anbefales \"Beginning Active Server Pages\" fra Wrox ... godt nok på engelsk.

LCC.. hehe ;-)

Jeg var faktisk inde at kigge på den bog så sent som igår..

Tjaa jeg har da den bog, jeg har bare ikke læst den endnu, men den er vist for begyndere, så jeg har ikke så meget at bruge den til :(

http://netstuff.dk/dennis/tagwall.asp

<-- hvad går galt?

koden ser sådan ud:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"tagwallen.mdb\")
strSQL = \"select* from tagwallen ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"verdana\"\" size=\"\"2\"\">Tagwallen er tom :-(</font>\"
else
Do Until rs.EOF
%>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"100%\"><a href=\"<%=RS(\"mail\")%>\"><%=RS(\"navn\")%></a><br>
    <a href=\"<%=RS(\"hjemmeside\")%>\"><%=RS(\"hjemmeside_titel\")%></a><br>
    Skrevet <%=RS(\"dato\")%><br>
    Brugerens:<br>
    IP: <%=RS(\"ip\")%><br>
    ICQ: <%=RS(\"icq\")%>
    </td>
  </tr>
</table></font>

du mangler lige til sidst så den sætter alle beskederne i tagwallen ind:
<%
rs.MoveNext
Loop
end if
%>

her er en lidt sværere.. eller i hvert fald længere..

det er noget med knappen, der ikke sætter det igang den skal.. koden ser sådan ud:

<% mode = request(\"function\") %>
<% if mode = \"\" then %>
<html><head>
  <title>Tagwallen</title>
</head>


<body bgcolor=\"#C0C0C0\">


<form action=\"skriv.asp?function=save_data\" method=\"POST\" class=\"css\" name=\"\">
</form>


<p align=\"center\">
<font face=\"Verdana\" font size=\"2\"><b>Tagwallen<br>
</b>
</font>
    <div align=\"center\"><center><table border=\"0\" cellpadding=\"2\"
    cellspacing=\"0\" width=\"93%\" height=\"274\">
        <tr>
            <td align=\"left\" width=\"57%\" valign=\"top\" height=\"25\"><font face=\"Verdana\" font size=\"2\"><b>Navn:</b></font></td>
            <td width=\"60%\" height=\"25\"><font face=\"Verdana\" size=\"2\"><b><INPUT TYPE=\"text\" NAME=\"Navn\" class=\"css\" size=\"20\"></b></font></td>
        </tr>
        <tr>
            <td align=\"left\" width=\"57%\" valign=\"top\" height=\"25\"><font face=\"Verdana\" font size=\"2\"><b>E-mail:</b></font></td>
            <td width=\"60%\" height=\"25\"><font face=\"Verdana\" size=\"2\"><b><INPUT TYPE=\"text\" NAME=\"mail\" class=\"css\" size=\"20\"></b></font></td>
        </tr>
        <tr>
            <td align=\"left\" width=\"37%\" valign=\"top\" height=\"25\"><font font face=\"Verdana\" size=\"2\"><b>Titel
              på hjemmeside:</b></font></td>
            <td width=\"80%\" height=\"25\"><font face=\"Verdana\" size=\"2\"><b><INPUT TYPE=\"text\" NAME=\"hjemmeside_titel\" class=\"css\" size=\"20\"></b></font></td>
        </tr>
        <tr>
            <td align=\"left\" width=\"37%\" valign=\"top\" height=\"19\"><font face=\"Verdana\" font size=\"2\"><b>Hjemmeside:</b></font></td>
            <td width=\"80%\" height=\"19\"><font face=\"Verdana\" size=\"2\"><b><INPUT TYPE=\"text\" NAME=\"Hjemmeside\" class=\"css\" size=\"20\" value=\"http://\"></b></font></td>
        </tr>
        <tr>
            <td align=\"left\" width=\"37%\" valign=\"top\" height=\"25\"><font face=\"Verdana\" font size=\"2\"><b>ICQ
              nummer:</b></font></td>
            <td width=\"80%\" height=\"25\"><font face=\"Verdana\" size=\"2\"><b><INPUT TYPE=\"text\" NAME=\"icq\" class=\"css\" size=\"20\"></b></font></td>
        </tr>
        <tr>
            <td align=\"Left\" valign=\"top\" width=\"37%\" height=\"100\"><font face=\"Verdana\" font size=\"2\"><b>Besked:</b></font></td>
            <td valign=\"top\" width=\"80%\" height=\"100\">
            <font face=\"Verdana\" font size=\"2\">
            <b>
            <textarea name=\"tag\" rows=\"4\"
            cols=\"40\" class=\"css\"></textarea></b></font></td>
        </tr>
        <tr>
            <td width=\"37%\" height=\"27\"></td>
            <td width=\"80%\" height=\"27\"><font face=\"Verdana\" font size=\"2\"><b><input type=\"submit\"
    name=\"submit\" value=\"Tilf&oslash;j\" class=\"css\"> </b></font></td>
        </tr>
    </table>
    </center></div>
<p align=\"center\">
<font face=\"Verdana\" size=\"2\"><b>
</form>
<% end if %>
<% if mode = \"save_data\" then %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"gaestebog.mdb\") & \";UID=admin;PWD=hehe;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From gaestebogen\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"navn\") = Request.form(\"navn\")
      rs(\"mail\") = Request.form(\"mail\")
      rs(\"hjemmeside\") = Request.form(\"hjemmeside\")
      rs(\"hjemmeside_titel\") = Request.form(\"hjemmeside_titel\")
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"tag\") = Request.form(\"tag\")
      rs(\"dato\") = Now()
      rs(\"ip\") = request.servervariables(\"remote_Addr\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect(\"tak.asp\")
%>
<% end if %>
</b></font>

http://www.netstuff.dk/dennis/skriv.asp

du har jo først en if sætning som lige chekker om der er nogle beskeder i tagwallen, hvis den er skriver den \"Tagwallen er tom\".
så dernæst skriver du else fordi så går den videre og udskriver resten hvis der er noget i tagwallen, lige efter else skal du have Do Until rs.EOF fordi så begynder den at udskrive alt data\'en!
så laver du ellers dine felter og slutter af med:
<%
rs.MoveNext
Loop
end if
%>
for så indsætter den alle data\'erne på siden!

håber du forstod det, jeg er lidt dårlig til at forklare :)

tpill > altså skal dette loop-halløj også med i skriv.asp

btw,... har du ICQ?

du lukker formen for tidligt:
<form action=\"skriv.asp?function=save_data\" method=\"POST\" class=\"css\" name=\"\">
</form>
(står der i ca. 10. linie)
du skal bare skrive:
<form action=\"skriv.asp?function=save_data\" method=\"POST\">

jepper selvfølgelig:
73543734

Jeg har givet pointsene efter hvad jeg kunne bruge det til :o)

TPiil har været en kanon hjælp!