Send en mail...

tooooo many pointz

sorry...men jeg har brug for det snart, er rimelig desperat....

Har du et webhotel som understøtter asp og jmail, så kan jeg måske hjælpe..!!

Sjekk hva web tilbyderen din har innstallert på serveren sin! Les følgende artikler......

http://activedeveloper.dk/search/powersearch.asp?area=3&SearchType=1

http://www.stardeveloper.com/articles/default.jsp?article_id=2001091801

//Morten

der er både jmail og asp...!!!

Hvordan finder man ud af, hva man har installeret på sin server?? Jeg er HELT sikker på at der både er Jmail og ASP...

Hvem sin server er det? Din eller hoster du hos et firma? Hva heter firmaet?

Legg denne filen på serveren din så ser du hva du har tilgang til.

<%
'*******************************************
START = "<TR><TD><FONT FACE=""Tahoma"" SIZE=""2"">"
MELLEM = "</FONT></TD><TD WIDTH=""200""><FONT FACE=""Tahoma"" SIZE=""2"">"
SLUT = "</FONT></TD></TR>"

Komponentdata = Array("","MSWC.AdRotator","MSWC.BrowserType","ADODB.Connection","MSWC.NextLink","Scripting.FileSystemObject","CDONTS.Session","MSWC.Status","MSWC.PageCounter","MSWC.PermissionChecker","","SoftArtisans.FileUp","SoftArtisans.FileManager","SoftArtisans.FileManagerTX","SoftArtisans.ExcelWriter","SMUM.XCheck.1","SoftArtisans.SASessionPro.1","SAXFileLib.XFRequest","","JMail.SMTPMail","JMail.Speedmailer","JMail.POP3","JMail.Message","w3sitetree.tree","w3.upload","w3.netutils","Socket.TCP","","SMTPsvg.Mailer","AspImage.Image","AspSock.Conn","POP3svg.Mailer","AspNNTP.Conn","AspFile.FileObj","AspConv.Expert","AspHTTP.Conn","AspDNS.Lookup","AspMX.Lookup","","ImgSize.Check","AspPing.Conn","AspCrypt.Crypt","ASPExec.Execute","AspInet.FTP","ASPsvg.Process","","AspSmartForumAdm.SmartForumAdm","aspSmartFile.SmartFile","AspSmartSecurity.FileSec","AspSmartDate.SmartDate","AspSmartUpload.SmartUpload","aspSmartMail.SmartMail","aspSmartCache.SmartCache","","ASPChat2.Chat","ASPThumbnailer.Thumbnail","ASPSimpleUpload.Upload","WhoIs2.WhoIs","","cyScape.browserObj","","EZsite.Calendar","","Dynu.CreditCard","Dynu.DateTime","Dynu.DNS","Dynu.Exec","Dynu.Email","Dynu.Encrypt","Dynu.FileUtil","Dynu.FTP","Dynu.HTTP","Dynu.Email","Dynu.POP3","Dynu.Ping","Dynu.Socket","Dynu.StringUtil","Dynu.Wait","Dynu.Whois")
komponentnavn = Array("Microsoft","Ad Rotator","Browser Capabilities","Database Access","Content Linking","File Access","CDO for NTS","Status","Page Counter","Permission Checker","SoftArtisans http://www.softartisans.com","SA-FileUp","SA-FileManager","SA-FilemanagerTX","SA-ExcelWriter","SA-Check","SA-SessionPro","SA-XFile","Dimac http://www.dimac.net","JMail 3.7","JMail 4.1","JMail 4.1","JMail 4.1","Sitetree","Upload","Utils","Socket","ServerObjects http://www.serverobjects.com","ASPMail","ASPImage","ASPSock","ASPPop3","AspNNTP","AspFile (AspLib)","AspConv (AspLib)","AspHTTP","AspDNS","AspMX","ServerObjects (Freeware Komponenter) http://www.serverobjects.com","ImageSize","AspPing","AspCrypt","ASPExec","AspInet","ASPProc","aspSmart http://www.aspsmart.com","aspSmartForum","aspSmartFile","aspSmartSecurity","aspSmartDate","aspSmartUpload","aspSmartMail","aspSmartCache","ASPhelp http://www.asphelp.com","ASP Chat Professional","ASP Thumbnailer","ASP Simple Upload","ASP Whois","cyScape http://www.cyscape.com","BrowserHawk","Doug Dean Software http://www.dougdean.com","EZSite Calender","Dynu Systems http://www.dynu.com","DynuCreditCard","DynuDateTime","DynuDNS","DynuExec","DynuEmail","DynuEncrypt","DynuFileUtil","DynuFTP","DynuHTTP","DynuEmail","DynuPOP3","DynuPing","DynuSocket","DynuStringUtil","DynuWait","DynuWhois")

Function TestCom(data)
    On Error Resume Next
    Set komponent = Server.CreateObject(data)
        If Err.Number = 0 Then
            TestCom = "<FONT COLOR=""009900"">OK - " & TypeName(komponent) & "</FONT>"
        Else
            TestCom = "<FONT COLOR=""CC0000"">FEJL - " & Err.number & "</FONT>"
        End If
    Set komponent = Nothing
End Function

Function komponenter()
    komponenter = komponenter & "<TABLE BORDER=""1"" BORDERCOLOR=""999999"" WIDTH=""700"" CELLSPACING=""0"">"
    komponenter = komponenter & START & "<B>Komponent</B>" & MELLEM & "<B>Status</B>" & SLUT
    For i = 0 to Ubound(komponentdata)
        If komponentdata(i) = "" Then
            komponenter = komponenter & START & "<B>" & komponentnavn(i) & "</B>" & MELLEM & "<B>&nbsp;</B>" & SLUT
        Else
            komponenter = komponenter & START & komponentnavn(i) & " (" & komponentdata(i) & ")" & MELLEM & TestCom(komponentdata(i)) & SLUT
        End if
    Next
    komponenter = komponenter & "</TABLE>"
End Function
%>
<%
Response.buffer = True
Response.Expires = -1
Response.AddHeader "PRAGMA", "NO-CACHE"
%>
<HTML>
<HEAD>
<TITLE>ASPADMIN</TITLE>
</HEAD>
<BODY>
<TABLE BORDER="0" WIDTH="100%">
<TR>
    <TD CLASS="menu"><A HREF="http://www.aspadmin.dk" CLASS="menu">ASPADMIN</A> - KOMPONENTER</TD>
</TR>
<TR>
    <TD CLASS="indhold">
        <% =komponenter() %>
    </TD>
</TR>
<TR>
    <TD CLASS="menu"><A HREF="http://www.aspadmin.dk" CLASS="menu">ASPADMIN</A> - <A HREF="http://www.cnhweb.dk" CLASS="menu">CNH WEB</A></TD>
</TR>
</TABLE>
</BODY>
</HTML>

//Morten

Hvis det er selve koden der sender filen kan du bruge følgende:

strSender = request.form("mail")
strSenderName = request.form("navn")
strRecipient = "jbu@c.dk"

Set msg = Server.CreateObject("JMail.Message")
msg.Logging = True
msg.Silent = True

msg.From = strSender
msg.FromName = strSenderName
msg.AddRecipient strRecipient
msg.Subject = Request.Form("subject")
msg.Body = Request.Form("text")

If not msg.Send("smtp.mail.dk") Then
    Response.Write "<pre>" & msg.log & "</pre>"
Else
    Response.Write "Beskeden er sendt til modtageren!"
End if

Jeg ska bare ha lave en kode fra Jmail som indeholder tre felter, 1 til navn, 1 til email, 1 til beskrivelse, det ska sendes til min mail jbu@c.dk...det er det eneste...

ÆV...

damnit:

Hvad var der i vejen med den kode jeg har givet dig?

Det er den kode jeg selv bruger hver gang jeg skal lave noget med brugersendte mails og det fungerer fint.

Tror ikke du har villet prøve den kode jeg postede for den virker perfekt!
Den skal måske tilrettes til dit eget men det skulle du vel nok kunne finde ud af?!

Vil gerne vide hvorfor du har afvist mit svar! :o|

Hva er der i vejen?? Prøv du selv at smide din kode ind i et html doc...der kommer sq ikke rigtig nogen felter ud af det!! THATS WHY!!

*GGGG*

Det jeg postede var bare det script der sender mailen til dig.

Gik ud fra du selv kunne lave formularen!

Scriptet skal iøvrigt også ligge i en asp-fil!

Yep...men den udførte stadig ikke den funktion jeg ønskede...sorry 2 say!!

Scriptet lå i en ASP fil...

Jeg ville ikke spørge hvis jeg selv kunne finde ud af at lave formularen...!