Avatar billede mobisend.dk Nybegynder
01. april 2002 - 17:35 Der er 27 kommentarer

Udtrækning med jmail

hej jeg har denne kode, men den vil ikke virke hvis man skriver følgende i felterne...

brugernavn : webmaster
email : thomas@webcodes.dk
overskrift : date... kontakt mig på icq hvis du øsnker koden.. 133146476
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 17:37 #1
jeg glemte lige adressen til den er www.mobisend.dk/webcodes.dk og du ska lige logge på og inde under artikler siden er der en formular prøv den og skriv de oplysninger jeg gav .... ellers fang mig på icq
Avatar billede bobbedude Nybegynder
01. april 2002 - 17:39 #2
arh endnu en dum måde at lokke folk til på
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 17:41 #3
nej men jeg giver bare ikke lige koden til alle på eksperten
Avatar billede bobbedude Nybegynder
01. april 2002 - 17:44 #4
jaja det siger du jo
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 17:45 #5
jeg er sq selv asp programmør, men denne fejl her er lidt tricky
Avatar billede jmarkling Nybegynder
01. april 2002 - 21:52 #6
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.mailserver.dk"
JMail.Sender = "afsender@dit_domæne.dk"
JMail.Subject = "Sender mail med JMail"
JMail.AddRecipient "modtager@domæne_navn.dk"//det er jo dig...
JMail.Body = "Eksempel på brugen af JMail" & VbCrLf & VbCrLf
JMail.Body = JMail.Body & "Hilsen"
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 1
JMail.Execute

Jeg kan ikke forstå hvad problemet er...
Mærkligt indlæg
Avatar billede jmarkling Nybegynder
01. april 2002 - 21:53 #7
Body'en opbygger du bare ud fra de formfelter der er på udfyldnings siden...
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:00 #8
ok her er koden :

<!-- #include file="artikler_sti.asp"-->
<%

if request("opret") = "artikel" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("artikler.mdb") & ""

        strsql = "select * From artikler where brugernavn='" & request("brugernavn") &"'"
        set rs = conn.execute(strsql)
       

        if not (rs.eof or rs.bof) then
        Response.Redirect "artikler_fejl.asp"
        end if
       
        strSQL = "SELECT * FROM artikler"
        Set RS = Server.CreateObject("ADODB.Recordset")
        rs.Open strSQL, Conn, 3, 3

          rs.AddNew
        rs("brugernavn") = request("brugernavn")
        rs("oprettet") = date()
        rs("email") = request("email")
        rs("kategori") = request("kategori")
        rs("overskrift") = request("overskrift")
        rs("tekst") = request("tekst")
          rs("accepter") = ("afventer")
          rs.Update
         
          Set JMail = Server.CreateObject("JMail.SMTPMail")
          JMail.ServerAddress = "mail.mobisend.dk"
          JMail.sender = "mail@mobisend.dk"
          JMail.subject = "Indsendelse af artikel fra webcodes.dk"

          JMail.AddRecipient "mail@mobisend.dk"
           
          'Thomas Faugsted skriver udtrækket til body delen i mailen
          JMail.Body = "Du har netop lige tilsendt os en artikel og vi vender hurtigst muligt tilbage om din artikel er accepteret. Hvis din artikel accepteres vil dit brugernavn stå som forfatter og den vil være tilgængelig for alle brugere på Webcodes.dk... Men endnu en tak for artiklen: " & vbcrlf & vbcrlf
          JMail.Body = JMail.Body & "Du er oprettet D.: " & rs("oprettet") & VbCrLf
          JMail.Body = JMail.Body & "Brugernavn: " & request("brugernavn") & VbCrLf
          JMail.Body = JMail.Body & "Email: " & request("email") & VbCrLf
          JMail.Body = JMail.Body & "kategori: " & request("kategori") & VbCrLf
          JMail.Body = JMail.Body & "Overskrift: " & request("overskrift") & VbCrLf
          JMail.Body = JMail.Body & "Artikel: " & request("tekst") & VbCrLf & VbCrLf
          JMail.Body = jmail.body & "Mangler du asp eller et fedt design til hjemmesiden "
          JMail.Body = jmail.body & "ring 40 61 64 31 for nærmere oplysninger..." & vbcrlf                                                     
             
             
          'Her bliver mailen med oplysningerne i´s prioritet bestem
          JMail.Priority = 1
          JMail.Execute
        Set JMail = Nothing

        Conn.Close
        Set Conn = Nothing
   

      end if
          if request("opret") = "fejl" then
        Response.Write "Brugernavnet er desværre optaget!"
        response.write "<p></p>"
        response.write "<p>Tjek først om alle felterne er korrekt udfyldt og find et nyt brugernavn</p>"
        end if

