once popup pencere linki icin sayfana Asagıdaki kodları yazıtorsun
<html>
<head>
<title>Popupsayfa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
function tavsiyeet() {
var vars = 'locationbar=no,toolbar=no,titlebar=yes,scrollbars =no,resizeable=no,alwaysRaised=yes,directories=no, menubar=no,location=no,width=390,height=390';
var newWin = open('tavsiyeet.asp', 'Arkadas', vars);
}
</script>
</head>
<body>
<a href="javascript
:tavsiyeet()">Deneme Popup Link</a>
</body>
</html>
sonra popup acılmasını istedigin bos bir sayfaya asagıdaki kodları yzıyorsun
<html>
<head>
<title>Arkada?ynyza tavsiye edin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
// Makes the popup appear on top if already open - see <BODY> tag
return eval(jsStr)
}
function closeWin(){
// closes popup
window.close();
}
-->
</script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!-- // bütün formlar kontrol edildi ve tamamlandy
function form1_onsubmit() {
if (form1.txtSenderName.value == "" || form1.txtEmailFrom.value == ""
|| form1.txtNameTo.value == "" || form1.txtEmailTo.value == "") {
alert("Please complete each box");
return false;
}
}
// -->
</SCRIPT>
</head>
<body onLoad="MM_callJS('self.focus()')"> <!-- Makes the popup appear on top if already open -->
<h1>Arkada?ynyza tavsiye edin</h1>
<%
if request.querystring ("mail") = "send" then 'send the mail
SenderEmail = Request.Form("txtEmailFrom")
SenderName = Request.Form("txtSenderName")
ToName = Request.Form("txtNameTo")
ToEmail = Request.Form("txtEmailTo")
Subject = "Arkada?ynyzdan bir tavsiye " & SenderName
Recipient = ToEmail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.domaininiz.com"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = "Sevgili " & ToName & ", arkada?ynyz " & SenderName & " size bir site önerisinde bulunuyor:
MaxiASP - [ Türkçe Asp Merkezi ]"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
Response.write "<p>Sitemizi arkada?ynyza tavsiye etti?iniz için te?ekkür ederiz..</p>"
Else
%>
<p>Siteyi arkada?ynyza tavsiye etmek için a?a?ydaki formu doldurmanyz yeterlidir</p>
<form method="post" action="tavsiyeet.asp?mail=send" id=form1 name=form1 LANGUAGE=javascript onsubmit="return form1_onsubmit()">
<table>
<tr><td>Ysminiz: </td>
<td><input type="text" name="txtSenderName"></td>
<tr><td>E-mail adresiniz: </td>
<td><input type="text" name="txtEmailFrom"></td>
<tr><td>Arkada?ynyzyn ismi:: </td>
<td><input type="text" name="txtNameTo"></td>
<tr><td>Arkada?ynyzyn e-mail adresi:</td>
<td><input type="text" name="txtEmailTo">
<input type="submit" name="Gönder" value="Send"></td>
</table>
</form>
<%
End if
%>
<p align="center"><a href="javascript
:closeWin()">Pencereyi kapat</a></p>
</body>
</html>
(hepsi bu kadar kodlar alıntıdır) kolay gelsin