Response.write???

Jesper TMedlem sedan nov. 20017 144 inlägg

24 jan. 2002 08:09#1

Jag har ett enkelt artikelscript som lägger till "tacksidan" när den hänvisar till insert, men inte när den postar via jmail hur kan man lösa det?

<%
on error resume next
u_action=request.querystring("u_action")
u_title=replace(trim(request.form("u_title")),"'","&#39;")
u_body=replace(trim(request.form("u_body")),"'","&#39;")
u_author=replace(trim(request.form("u_author")),"'","&#39;")
u_log=request.querystring("u_log")
script_name=request.servervariables("script_name")

if u_action <> "add" then 

select case u_action 
case "insert"

sql = "insert into articles (title,body,author)"
sql = sql & " values( '" & u_title & "' , '" & u_body & "' , '" & u_author & "' )" 

case "display"
sql="select * from articles where log = "&u_log

case "post"
title = Request.Form("u_title")
body = Request.Form("u_body")
username = request.Form("username")
Set jmail = Server.CreateObject("JMail.Message")
 
jmail.AddRecipient "min@epost.com", "mottagare"
jmail.From = "min@epost.com"
Jmail.Priority = 3
jmail.Subject = "Ny insändare/artikel ifrån " & username & ""
jmail.appendHTML "<html><head></head><body><font face=verdana size=1>"
jmail.appendHTML "<h4>Insändare ifrån " & username & "</h4><br>  "
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "<b>Skickades:</b>  " & Now & "<br>"
jmail.appendHTML "<b>Användarnamn:</b>  " & username & "<br>"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "<form method=""post"" action=""http://minsida.com/article.asp?u_action=insert"">"
jmail.appendHTML "<input type=""text"" name=""u_author"" size=""25"" maxlength=""42"" value="""& username &""""&">"
jmail.appendHTML "<input type=""text"" name=""u_title"" size=""37"" maxlength=""42"" value="""& title &""""&">"
jmail.appendHTML "<textarea rows=""8"" name=""u_body"" cols=""50"">" & body & "</textarea>" &  "<br>"
jmail.appendHTML "<input type=""submit"" value=""L&auml;gg till artikeln"" name=""submit"">"
jmail.appendHTML "</font></form></body></html>"
jmail.Send( "smtp.server.com" )
Set jmail = nothing	

case else
sql="select top 10 * from articles order by date desc "
end select

accessdb="artiklar" 
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, cn

if u_action <> "insert" then
if rs.eof then
response.redirect script_name
end if
end if

if u_action="insert" or u_actions="post" then %>
<font face="tahoma, Verdana, Arial, Helvetica, sans-serif" size="2">Insändare/artikel är nu publicerad! Med Vänliga Hälsningar /Webmaster <br>
<%cn.execute "delete from articles where datediff('d',date,date()) > 7",,128 
else
osv...

OveRRidEMedlem sedan feb. 200112 078 inlägg

24 jan. 2002 08:38#2

Är det bara jag som inte förstår frågan?

Testa och ta bort

on error resume next

Det kan ställa till problem vid felsökningen. :l

------------------
"-Of all the things i´ve lost, i miss my mind the most.-Ozzy

Jesper TMedlem sedan nov. 20017 144 inlägg

24 jan. 2002 09:30#3

Jo, när användaren gör ett artikelinlägg direkt använder den "insert" annars postar scriptet artikeln med jmail, "post".
När man gör ett direktinlägg så får man en sån hära fin tacksida som säger något fint, men problemet är att skickar man med jmail så kommer denna tacksida aldrig upp.

if u_action="[b]insert[/b]" or u_actions="[b]post[/b]" then %>
<font face="tahoma, Verdana, Arial, Helvetica, sans-serif" size="2">[b]Insändare/artikel är nu publicerad! Med Vänliga Hälsningar /Webmaster[/b]

Hoppas att detta går att förstå.

MVH Jesper

[Redigerat av Jesper T den 24 jan 2002]

Jesper TMedlem sedan nov. 20017 144 inlägg

24 jan. 2002 15:03#4

Löst!
Att ta bort on error resume next var det bästa man kunde göra!