I
i.s.a.q
Misafir
PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Dim MailTo
Dim mailcomp
Dim smtp
Dim From
' degiskenler buraya
If request ("email") = "" Then
From = "[email protected]"
Else
From = Request.Form ("email")
End If
MailTo = "[email protected]"
' mail adresiniz buraya ***
mailcomp = "ASPEmail"
' Kullandiginiz server hangi compenenti desteliyorsa onu seçin...
' CDONTS, CDOSYS, ASPEmail, JMail
smtp = "mail.deneme.com"
' domain yerine domaininizi yazin
%>
<%
'Genel Html formatli e-mail
Dim html
html = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
html = html & "<html>"
html = html & "<head>"
html = html & "<meta http-equiv=""Content-Type"""
html = html & "content=""text/html; charset=windows-1254"">"
html = html & "<title> .:: Iletisim Forumu ::. </title>"
html = html & "<link rel=""stylesheet"" type=""text/css"" href=""style.css"">" ' eger css kullaniyorsaniz degistirin ama satiri sakin silmeyin...
html = html & "</head>"
html = html & "<body bgcolor=""EEEEEE"">" 'email bg color
html = html & "<center><font face=""arial, verdana, helvetica"" size: ""7pt""> <b> Hosting Basvuru Formu </b></center>"
html = html & "<b>Hosting Paketi Tipi:</b> " & Request.Form("hosttip")
html = html & "<br>"
html = html & "<b>Hosting Süresi:</b> " & Request.Form("hostsure")
html = html & "<br>"
html = html & "<b>Domain Adi:</b> " & Request.Form("domain")
html = html & "<br>"
html = html & "<b>Kullanicinin adi:</b> " & Request.Form("kullanici")
html = html & "<br>"
html = html & "<b>Sifresi:</b> " & Request.Form("sifre")
html = html & "<br>"
html = html & "<b>Sehir:</b> " & Request.Form("sehir")
html = html & "<br>"
html = html & "<b>HESAP SAHIBI BILGILERI:</b> "
html = html & "<br>"
html = html & "<b>Ad ve Soyadi? :</b> " & Request.Form("adsoyad")
html = html & "<br>"
html = html & "<b>Adresi</b> " & Request.Form("adres")
html = html & "<br>"
html = html & "<b>Sehri:</b> " & Request.Form("sehir")
html = html & "<br>"
html = html & "<b>Posta Kodu:</b> " & Request.Form("postakod")
html = html & "<br>"
html = html & "<b>Email:</b> " & Request.Form("email")
html = html & "<br>"
html = html & "<br>"
html = html & "<b>Telefon:</b> " & Request.Form("telefon")
html = html & "<br>"
html = html & "<b>***deneme.net Internet Hizmetleri**</b>"
html = html & "</font></body>"
html = html & "</html>"
' *** Degiskenler sonu ***
%>
<%
' *** SAKIN ASAGIDAKI KODLARI DEGISTIRMEYIN ***
' Hangi mail componentini kullaniyorsunuz?
if mailcomp = "CDOSYS" then
set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
.Update
End With
With iMsg
Set .Configuration = iConf
.To = MailTo
.From = From
.Subject = Request.Form("Subject")
.HTMLBody = HTML
.fields.update
.Send
End With
set imsg = nothing
set iconf = nothing
set HTML = nothing
else
if mailcomp = "CDONTS" then
Dim Avanos
Set Avanos = CreateObject("CDONTS.NewMail")
Avanos.From= From
Avanos.To= MailTo
Avanos.Subject= Request.Form("Subject")
Avanos.BodyFormat=0
Avanos.MailFormat=0
Avanos.Body=HTML
Avanos.Send
set HTML = nothing
set Avanos=nothing
else
if mailcomp = "ASPEmail" then
Set WSweb = Server.CreateObject("Persits.MailSender")
WSweb.Host = smtp
WSweb.From = From
WSweb.AddAddress MailTo
WSweb.Subject = Request.Form("Subject")
WSweb.Body = HTML
WSweb.IsHTML = True
WSweb.Send
set WSweb = Nothing
set HTML = Nothing
else
if mailcomp = "JMail" then
set msg = Server.CreateObject( "JMail.Message" )
msg.Logging = true
msg.ContentType = "text/html"
msg.From = From
msg.AddRecipient = MailTo
msg.Subject = Request.Form("Subject")
msg.Body = HTML
msg.Send( smtp )
Set msg = Nothing
set HTML = Nothing
end if
end if
end if
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<!-- TemplateBeginEditable name="doctitle" -->
<title>Untitled Document</title>
<!-- TemplateEndEditable -->
<!-- TemplateBeginEditable name="head" -->
<!-- TemplateEndEditable -->
</head>
<body>
<table width="39%" border="0">
<tr>
<td width="95%"><p><font face="Verdana, Arial, Helvetica, sans-serif" size="1.5" color="#666666"><br />
<b> </b> </font><font face="Verdana, Arial, Helvetica, sans-serif" size="1.5" color="#666666"><br />
Form tarafımıza ulaştı. İlgili birime ulaştırılacak ve en kısa sürede
yanıtlanacaktır.<br />
</font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1.5" color="#666666">İlginize
teşekkür ederiz.</font></p></td>
</tr>
</table>
</body>
</html>
bir ASP iletişim formum var Forumu gönder dedıgımızde formuyolla.asp dosyasına yönlenıyor.bu dosyanın içinde yukarıdaki kodlar var
ancak
Internal Server Error hatası alıyorum.Sorun nedir yardımcı olursanız sevınırım.