به نقل از artin :
سلام
Artin عزیز من برنامه نویسی بلدم ولی تحت وب خیر.
من یک HTML با کدی بصورت زیر پیدا کردم و سپس آونو در یک سایت Upload کردم ولی جواب نمیده میشه در تکمیل این کد راهنمایی بفرمایید.
<HTML>
<HEAD>
<TITLE>CDO MAIL GENERATOR</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY bgcolor="#FFFFFF">
<FORM method="post" action="generateCdo_static.asp?create=1">
<FONT size="2" face="Verdana, Arial, Helvetica, sans-serif"><B>CDO Mail Generator
(Static)</B></FONT><BR>
<TABLE width="484" border="0">
<TR>
<TD width="116" valign="middle">
<DIV align="right"><FONT size="2" face="Verdana, Arial, Helvetica, sans-serif">Mail
From: </FONT> </DIV>
</TD>
<TD width="358">
<INPUT type="text" name="myFrom" size="40">
</TD>
</TR>
<TR>
<TD width="116" valign="middle">
<DIV align="right"><FONT size="2" face="Verdana, Arial, Helvetica, sans-serif">Mail
To: </FONT></DIV>
</TD>
<TD width="358">
<INPUT type="text" name="myTo" size="40">
</TD>
</TR>
<TR>
<TD width="116" valign="middle">
<DIV align="right"><FONT size="2" face="Verdana, Arial, Helvetica, sans-serif">Mail
Subject: </FONT> </DIV>
</TD>
<TD width="358">
<INPUT type="text" name="mySubject" size="40">
</TD>
</TR>
<TR>
<TD width="116" valign="middle">
<DIV align="right"><FONT face="Verdana, Arial, Helvetica, sans-serif" size="2">Mail
Body:</FONT></DIV>
</TD>
<TD width="358" rowspan="2">
<TEXTAREA name="myBody" cols="40" rows="15"></TEXTAREA>
</TD>
</TR>
<TR>
<TD valign="middle"> </TD>
</TR>
</TABLE>
<BR>
<INPUT type="submit" name="Submit" value="Submit">
</FORM>
</BODY>
</HTML>
<%
' CDO STATIC MAILER
' writeen by: Anthony J. Biondo Jr. (ant
'
[email protected])
'
'
myTo = request.form("myTo")
myFrom = request.form("myFrom")
mySubject=request.form("mySubject")
myBody = request.form("myBody")
mycreate = request.querystring("create")
if mycreate = 1 Then
myBody = replace(myBody, chr(13), chr(34) & "&vbcrlf&" &chr(34))
response.write "<FONT face='Verdana, Arial, Helvetica, sans-serif' size='2'>"
response.write "<B>CUT AND PASTE CODE BELOW</B><BR><BR>"
response.write "myTo=" & chr(34) & myTo & chr(34) & "<BR>"
response.write "Dim MyMail As CDONTS.NewMail<BR>"
response.write "Set MyMail = CreateObject("&chr(34) & "CDONTS.NewMail" & chr(34) &")<BR>"
response.write "MyMail.To = myTo<BR>"
response.write "MyMail.From = " & chr(34) & myFrom & chr(34) & "<BR>"
response.write "MyMail.Subject = " & chr(34) & mySubject & chr(34) & "<BR>"
response.write "MyMail.Body =" & chr(34) & myBody & chr(34) & "<BR>"
response.write "MyMail.Send " & "<BR>"
response.write "Set MyMail = Nothing " & "<BR></FONT>"
End if
%>