<%@ Language=VBScript %>
<!-- #include file="adovbs.inc"-->
<%
t1=Request.Form("t1")
t2=Request.Form("r1")
t3=Request.Form("t2")
t4=Request.Form("t3")
t5=Request.Form("t4")
t6=Request.Form("ta1")
set c=Server.CreateObject("adodb.connection")
c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\NodRoon\bank.mdb;Persist Security Info=False"
set r=Server.CreateObject("adodb.recordset")
r.Open "ac",c,adOpenStatic,adLockOptimistic
'====================ADD=======================
r.AddNew
r(1)=t1
r(2)=t2
r(4)=t3
r(5)=t4
r(6)=t5
r.Update
'===================================================
r.Close
c.Close
set r=nothing
set c=nothing
Response.Redirect ("index.htm")
%>
<!-- Team NodRoon -->
<!-- طراح اسماعیل رستگارمنش -->
<html id="html1" xmlns="http://www.w3.org/1999/xhtml" lang="fa" xml:lang="fa">
<head>
<meta http-equiv="Content-Language" content="fa">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="st.css">
</head>
<body>
<table cellpadding="0" cellspacing="0" style="width: 800px; height: 500px" align="center">
<!-- MSTableType="layout" -->
<tr>
<td> </td>
<td> </td>
<td style="height: 94px"> </td>
</tr>
<tr>
<td> </td>
<td valign="top">
<form method="post" action="reg.asp">
<table style="width: 100%" dir="rtl" >
<tr>
<td style="width: 107px">نام و نام خانوادگی</td>
<td>
<input name="t1" type="text" style="width: 163px">
</td>
</tr>
<tr>
<td style="width: 107px">نوع اشتراک</td>
<td>
<input name="r1" type="radio" checked="checked" value="1ماه">1 ماهه
<input name="r1" type="radio" value="3ماه">3 ماهه
<input name="r1" type="radio" value="6ماه">6ماهه <input name="r1" type="radio" value="1سال">1 سال</td>
</tr>
<tr>
<td style="width: 107px">شماره همراه</td>
<td><input name="t2" type="text" style="width: 164px"> </td>
</tr>
<tr>
<td style="width: 107px">ایمیل</td>
<td><input name="t3" type="text" style="width: 160px"> </td>
</tr>
<tr>
<td style="width: 107px">ایدی یاهو</td>
<td><input name="t4" type="text" style="width: 157px"> </td>
</tr>
<tr>
<td style="width: 107px">توضیحات</td>
<td>
<textarea name="ta1" style="height: 71px; width: 189px" dir="rtl"></textarea> </td>
</tr>
<tr>
<td style="width: 107px"> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<input name="مجدد" type="reset" value="مجدد"> <input name="ارسال" type="submit" value="ارسال">
</td>
</tr>
</table></form>
</td>
<td style="height: 371px"> </td>
</tr>
<tr>
<td style="width: 198px"> </td>
<td style="width: 374px"> </td>
<td style="height: 35px; width: 228px"> </td>
</tr>
</table>
</body>
</html>
Response.CharSet = "utf-8"