%>


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="da">
<title>Ny side 1</title>
</head>

<body background="sand.jpg" link="#000080" vlink="#000080" alink="#000080">

<p><b><font face="Arial" size="3">Artikler</font></b></p>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" colspan="2"><font size="2" face="Arial">Webcodes.dk har en
      masse brugbare artikler, hvor vi har en masse eksempler på hvad du kan
      lave med de forskellige koder blandet sammen. Vi viser måden du
      udtrækker fra en Access database på og vi viser også måden du sikre
      dit administrations område på dit website + meget andet...</font></td>
  </tr>
  <tr>
    <td width="100%" height="10" colspan="2"></td>
  </tr>
  <tr>
    <td width="100%" height="10" colspan="2"><font face="Arial" size="2">Hvis du
      ønsker at indsende en artikel, bliver den først tilgængelig, når den
      er accepteret af os. Jo flere artikler I indsender til de andre brugere af
      WebCodes.dk jo større chance er der for at du selv bliver hjulpet... Tjek
      vores artikler ud - det er creative development....</font></td>
  </tr>
  <tr>
    <td width="100%" height="10" colspan="2"></td>
  </tr>
  <tr>
    <td width="7%"><font size="2" face="Arial"><a href="simple_asp.asp">Simple
      ASP</a>&nbsp;</font></td>
    <td width="93%"><font size="2" face="Arial">For nybegyndere&nbsp; -giver
      grundlæggende viden</font></td>
  </tr>
  <tr>
    <td width="100%" colspan="2" height="10"></td>
  </tr>
  <tr>
    <td width="36%"><font size="2" face="Arial"><a href="asp_db.asp">ASP
      med database</a></font></td>
    <td width="64%"><font size="2" face="Arial">Artikler med databaser i asp
      koden</font></td>
  </tr>
  <tr>
    <td width="100%" colspan="2" height="10"></td>
  </tr>
  <tr>
    <td width="36%"><font size="2" face="Arial"><a href="asp_alm.asp">ASP
      Almindeligt</a></font></td>
    <td width="64%"><font size="2" face="Arial">Artikler med alle mulige former
      for eksempler man kan lave</font></td>
  </tr>
  <tr>
    <td width="100%" height="10" colspan="2"></td>
  </tr>
  <tr>
    <td width="100%" colspan="2"><font size="2" face="Arial">.</font></td>
  </tr>
  <tr>
    <td width="100%" colspan="2">
      <hr size="1" color="#000000">
    </td>
  </tr>
  <tr>
    <td width="100%" colspan="2"><FORM action="<%= Request.ServerVariables("SCRIPT_NAME") %>?opret=artikel" method=POST>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" height="10"></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial">Brugernavn</font></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial"><INPUT type="text" name="brugernavn" size="20"></font></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial">E-mail adresse</font></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial"><INPUT type="text" name="email" size="20"></font></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial">Kategori</font></td>
  </tr>
  <tr>
    <td width="100%"><select size="1" name="kategori">
        <option>Simple ASP</option>
        <option>ASP Med database</option>
        <option>ASP Almindeligt</option>
      </select></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial">Overskrift</font></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial"><INPUT type="text" name="overskrift" size="20"></font></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial">Artikel</font></td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Arial"><textarea rows="15" name="tekst" cols="55">Skriv din artikel her.......</textarea></font></td>
  </tr>
