ASP'yi hiç bilmiyorum, o nedenle yardıma ihtiyacım var.
Elimde aşağıdaki gibi bir form gönderme dosyası var. Gönderi yapılamadığında aşağıda kırmızı renkli alanda yazılı olan "Mesajınız Gönderilememiştir.." yazısının çıkması yerine dosya.html diye bir dosyaya gitmesini, yine aynı şekilde, bu sefer gönderi başarı ile yapıldığında ise baskabirdosya.html isimli başka bir dosyayana gitmesini istiyorum.
Bu durumda kırmızı alandaki kodların ne şekilde olması gerekir?
<%
If Request.querystring("Send") <> "" Then
msg_txt = "<font face=""Tahoma"" size=""2""><b>Mesajınız var!!!</b>"
msg_txt = msg_txt & "<br><br><b>Ad-soyad :</b> " & Request.form("ad")
msg_txt = msg_txt & "<br><b>e-posta :</b> " & Request.form("From")
msg_txt = msg_txt & "<br><b>Telefon :</b> " & Request.form("tel")
msg_txt = msg_txt & "<br><b>Mesaj :</b> " & Request.form("mesaj")
msg_txt = msg_txt & "</font>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.xxxxxxx.com"
Mail.From = Request.form("From")
Mail.FromName = Request.form("From")
Mail.AddAddress "info@xxxxxxx.com"
Mail.Subject = "Webmail"
Mail.IsHTML = True
Mail.Body = msg_txt
Function replaceX(argVal)
argVal=Replace(argVal,"ğ","g")
argVal=Replace(argVal,"ş","s")
argVal=Replace(argVal,"ı","i")
replaceX=argVal
end Function
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajınız Gönderilememiştir..<br>" & Err.Description
else
msg = "Tesekkürler Mesajınız Başarıyla İletildi..."
End If
End If
%>
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
</body>
</html>
İletişim formu hakkında ASP yardımı
3
●467
- 11-04-2010, 15:16:54On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajınız Gönderilememiştir..<br>" & Err.Description
else
msg = "Tesekkürler Mesajınız Başarıyla İletildi..."
End If
End If
kalın yazdığım bölümleri
response.redirect "xxx.html"
olarak değiştirirseniz ilgili sayfaya yönlenir..
