Send den valgte vitser !

Hvilken mailkomponent har du adgang til?

Jmail

Har du dine vitser i en database?

jeps

Hvordan bestemmer du hvilken database der skal vises ?

database = vits

<%
strSQL = \"SELECT * From vits where id = \" & rid
Set rs = myConn.Execute(strSQL)
%>

set msg = server.createobject(\"JMail.Message\")

blabla...

msg.body = rs(\"body\")

eller rs(\"vits\") eller hvad feltet nu hedder!

Sendvits.asp

<html>
<body>

<%
If Request.Form.Item(\"Rid\") > 0 Then

<%
\'Connecet m.m.
strSQL = \"SELECT * From vits where id = \" & rid
Set rs = myConn.Execute(strSQL)
body = rs(\"Vitstekst\")
rs.Close
Set rs = Nothing
conn.close
Set conn = Nothing
%>

set msg = Server.CreateOBject(\"JMail.Message\")
msg.Logging = true
msg.silent = true
msg.From = \"webmaster@ditsite.dk\"
msg.FromName = \"Vits fra ditsite.dk\"
msg.AddRecipient Request.Form.Item(\"tilEmail\")
msg.Subject = \"Vits sendt til dig fra ditsite.dk\"
msg.body = Request.Form.Item(\"Afsender\") &  \" syntes at du skulle have denne vits:\" & vbcrlf & body \'Put dit eget feltnavn ind her
if not msg.Send(\"mail.dinmailserver.dk\" ) then
    Response.write \"<pre>\" & msg.log & \"</pre>\"
else
    Response.write \"Vitsen er nu sendt til din ven!\"
end if
Set msg = Nothing

Else

%>
<form action=\"<%= REquest.ServerVariables.Item(\"SCRIPT_NAME\")%>\" method=\"post\">
<input type=\"hidden\" value=\"<%=Request.Querystring.Item(\"rid\")%>\" name=\"rid\"/>
Modtager Email: <input type=\"text\" name=\"tilEmail\"/><br/>
Afsender: <input type=\"text\" name=\"Afsender\"/><br/>
<input type=\"submit\" value=\"send\">
</form>
<%
End if
%>
</body>
</html>

Og på dine vits sider laver du så et link sådan her:

<a href=\"Sendvits.asp?rid=x\">Send til en ven</a>

Hvor x skal være vitsnummeret

hvorfor er frivserverplads.dk rigtige langsom ?

Fordi deres servere er for overbelastede.  Formlen er som følger:

Gratis service  = ingen penge = dårligt/lidt udstyr
Gratis service  = mange brugere = stort load

Altså stort load på dårligt udstyr, ikke smart.

ok jeg får problemer når jeg trykker på send \"Siden kan ik vises\"....

Mere specifik fejlmeddelelse ville være rart?

den medler ik nogen fejl...

mddler = meddeler

du kan se min script her:

http://www.web-zone.dk/lunddk/citat2.asp?kategori=Liv%20og%20død

prøv at trykke på send til en ven, så får jeg \"siden kan ik vises\"

hvis du vil ha mit script så skrive lige eller kontakt mig på icq...100464278

Og du er sikker på at du har lagt filen op i biblioterket lunddk?

jeps :o)

vil du ha script af citat2.asp og send.asp ?

Er der en form for caching på din webserver?

caching > hvad er det ?

Caching betyder at man gammer noget indhold og på den måde sparer maskinkraft ved ikke at skulle omklring database eller lign. for at vise noget indhold der alligevel lige er blevet genereret

det ved jeg ik jeg har mit domain hos azero.dk !!

Det lyder meget underligt at der udsendes en 404 hvis filen er der.

her er scripten til citat2.asp
------------------------
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

kategori = request.querystring(\"kategori\")
mode = request.querystring(\"mode\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * From citat where kategori = \'\" & kategori & \"\'\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 2
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
    %>
                </font></p>
            </div>
            <table width=\"94%\" height=\"8\" cellspacing=\"1\" align=\"center\" cellpadding=\"2\" border=\"0\" bgcolor=\"#CCCCCC\">
              <tr bgcolor=\"#FFFFFF\">
                <td valign=\"top\" width=\"120\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Navn:</font></td>
                <td valign=\"top\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
                  <%= rs(\"navn\") %></font></td>
              </tr>
              <tr bgcolor=\"#FFFFFF\" valign=\"top\">
                <td width=\"120\" height=\"22\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Citat
                  af:</font></td>
                <td height=\"22\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
                  <%= rs(\"citataf\") %></font></td>
              </tr>
              <tr bgcolor=\"#FFFFFF\" valign=\"top\">
                <td width=\"120\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Citat</font></td>
                <td> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
                  <%= rs(\"citat\") %> <a href=\"send.asp?id==<%= rs(\"id\") %>\"><font size=\"1\">(Send
                  til en ven)</font></a></font></td>
              </tr>
            </table>
                                           
            <% intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
                   
Response.Write \"<p>\"
For intNum = 1 To intPageCount
    Response.Write \"<center><font face=Verdana, Arial, Helvetica, sans-serif size=2> <a href=citat2.asp?kategori=\" & request(\"kategori\") & \"&page=\" & intNum & \">Side \" & intNum & \"</a></font></center>\"
Next

If Clng(intPage) < Clng(intPageCount) Then
Else
End If
%>

her er scripten til send.asp
------------------------
<%
If Request.Form.Item(\"id\") > 0 Then

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
strSQL = \"SELECT * From citat where id = \" & id
Set rs = myConn.Execute(strSQL)
body = rs(\"Citat\")
rs.Close
Set rs = Nothing
conn.close
Set conn = Nothing
%>
<%
set msg = Server.CreateOBject(\"JMail.Message\")
msg.Logging = true
msg.silent = true
msg.From = \"webmaster@web-zone.dk\"
msg.FromName = \"Citat fra web-zone.dk\"
msg.AddRecipient Request.Form.Item(\"tilEmail\")
msg.Subject = \"Citat sendt til dig fra web-zone.dk\"
msg.body = Request.Form.Item(\"Afsender\") &  \" syntes at du skulle have denne Citat:\" & vbcrlf & body \'Put dit eget feltnavn ind her
if not SMTPserver(\"websmtp.web-zone.dk\" ) then
    Response.write \"<pre>\" & msg.log & \"</pre>\"
else
    Response.write \"Citat er nu sendt til din ven!\"
end if
Set msg = Nothing

Else

%>
<form action=\"<%= REquest.ServerVariables.Item(\"SCRIPT_NAME\")%>\" method=\"post\">
<input type=\"hidden\" value=\"<%=Request.Querystring.Item(\"id\")%>\" name=\"id\"/>
Modtager Email: <input type=\"text\" name=\"tilEmail\"/><br/>
Afsender: <input type=\"text\" name=\"Afsender\"/><br/>
<input type=\"submit\" value=\"send\">
</form>
<%
End if
%>
</body>
</html>

.