Senin dediğin gibi ASPmail bileşeni kullanarak yaptım.
Aşağıdaki kodu Iletisim.asp diye kaydet.
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>İletişim Formu</title>
</head>
<body>
<form action="IletisimGonder.asp" method="POST" name="FORM1">
<table border="0" width="100%" id="table1" height="219">
<tr>
<td width="249"><b>Ad Soyad</b></td>
<td width="4"><b>:</b></td>
<td><input id="adsoyad" type="text" name="adsoyad" maxlength="75" /></td>
</tr>
<tr>
<td width="249"><b>Telefon</b></td>
<td width="4"><b>:</b></td>
<td>
<input id="telefonkod" type="text" name="telefonkod" maxlength="3" size="6" /> <input id="telefon" type="text" name="telefon" maxlength="7" /></td>
</tr>
<tr>
<td width="249"><b>Telefon 2</b></td>
<td width="4"><b>:</b></td>
<td><input id="telefonkod1" type="text" name="telefonkod1" maxlength="3" size="6" /> <input id="telefon1" type="text" name="telefon1" maxlength="7" /></td>
</tr>
<tr>
<td width="249"><b>E-Mail</b></td>
<td width="4"><b>:</b></td>
<td><input id="email" type="text" name="email" maxlength="75" /></td>
</tr>
<tr>
<td width="249"><b>Adres / Açıklama</b></td>
<td width="4"><b>:</b></td>
<td><textarea rows="8" name="adres" cols="25"></textarea></td>
</tr>
<tr>
<td width="249"><b>Keşif Tarihi</b></td>
<td width="4"><b>:</b></td>
<td>
<select name="gun" id="gun">
<option value="0">---</option>
<% for gunsay= 1 to 31 %>
<option value="<%=gunsay%>"><%=gunsay%></option>
<% next %>
<% gunsay=0 %>
</select>
<select name="ay" id="ay">
<option value="0">---</option>
<% for aysay= 1 to 12 %>
<% if aysay<9 or aysay=9 then aysay1="0"+""&aysay&"" else aysay1=aysay end if %>
<option value="<%=aysay1%>"><%=MonthName(aysay1)%></option>
<% next %>
<%
aysay=0
aysay1=0
%>
</select>
<select name="yil" id="yil">
<option value="0">---</option>
<% for yilsay= Year(Now) to 1930 step -1 %>
<option value="<%=yilsay%>"><%=yilsay%></option>
<% next %>
<% yilsay=0 %>
</select>
</td>
</tr>
<tr>
<td width="249"><b>Keşif Saati</b></td>
<td width="4"><b>:</b></td>
<td>
<select name="saat" id="saat">
<option value="0">---</option>
<% for saatsay= 1 to 24 %>
<option value="<%=saatsay%>"><%=saatsay%></option>
<% next %>
<% saatsay=0 %>
</select>
<select name="dakika" id="dakika">
<option value="0">---</option>
<% for dakikasay= 0 to 59 %>
<option value="<%=dakikasay%>"><%=dakikasay%></option>
<% next %>
<% dakikasay=0 %>
</select>
</td>
</tr>
<tr>
<td width="249"> </td>
<td colspan="2"><input type="submit" value="Gönder" name="B1"><input type="reset" value="Temizle" name="B2"></td>
</tr>
</table>
</form>
</body>
</html>
Buradaki Kodu ise IletisimGonder.asp diye kaydet.
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
adsoyad = request.form("adsoyad")
'////////////////////////////////////////////////
telefonkod=request.form("telefonkod")
telefon=request.form("telefon")
Tel : telefonkod + "-" + telefon
'////////////////////////////////////////////////
telefonkod1=request.form("telefonkod1")
telefon1=request.form("telefon1")
Tel1 : telefonkod1 + "-" + telefon1
'////////////////////////////////////////////////
email =request.form("email")
adres =request.form("adres")
'////////////////////////////////////////////////
gun = Request.Form("gun")
ay = Request.Form("ay")
yil = Request.Form("yil")
tamtarih = ay + "/" + gun + "/" + yil
'////////////////////////////////////////////////
saat = Request.Form("saat")
dakika = Request.Form("dakika")
tamsaat = saat + "/" + dakika
'////////////////////////////////////////////////
DIM SendMail
Set SendMail = Server.CreateObject("SMTPsvg.Mailer")
'Enter a title for the form
SendMail.FromName = adsoyad
SendMail.FromAddress= "info@siteadi.com""
SendMail.ReplyTo = email
SendMail.RemoteHost = "mail.siteadi.com""
SendMail.AddRecipient "İsim Soyisim", "info@siteadi.com"
SendMail.Subject = "Konu Adı"
SendMail.BodyText = "Konu adı"& vbCrLf & vbCrLf & _
"Ad Soyad : " & adsoyad & vbCrLf & _
"Telefon : " & Tel & vbCrLf & _
"Telefon - 1 : " & Tel1 & vbCrLf & _
"E-Mail : " & email & vbCrLf & _
"Adres : " & adres & vbCrLf & _
"Keşif Tarihi : " & tamtarih & vbCrLf & _
"Keşif Saati : " & tamsaat & vbCrLf & _
IF BodyText.SendMail THEN
Response.Write adsoyad & ",<br>"
Response.Write "E-Mailiniz Alınmıştır.."
ELSE
Response.Write "E-Mailiniz gönderilmedi. Tekrar deneyiniz. " & SendMail.Response
END IF
%>