Yardım / Genel Konular
19- Windows hosting de siteme nasil sayaç koyabilirim?
Windows web sunucumuzda bulunan sitenize sayaç koymak için sayfanın tipi asp olmalıdır.
A. Hazırlanmış örnek bir sayfayı bilgisayarınıza indirmek için tıklayınız.
B. Sayfanıza eklemeniz gereken kod aşağıdaki gibidir
<%
'Declare variables
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
Dim sHTMLBody
'Get data from previous page
sTo = "adiniz@domainadiniz.com"
sFrom = Request("sFrom")
sSubject = Request("sSubject")
sTextBody = Request("sTextBody")
sHTMLBody = Request("sHTMLBody")
'Only run this if it's not the first time
If Request("komut")="gonder" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.Username = "adiniz@domainadiniz.com"
Mail.Password ="11111111"
Mail.From = "adiniz@domainadiniz.com"
Mail.FromName = sFrom
Mail.AddAddress sTo, sTo
Mail.AddReplyTo sFrom
Mail.Subject = sSubject
Mail.Body = sHTMLBody
Mail.Send
If ERR Then
Response.Write err.Description
Else
Response.Write "<br>Mesaj Gönderildi"
End If
End If
%>
<html>
<head><title>SendMail</title></head>
<body>
<form action="form.asp" method="post">
<table>
<tr>
<td>Gönderen:</td>
<td><input type="text" name="sFrom" value="<%=sFrom%>"></td>
</tr>
<tr>
<td>Mesajın Konusu:</td>
<td><input type="text" name="sSubject" value="<%=sSubject%>"></td>
</tr>
<tr>
<td>HTML Mesaj:</td>
<td><textarea cols="60" rows="5" name="sHTMLBody">
<%=sHTMLBody%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="hidden" name="komut" value="gonder"><input type="submit" name="Gönder" value="Submit"></td>
</tr>
</table>
<hr>
<%=sMsg%>
</form>
</body>
</html>
</BODY>
Yukardaki kodlardaki değişiklik yapmanız gereken yerlerin kırmızı renkle işaretlenmis hali
<%
'Declare variables
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
Dim sHTMLBody
'Get data from previous page
sTo = "adiniz@domainadiniz.com"
sFrom = Request("sFrom")
sSubject = Request("sSubject")
sTextBody = Request("sTextBody")
sHTMLBody = Request("sHTMLBody")
'Only run this if it's not the first time
If Request("komut")="gonder" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.Username = "adiniz@domainadiniz.com"
Mail.Password ="11111111"
Mail.From = "adiniz@domainadiniz.com"
Mail.FromName = sFrom
Mail.AddAddress sTo, sTo
Mail.AddReplyTo sFrom
Mail.Subject = sSubject
Mail.Body = sHTMLBody
Mail.Send
If ERR Then
Response.Write err.Description
Else
Response.Write "<br>Mesaj Gönderildi"
End If
End If
%>
<html>
<head><title>SendMail</title></head>
<body>
<form action="form.asp" method="post">
<table>
<tr>
<td>Gönderen:</td>
<td><input type="text" name="sFrom" value="<%=sFrom%>"></td>
</tr>
<tr>
<td>Mesajın Konusu:</td>
<td><input type="text" name="sSubject" value="<%=sSubject%>"></td>
</tr>
<tr>
<td>HTML Mesaj:</td>
<td><textarea cols="60" rows="5" name="sHTMLBody">
<%=sHTMLBody%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="hidden" name="komut" value="gonder"><input type="submit" name="Gönder" value="Submit"></td>
</tr>
</table>
<hr>
<%=sMsg%>
</form>
</body>
</html>
</BODY>
Değişkenler
1- Mail.Username = "adiniz@domainadiniz.com" : Mail adresiniz
2- Mail.Password ="11111111" : İlgili mail adresinin şifresi
3- <form action="form.asp" method="post"> : Sayfanın ismi. |
