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">&nbsp;</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
%>