Jmail til NOGLE brugere
Hej - jeg er ved at lave et link-admin-modul, hvor jeg kan opdatere og poste indsendte links. Det ser efterhånden ikke sådan ud mere - men I kan danne jer et indtryk af det på: http://hjem.get2net.dk/unseen/dump.gifNedenstående kode submitter endeligt de links der er afkrydset i \"OK\"-feltet til venstre ved at trykke på \"Godkendknappen\".
Når en surfer indsender et link har han desuden muligheden for at afkrydse en \"Send mig en mail når mit link er postet\"-checkbox. Den hedder \'Confirmmail\' og er enten ja/nej i databasen.
Nu vil jeg gerne sætte Jmail til at sende sådan en mail - hvordan bliver Jmail-koden indsmeltet i nedenstående kode? Surfernes emails ligger som et hidden field ved hvert link) og RS der afgør om de vil ha\' denne mail hedder som sagt \"Confirmmail\".
<% \'--- Update link
Set Conn = Server.CreateObject \"ADODB.Connection\")
Conn.Open ConnString
values = SPLIT(request.form(\"values\"),\",\")
for i=0 to UBOUND(values)
url = request.form(\"Url\" & values(i) )
category = request.form(\"Category\" & values(i) )
rank = request.form(\"Rank\" & values(i) )
email = request.form(\"Email\" & values(i) )
SQL = \"UPDATE Links SET Url = \'\" & url & \"\', Category = \" & category & \", Rank = \" & rank & \", Dato = #\" & Now() & \"#\"
if( len(request.form(\"Tjek\" & values(i) )) > 0 ) then
SQL = SQL & \", Ok = true\"
else
SQL = SQL & \", Tjek = false\"
end if
if( len(request.form(\"Cool\" & values(i) )) > 0 ) then
SQL = SQL & \", Cool = true\"
else
SQL = SQL & \", Cool = false\"
end if
SQL = SQL & \" WHERE Id = \" & values(i)
Conn.Execute( SQL )
next
Conn.Close
Set Conn = nothing
response.redirect(\"main.asp\")
%>
