<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type"
content="text/html;charset=iso-8859-1">
<TITLE>CDONTSMail</TITLE>
<%
Sub Write(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
response.write(strWriteThis & "<br>")
end sub
%>
</HEAD>
<BODY>
<%
dim iconf
dim flds
set iconf=server.CreateObject("CDO.Configuration")
set flds=iconf.Fields
flds("
http://schemas.microsoft.com/cdo/co...ation/sendusing") = 1
flds("
http://schemas.microsoft.com/cdo/co...pickupdirectory") = "C:\Inetpub\mailroot\Pickup"
flds("
http://schemas.microsoft.com/cdo/co.../smtpserverport") = 25
flds.update
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
dim objEmail
Set objEmail = server.CreateObject("CDO.Message")
set objEmail.Configuration=iconf
objEmail.From = request.form("txtFrom")
objEmail.to = "
r111@gmail.com"
objEmail.Subject = request.form("txtSubject")
objEmail.HTMLBody = request.form("txtMessage")
objEmail.Send
set objEmail = Nothing
%>
</BODY>
</HTML>
וזה עובד עכשיו אבל אני מנסה לעלות את זה לאתר שלי וזה לא עובד אני מתאר לעצמי שזה בגלל השורות: