<?php
/* recipients */
$to = "mary@example.com" . ", " ; // note the comma
$to .= "kelly@example.com";
/* subject */
$subject = "Birthday Reminders for August";
/* message */
$message = '
<html>
<head>
<title>Birthday Reminders for August</title>
</head>
<body>
<p>Here are the birthdays upcoming in August!</p>
<table>
<tr>
<th>Person</th><th>Day</th><th>Month</th><th>Year</th>
</tr>
<tr>
<td>Joe</td><td>3rd</td><td>August</td><td>1970</td>
</tr>
<tr>
<td>Sally</td><td>17th</td><td>August</td><td>1973</td>
</tr>
</table>
</body>
</html>
';
/* To send HTML mail, you can set the Content-type header. */
$headers = "MIME-Version: 1.0\r\n";
$headers .= "Content-type: text/html; charset=iso-8859-1\r\n";
/* additional headers */
$headers .= "To: Mary <mary@example.com>, Kelly <kelly@example.com>\r\n";
$headers .= "From: Birthday Reminder <birthday@example.com>\r\n";
$headers .= "Cc: birthdayarchive@example.com\r\n";
$headers .= "Bcc: birthdaycheck@example.com\r\n";
/* and now mail it */
mail($to, $subject, $message, $headers);
?> Filter
2004-03-21
Mail i PHP
Mail
2004-03-19
Maila i asp.net
Mail
<%@page language="VB" %>
<%@Import Namespace="System.Web.Mail" %>
<script language="VB" runat="server">
sub page_load(obj as object, e as eventargs)
try
dim mailobj as new mailmessage
mailobj.from = "fran@hemma.se"
mailobj.to = "till@borta.com"
mailobj.subject = "Ämne"
mailobj.body = "Hejsan på dej!"
smtpmail.smtpserver = "localhost"
smtpmail.send(mailobj)
catch
end try
end sub
</script> 2004-03-19
Mail i asp
Mail
set newmail = server.createobject("CDONTS.newmail")
newmail.from = "fran@hemma.se"
newmail.to = "till@borta.com"
newmail.subject = "Ämne"
newmail.body = "Hejsan på dej!"
newmail.send
set newmail = nothing2004-03-08
anslut till sql-server
Sql-server
' Standard:
con.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword;"
' För Trusted Connection:
con.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Uid=;" & _
"Pwd=;"
' eller
con.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Trusted_Connection=yes;"
' För att fråga efter användarnamn och lösenord
con.Properties("Prompt") = adPromptAlways
con.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"DataBase=myDatabaseName;"
