3 svar · 176 visningar · startad av crisse6
fattar inte detta problemet....kolla:
markerar rad den inte gillar!
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rstemp = Server.Createobject("ADODB.Recordset")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "select * from users where Username ='" & request.querystring("username") & "'"
Response.Write SQL
Set rsInfo = databas.execute(SQL)
If rsInfo.EOF then
Response.Write "<b>" & "det blev nog lite fel nu"
else
Do while NOT rsInfo.EOF
%>
<table cellpadding="0" cellspacing="0" width="490">
<tr>
<td width="197">
<p>
<%
If Len(rsInfo("bilder")) > 0 then
strBild = "<img src='"&rsInfo("bilder")&"'>"
Else
strBild = "<img src='bild1.jpg'>"
End If
Response.write strBild
%></p>
</td>
<td width="293">
<table cellpadding="0" cellspacing="0">
<tr>
<td width="293" bgcolor="#F7F7E7">
<p> </p>
</td>
</tr>
<tr>
<td width="293">
<p> </p>
</td>
</tr>
<tr>
<td width="293" bgcolor="#F7F7E7">
[b]<p>Namn: <%=rsInfo("namn") <%=rsInfo("Efternamn")%></p>[/b]
</td>
</tr>
hmmm.... jobbigt!
------------------
www.groda.net *kvack*, *kvack*
du öppnar ditt andra asp-block utan att avsluta det första.
så här ska det se ut:
<%=rsInfo("namn")%> <%=rsInfo("Efternamn")%>
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>
[Redigerat av @nders den 29 apr 2001]
vikken jävla miss!
he he!
fråga, är jag bakis eller är jag bakis?????? :e
nu börjar jag på min egna mejlinglista då @nders.... tänkte det, kan man inte ta i "value" i ett textfält alla mejladresser som finns i db:n? eller blir det konstigt? man brukar väl kunna skriva typ så här:
crisse6@hotmail.com; cristoffer@telia.com; osv....@mail.com.... men hur blir det med bara hämtning av alla mejladresser då?
------------------
www.groda.net *kvack*, *kvack*
tänkte det, kan man inte ta i "value" i ett textfält alla mejladresser som finns i db:n?
ehh, varför skulle du vilja göra det?
jag hade gått tillväga så här på den asp-sida som ska dra iväg nyhetsbrevet. observera att jag använder jmail i min exempelkod, och om du använder en annan mailkomponent får du rätta till det så att objekt- och metodkall stämmer.
först och främst, öppna ett litet recordset som innehåller alla mailadresser jag skall skicka till, samt skapar en instans av jmail-objektet.
strSQL = "SELECT DISTINCT fldEmailAddress FROM tblUsers"
set objRS = objConn.Execute (strSQL)
set objJmail = Server.CreateObject("Jmail.SMTPMail")
objJmail.ServerAddress = "mail.cartman.nu:25" 'här lägger du adressen till din mailserver
objJmail.sender = "eric@cartman.nu" 'fast din adress, liksom.
objJmail.SenderName = "Crisse"
objJmail.Subject = "Nyhetsbrev från hemlige Arne"
objJmail.Body = strBody ' här slänger du själva innehållet i nyhetsbrevet
sen drar jag igång en loop genom recordsetet och lägger till alla mailadresser som bcc, eftersom vi vill inte att mottagarna ska få en komplett lista av alla mailadresser i ditt register.
while not objRS.EOF
objJmail.AddRecipientBCC objRS("fldEmailAddress")
objRS.movenext
wend
nu är det dax att slänga iväg nyhetsbrevet.
objJmail.execute
glöm inte bort att stänga / förstöra alla objekt du använder.
observera att jag inte på något garanterar att detta fungerar. jag hafsade ihop koden rakt in i textrutan och har inte ens sett hur koden ser ut.
jag skulle också rekommendera att du kastar i någon sorts felhantering i det hela. det är ju alltid trevligt att ha. :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>