خوب تا اونجائی که من می دونم تو این موردی که شما می خواهی هیچ فرقی با هم ندارن
حالا یه مثال می گم:
فرض کنید یه فرم دارین با text Box هائی بنام T1,T2,T3,T4
بعلاوه یک Text Area بنام S1
فرض کنیم صفحه add.asp صفحه ای هست که اطلاعات به اون ارسال می شن
خوب فرم قاعدتاً اینجوریه :
<form method="POST" action="add.asp">
<p><input type="text" name="T1" size="20"><br>
<input type="text" name="T2" size="20"><br>
<input type="text" name="T3" size="20"><br>
<input type="text" name="T4" size="20"><br>
<textarea rows="2" name="S1" cols="20"></textarea><br>
<input type="submit" value="Submit" name="B1"></p>
</form>
و حالا صفحه Add.asp
از اونجائی که می گین دیتا بیس کار کردین من دیگه توضیح نمی دم و فقط کدها رو می گذارم
با این فرض که دیتا بیس شما بنام db1.mdb هست با جدول table1 و فیلدهای A,B,C,D,E
دیتا بیس هم در همون فولدری هست که add.asp قرارداره ( چون کد DSN Less هست)
<%
My_A=request.form("T1")
My_B=request.form("T2")
My_C=request.form("T3")
My_D=request.form("T4")
My_E=request.form("S1")
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNName = DSNName & Server.MapPath("db1.mdb")
Cnn.Open DSNName
sqltext = "SELECT * FROM table1"
rst.Open sqltext,cnn,3,3
rst.addnew
rst.fields("A").value=My_A
rst.fields("B").value=My_B
rst.fields("C").value=My_C
rst.fields("D").value=My_D
rst.fields("E").value=My_E
rst.update
rst.Close
set rst=nothing
cnn.Close
set cnn=nothing
%>
خوب ... این باید کار کنه .
