Sv: Databasregisterutskick via CDONTS

Databasregisterutskick via CDONTS

Postades av 2001-12-19 03:06:27 - Toni Cederholm, i forum asp - allmänt, Tråden har 1 Kommentarer och lästs av 858 personer

Hej!
Jag har ett problem. Jag har tidigare använt mig av CDONTS och det fungerade utmärkt. Men tidigare använde jag mig av ett utskick i form av HTML format som jag inte förändrade i utseende mer än vissa variablar.
Nu kommer vi till mitt problem. I dag så använder jag mig av ett medlemsregister och detta register har jag i en Access-databas. Vad jag vill åstadkomma är att skicka hela registret till våra medlemmar i ett HTML format, med hjälp av CDONTS.
Då listan förändras dagligen kan jag inte använda mig av en ”färdig HTML” sida med Request.form(”txtNamn”) osv. Databasanropet skapar sidan ”dynamiskt” efter de villkor som SELECT satsen använder sig av.
Finns det någon teknik som jag kan använda mig av ?
Tack på förhand / Toni C

Här kommer min tidigare ASP sida:

<html>
<head>
<title> » hemma » </title>
</head>
<body bgColor="#f0cd00" leftmargin="3" topmargin="3" marginwidth="3" marginheight="3">
<h3> 

<%
Dim objCDO,HTML
Set objCDO = Server.CreateObject("CDONTS.NewMail")

HTML = HTML & "<HTML></HEAD><BODY bgcolor=""#f0cd00""><TABLE style=""WIDTH: 591px"" cellSpacing=""0"" cellPadding=""5"" width=""591"" border=""0"">"
HTML = HTML & "<TR><TD style=""BACKGROUND-COLOR: black"" colSpan=""2"" background=""http://www.hemma.net/gg/img/linje.jpg"">"
HTML = HTML & ""
HTML = HTML & "hemma: " & Request.Form("caption") & "! " & Request.Form("title") & "...... Inskrivningsdatum: " & date() & " "
HTML = HTML & "www.GULDGRUVAN.net</TD></TR><TR>"
HTML = HTML & "<TD style=""BACKGROUND-COLOR: black"" colSpan=""2"">"
HTML = HTML & ""
HTML = HTML & "<div align=""center""><IMG style=""WIDTH: 512px; HEIGHT: 130px"" height=""130"" hspace=""0"" src=""http://www.hemma.net/gg/img/main.jpg"" width=""512"" border=""0""></div></TD></TR><TR>"
HTML = HTML & "<TD style=""BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: black"">"
HTML = HTML & "LÖSENORD: " & Request.Form("rand")& " </TD>"
HTML = HTML & "<TD style=""BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: black"">"
HTML = HTML & "hemmaERA MERA:</TD></TR><TR>"
HTML = HTML & "<TD style=""BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: black"">"
HTML = HTML & "Tack för er hemma " & Request.Form("name") & "! "
HTML = HTML & " Här ovan finns Ert lösenord som ni ska uppge"
HTML = HTML & " när ni vill ta bort er hemma."
HTML = HTML & "(OBS! Lösenordet består endast av siffror) </TD>"
HTML = HTML & "<TD style=""BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: black"">"
HTML = HTML & "Ni har obegränsat antal hemmaer på GG i de olika kategorierna. Vällkommna åter!"
HTML = HTML & " </TD></TR><TR>"
HTML = HTML & "<TD style=""BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: black"">"
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & " GÅ TILL TABORT-SIDAN</TD>"
HTML = HTML & "<TD style=""BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: black"">"
HTML = HTML & ""
HTML = HTML & " GÅ TILL hemma-SIDAN</TD></TR></TABLE></BODY></HTML>"

objCDO.To = "jag@hemma.net"
objCDO.From = "du@hemma.net"
'objCDO.bcc = " dem@hemma.net "
objCDO.BodyFormat = 0
'objCDO.MailFormat = 0
objCDO.Subject = "Medlemsbrev"
objCDO.Body = HTML
objCDO.Send
set objCDO = nothing
%>
</h3>
</body>
</html>

Svara