Vad är fel?

3 svar · 195 visningar · startad av crisse6 29 apr. 2001

crisse6Medlem sedan dec. 20002 526 inlägg

Trådstart29 apr. 2001 14:20#1

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>&nbsp;</p>
                    </td>
                </tr>
                <tr>
                    <td width="293">
                        <p>&nbsp;</p>
                    </td>
                </tr>
                <tr>
                    <td width="293" bgcolor="#F7F7E7">
                        [b]<p>Namn: <%=rsInfo("namn") <%=rsInfo("Efternamn")%></p>[/b]
                    </td>
                </tr>

hmmm.... jobbigt!

@ndersMedlem sedan juni 200032 967 inlägg

29 apr. 2001 14:25#2

du öppnar ditt andra asp-block utan att avsluta det första.

så här ska det se ut:

<%=rsInfo("namn")%> <%=rsInfo("Efternamn")%>

crisse6Medlem sedan dec. 20002 526 inlägg

29 apr. 2001 14:37#3

vikken jävla miss!

he he!
fråga, är jag bakis eller är jag bakis??????

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å?

@ndersMedlem sedan juni 200032 967 inlägg

29 apr. 2001 16:22#4

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.