Sende en mail når jeg har rettet
Her kan jeg godkende en kommentar, og så er det meningen at når jeg har godkendt, klikker på "Ret kommentar" at den så sender en mail afsted. men lige nu virker det ikke... når jeg åbner siden går den med det samme til denne: response.write "<br><br><p>Du har nu oprettet en kommentar,.....Koden:
if request.form("update") <> "" then
strSQL = "update kommentar set efternavn='"&request.form("efternavn")&"', forfos1='"&request.form("forfos1")&"', for2='"&request.form("for2")&"', forfos2='"&request.form("forfos2")&"', adresse='"&request.form("adresse")&"',postnr='"&request.form("postnr")&"', fby='"&request.form("fby")&"', telefon='"&request.form("telefon")&"', email='"&request.form("email")&"', fornavn='"&request.form("fornavn")&"', dato='"&request.form("dato")&"', holdnr='"&request.form("holdnr")&"' where id = " & request.querystring("id")
Set rs = DataConn.Execute(strSQL)
end if
strSQL = "Select * From kommentar Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)
Alert = "Kommentaren er nu opdateret"
set rs = DataConn.Execute("SELECT @@IDENTITY AS nytID")
if not rs.eof then
nytID = rs("nytID")
else
nytID = 0
end if
rs.close
if nytID > 0 then
if Request.Form("update") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject( "CDONTS.NewMail" )
' Her sættes afsender navn og e-mail adresse
' Afsenders mailserver RETTES TIL
objCDO.Host = "mailout.b-one.net"
objCDO.From = "info@jobselect.dk"
' Her sættes modtager navn og e-mail adresse
objCDO.To = Request.Form("email")
' Her sættes overskriften på mailen
objCDO.Subject = "Du har oprettet en kommentar på jobselect.dk blog."
objCDO.BodyFormat = 0
objCDO.Body = "<html><body><BR><FONT SIZE='2' face='Verdana'>Kære "& Request.Form("efternavn") &"<br><br>Din kommentar er nu godkendt og kan læse på .<br><br>Med venlig hilsen jobselect.dk</body></html>"
' Send e-mail og skriv status
objCDO.Send
' Fjern objekt igen
Set objCDO = Nothing
end if
else
' Vis en fejlmeddelese
end if
response.write "<br><br><p>Du har nu oprettet en kommentar, vi læser den igennem og du vil modtage en mail hvis din kommantar bliver godkendt. <br>Tak for din tid.<br><br>jobselect.dk<br><br> <CENTER><a href='default.asp'>TILBAGE</a></CENTER>"
response.End 'stopper koden her
'Viser formen
%>
<B>Her kan du rette i en kommentar.</B><BR><BR>
<center>
<form method="post" action="retkommentar.asp?id=<%=request.querystring("id")%>">
<TABLE >
<TR>
<TD>Forfatterens navn: </TD>
<TD><input type="text" name="efternavn" value="<%=rs("efternavn")%>" class="Formindhold" size="40"></TD>
</TR>
<TR>
<TD>Email:</TD>
<TD><input type="text" name="email" value="<%=rs("email")%>" class="Formindhold" size="40"></TD>
</TR><TR>
<TD>Emne:</TD>
<TD><input type="text" name="telefon" value="<%=rs("telefon")%>" class="Formindhold" size="40"></TD>
</TR>
<TR>
<TR>
<TD>Overskriften:</TD>
<TD><input type="text" name="adresse" value="<%=rs("adresse")%>" class="Formindhold" size="40"></TD>
</TR>
<TR>
<TD>Indlæg:</TD>
<TD><textarea name="postnr" rows="7" cols="60" class="Formindhold" ><%=rs("postnr")%></textarea></TD>
</TR>
<TD>Godkendt:</TD>
<TD><select name="fby" class="Formindhold" >
<option value="<%=rs("fby")%>"><%=rs("fby")%></option>
<option value="ja">ja</option>
<option value="nej">nej</option>
</select></TD>
</TR>
</TABLE>
<BR><BR>
<INPUT TYPE='submit' NAME='update' value='Ret Kommentar' class='knap'><BR><BR>
</form>