</table>
<p>
<font size="2" face="Arial">

<INPUT type="submit" value="Indsend artikel" >

</font></p>

</FORM>
    </td>
  </tr>
</table>
<p><font size="2" face="Arial">
</font>
</p>

</body>
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:07 #9
Jeg ved godt hvordan man bruger jmail, jeg kan hellere ikke se min fejl her og jeg er ved at få grå hår af det :0)

Jeg har lavet det her eksempel mange gange før, men det vil bare ikke virke denne gang !!! Kan nogen hjælpe....!
Avatar billede jmarkling Nybegynder
01. april 2002 - 22:09 #10
undskyld mester...
if request("opret") = "artikel" then, den betingelse bliver vel ikke opfyldt...

Du skal hente opret med Requeste.Querystring("opret") istedet, da det ikke er et formfelt
Avatar billede jmarkling Nybegynder
01. april 2002 - 22:12 #11
Request.QueryString("opret")
stavefejl, sry.
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:14 #12
nej... det skal virke med min if request her...

Kan du ikke få det til at virke på den måde jeg har lavet det..
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:15 #13
og jo den bliver opfyldt se form action delen
Avatar billede jmarkling Nybegynder
01. april 2002 - 22:22 #14
Jeg kan ikke finde ud af hvor på din side jeg skal se, men hvad lyder fejlen så på er det ikke "Brugernavnet er desværre optaget...."^?
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:24 #15
ok du kan se www.mobisend.dk/webcodes.dk og under artikler kan du tilføje via en formular... NB: Du ska oprette en bruger først
Avatar billede jmarkling Nybegynder
01. april 2002 - 22:25 #16
Jeg holder sadig på at det er meget mere korrekt bruge Request.QueryString("opret") til at hente paramteret artikel med...
Jeg forstår simpelthen ikke det andet det kan virke!!!
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:26 #17
fejlen er siden kan ikke vises - og det fatter jeg sq ikke lige :0).......
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:28 #18
så skriv det i koden og send den tilbage som du synes den skal være
Avatar billede jmarkling Nybegynder
01. april 2002 - 22:29 #19
Prøv at udskrive
<%= Request.ServerVariables("SCRIPT_NAME") %>
Og se om den overhovedet udskiver noget, det gør den sikkert ikke, så
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:32 #20
hmm.... det står i action delen
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:32 #21
ærligt har jeg ikke tid til folk som bare kommentere uden konkret har forstand og lyst til at hjælpe -))
Avatar billede jmarkling Nybegynder
01. april 2002 - 22:37 #22
Den udskriver jo forhelvede da ikke til skærmen i action delen, jeg ville bare skrive det så du kunne tjekke URL'en, men jeg siger tak for de fine ord, hold da kæft hvor er det bare fedt at der nogen der gider at være flinke når man prøver at hjælpe.


Men hvad hvad så med URL'en på den side der bliver ikke bliver vist, er det ikke der den er gal...
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:39 #23
smarte jeg bruger frames.......
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:39 #24
gå ind og se fejlen
Avatar billede jmarkling Nybegynder
01. april 2002 - 22:45 #25
Ok, det havde jeg jo næste regenet ud, derfor bad jeg dig om at skrive
<%= Request.ServerVariables("SCRIPT_NAME") %>
på din side, så du kunne se resultatet... udskrevet på selve siden, når du tester den...
Avatar billede mobisend.dk Nybegynder
01. april 2002 - 22:51 #26
he he det der hjælper så lidt at det ikke virker -- Nu gider jeg ikke mere - jeg må lave det forfra, men det er utroligt at ekspertens brugere ikke kan løse denne fejl - der er tale om en lille bitte fejl...
Avatar billede jmarkling Nybegynder
01. april 2002 - 23:01 #27
Jamen så ved du hvad fejlen er...
Den ligger i der ikke bliver udskrevet noget nogen URL, til action delen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester