så jag har väll W3 JMail Pro 4.4 och JMail.NET Pro v1.0 då.aspSmartUpload, w3JMail Pro 4.4, w3JMail Pro 4.4, w3Upload 2.0, w3Image 2.0, JMail.NET Pro v 1.0
Självklart ska jag försöka få igång det, men bara av nyfikenhet, vad är bättre med JMail? CDOSYS verkar fungera bra nu.
Kod: Markera allt
<%
'----------------------------------------------------------------------------
'
' Send email using the Jmail component
'
' by Chris Hardy
' http://www.chrishardy.co.uk/
'
'----------------------------------------------------------------------------
Option Explicit
dim sName, sEmail, sMessage
if Request.Form("Action") <> "" then
sName = Request.Form("Name")
sEmail = Request.Form("Email")
sMessage = Request.Form("Message")
dim oJMail
Set oJMail = Server.CreateObject("JMail.Message")
oJMail.Logging = true
with oJMail
.From = "no_reply@CrazyCaseMod.se"
.AddRecipient sEmail
.Subject = "Message from website"
.AppendHTML sMessage
.Send("smtp.crazycasemod.se")
end with
Response.Write oJMail.log
Set oJMail = Nothing
response.write "Thanks for your message!"
else
%>
Kod: Markera allt
<%@LANGUAGE="VBSCRIPT" %>
<HTML>
<BODY>
<%
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "myRecipient@hisdomain.com", "Mr.Example"
jmail.From = "me@mydomain.com"
jmail.Subject = "Here's some graphics!"
jmail.Body = "A nice picture if you can read HTML-mail."
' The return value of AddAttachment is used as a
' reference to the image in the HTMLBody.
contentId = jmail.AddAttachment("c:\myCoolPicture.gif")
' As only HTML formatted emails can contain inline images
' we use HTMLBody and appendHTML
jmail.HTMLBody = "<html><body><font color=""red"">Hi, here is a nice picture:</font><br>"
jmail.appendHTML "<img src=""cid:" & contentId & """>"
jmail.appendHTML "<br><br>good one huh?</body></html>"
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
jmail.Body = "Too bad you can't read HTML-mail."
jmail.appendText " There would have been a nice picture for you"
jmail.Send( "mailserver.mydomain.com" )
%>
Email sent! </BODY>
</HTML>
Kod: Markera allt
<%@LANGUAGE = VBSCRIPT%> <html>
<body>
<%
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true
' Most mailservers require a valid email address
' for the sender
msg.From = "test@mydomain.com"
msg.FromName = "My Realname"
' Next we have to add some recipients.
' The addRecipients method can be used multiple times.
' Also note how we skip the name the second time, it
' is as you see optional to provide a name.
msg.AddRecipient "recipient@hisDomain.com", "His Name"
msg.AddRecipient "recipientelle@herDomain.com"
' The subject of the message
msg.Subject = "How you doin?"
' The body property is both read and write.
' If you want to append text to the body you can
' use JMail.Body = JMail.Body & "Hello world! "
' or you can use JMail.AppendText "Hello World! "
' which in many cases is easier to use.
'
' Note the use of vbCrLf to add linebreaks to our email
msg.Body = "Hello Jim" & vbCrLf & vbCrLf & "How's it going? ..."
' There.. we have now succesfully created our message.
' Now we can either send the message or save it
' as a draft in a Database.
' To save the message you would typicly use the
' Message objects Text property
' to do something like this:
'
' SaveMessageDraft( msg.Text )
' Note that this function call is only an
' example. The function does not exist by
' default, you have to create it yourself.
' To send the message, you use the Send()
' method, which takes one parameter that
' should be your mailservers address
'
' To capture any errors which might occur,
' we wrap the call in an IF statement
if not msg.Send("mail.myDomain.net" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Message sent succesfully!"
end if
' And we're done! the message has been sent.
%>
</body>
</html>
Kod: Markera allt
<ul>
<li>blaha..</li>
<ul>
<li><a href="url.." target="_blank"><font color="#0000FF">Beskrivning</font></a></li>
</ul>
</ul>
). Det är väll ca. 40% som använder IE idag? Möjligen får det bli någon lite enklare (fulare) version för dem som har IE... Det har jag använt på många andra ställen och där fungerar länkarna.. Måste vara någon kombination av <font> och <li> som den inte tycker om? Tack!Kod: Markera allt
// Logga ut?
IF (where = "logout" AND action = "logout") Then
session("IsValidUser") = FALSE
ValidUser = FALSE
Response.Redirect("index.asp?")
END IFOch sen inloggningen:// Redan inloggad?
ValidUser = Session.Contents("IsValidUser")
IF (ValidUser = TRUE) then
UserID = Request.Cookies("ID")
fName = Request.Cookies("fName")
IF (fName = "") then fName = "OKÄND" END IF
END IF
Kod: Markera allt
// Logga in?
IF (where = "login" AND action = "login") Then
UserName = Request.Form("login_name")
Password = Request.Form("login_pass")
SQL = "SELECT ID, fNamn, reg_datum FROM users WHERE aNamn='" & UserName & "' AND pass='" & Password & "'"
RS.Open SQL, conn
IF (NOT RS.EOF) then
UserID = RS("ID").value
fName = RS("fNamn").value
session("IsValidUser") = TRUE
Response.Cookies("ID")= UserID
Response.Cookies("fName") = fName
ELSE
site="fel_losen"
END IF
RS.close
END IF
