این errorبرای چیه؟ [بایگانی]

sahe

شنبه 20 فروردین 1384, 19:49 عصر

سلام به همه

<%@ Language=VBScript %>
<% Option Explicit %>

<HTML>
<BODY BGcolor="#CEE0FB">

<%
const adlockoptimistic=3
const adcmdtable=2
Dim neshan
Dim f
Dim l

f=Request.Form("firstname")
l=Request.Form("lastname")

Dim objConnn
set objConnn=Server.CreateObject("ADODB.Connection")
objConnn.Provider="Microsoft.Jet.OLEDB.4.0"
objConnn.Open server.mappath("table.mdb")

Dim strSQL
strSQL="SELECT Address FROM form WHERE f='Firstname' AND l='Lastname'"

Dim objRSS
Set objRSS = Server.CreateObject("ADODB.Recordset")
objRSS.Open strSQL,objConnn

Do While Not objRSS.EOF

neshan = objRSS("Address")
objRSS.MoveNext

Loop

objRSS.Close
Set objRSS = Nothing

objConnn.Close
Set objConnn = Nothing

Dim objConn
set objConn=Server.CreateObject("ADODB.Connection")
objConn.Provider="Microsoft.Jet.OLEDB.4.0"
objConn.Open server.mappath("table.mdb")

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "kharidha" , objConn , , adLockOptimistic , adCmdTable

objRS.AddNew
objRS("esmm") = Request.Form("firstname")
objRS("esmmkh") = Request.Form("lastname")
objRS("jens") = Request.Form("mahsool")
objRS("jensk") = Request.form("kind")
objRS("andaze") = Request.Form("meghdar")
objRS("pool") = Request.Form("hazine")
objRS("neshani") = neshan
objRS("date") = Now()
objRS.Update

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
&nbsp;
از خرید شما متشکریم
محصول موردنظر شما ظرف 24 ساعت برای
شما ارسال می شود
&nbsp;

</BODY>
</HTML>

این error رو میگیره

Error Type:
Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/kharidan.asp, line 28

ghaum

یک شنبه 21 فروردین 1384, 20:54 عصر

ببین دقیقا اسم فیلدهایی که به کار برده ای همان است که در بانک است یا نه؟

armanforghani

دوشنبه 22 فروردین 1384, 17:48 عصر

دوست عزیز پس از بررسی فرمایش این دوستمون اگر نتیجه نگرفتید بهتره فایلهاتون رو کامل ارسال کنید.

sahe

دوشنبه 22 فروردین 1384, 20:43 عصر

به کجا ارسال کنم؟

armanforghani

سه شنبه 23 فروردین 1384, 15:36 عصر

یا اینجا آپلود کنید یا برای من میل کنید.

sahe

جمعه 26 فروردین 1384, 23:50 عصر

این فرمیه که ورودیهارو دریافت می کنه

<html>

<head>
<meta http-equiv="Content-Language" content="fa">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<title>??ی? ?? ??ی?</title>
</head>

<body bgcolor="#CEE0FB">

&nbsp;
??ی? ?? ??ی?
&nbsp;
???
<form method="POST" action="http://localhost/saabaad.asp" >

<input type="text" name="firstname" size="20">
??? ???????ی
<input type="text" name="lastname" size="20">
??? ?????ی
<input type="text" name="username" size="20">
??? ????
<input type="password" name="password" size="20">
<select size="1" name="mahsool">
<option value = "berenj">????</option>
</select> ????? ???????
<select size="1" name="kind">
<option value = "neda">???</option>
<option value="pakestani">???????</option>
<option value="domsia">?? ?ی?</option>
<option value ="tarem">????</option>
</select>??? ?????
?? ???? ?ی? ????? ????? ???????
??? ?? ?? ??
???? ??ی?

<input type="text" name="meghdar" size="10"> ?????
&nbsp;

<input type="submit" value="??? ??ی?" name="B1" style="font-size: 24pt">
</form>

</body>

</html>

sahe

جمعه 26 فروردین 1384, 23:54 عصر

اینم صفحه ایکه اطلاعات رو بررسی میکنه (saabaad.asp)

<%@ Language=VBScript %>
<% Option Explicit %>

<HTML>
<BODY BGcolor="#CEE0FB">

<%
const adLockOptimistic=3
const adCmdTable=2

Dim objRS
Dim fname
Dim lname
Dim uname
Dim pass
Dim hast
Dim maahsool
Dim kiind
Dim meghd
Dim hazz
Dim objRSS
Dim gheym
fname = Request.Form("firstname")
lname= Request.Form("lastname")
uname = Request.Form("username")
pass = Request.Form("password")
maahsool = Request.Form("mahsool")
kiind = Request.Form("kind")
meghd = Request.Form("meghdar")
If((Request.Form("firstname")="") OR (Request.Form("lastname")="")_
OR (Request.Form("username")="") OR (Request.Form("password")="")_
OR (Request.Form("mahsool")="") OR (Request.Form("kind")="") OR (Request.Form("meghdar")="")) Then
Response.Write "<A HREF='C:\Inetpub\wwwroot\Pages\sabad.htm'>"
Response.Write "it's not full. full it maaaaaaan!"
Response.Write "</A>"
Else
hast=False

Dim objConn
set objConn=Server.CreateObject("ADODB.Connection")
objConn.Provider="Microsoft.Jet.OLEDB.4.0"
objConn.Open server.mappath("table.mdb")

Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open "form",objConn, ,adLockOptimistic,adCmdTable

Do While Not (objRS.EOF OR hast)
If ((StrComp(objRS("Username"),uname,vbTextCompare)=0)_
AND (StrComp(objRS("Password"),pass,vbTextCompare)=0)_
AND (StrComp(objRS("Firstname"),fname,vbTextCompare)=0)_
AND (StrComp(objRS("Lastname"),lname,vbTextCompare)=0)) Then
hast=True
End If
objRS.MoveNext
Loop

If Not hast Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A HREF= 'C:\Inetpub\wwwroot\Pages\sabad.htm'>"
Response.Write "inter it again"
Response.Write "</A>"
End If

Dim objConnn
set objConnn=Server.CreateObject("ADODB.Connection")
objConnn.Provider="Microsoft.Jet.OLEDB.4.0"
objConnn.Open server.mappath("table.mdb")

Dim strSQL
strSQL="SELECT ghey FROM mahsool WHERE noy='kiind'"

Set objRSS=Server.CreateObject("ADODB.Recordset")
objRSS.Open strSQL,objConnn

Do While Not objRSS.EOF

gheym=objRSS("ghey")
objRSS.MoveNext

Loop

hazz=meghd*1000*gheym

objRSS.Close
Set objRSS = Nothing

objConnn.Close
Set objConnn = Nothing

%>

&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp; در صورتی
که اطلاعاتی که مشاهده می نمایید درست می باشد
روی خرید
از سایت&nbsp; کلیک کنید 

در غیر اینصورت دوباره فرم
<a href="Pages/sabad.htm" style="text-decoration: none">خرید از سایت</a> را&nbsp; پر کنید

&nbsp;
سبد خرید
نام
<form method="POST" action="kharidan.asp">

<input type="text" name="firstname" value="<%= fname %>" size="20">
نام خانوادگی
<input type="text" name="lastname" value="<%= lname %>"size="20">
محصول موردنظر شما
<input type="text" name="mahsool" value="<%= maahsool %>"size="20">
نوع محصول
<input type="text" name="kind" value="<%= kiind %>"size="20">
مقدار
<input type="text" name="meghdar" value="<%= meghd %>"size="20">
هزینه
<input type="text" name="hazine" value="<%= hazz %>" size="20">
&nbsp;

<input type="Submit" value="خرید از سایت" name="B3" style="font-size: 24pt">
</form>

<%

End If
%>

</BODY>
</HTML>

بعد نتیجه برای اون صفحه ایکه بالا گذاشتم ارسال میشه

Gilbert

سه شنبه 30 فروردین 1384, 00:14 صبح

اگر دوست داشتین میتونستید از رکوردست ها بهتر استفاده کنید ! ادستور OPEN تون رو هم یه بار چک کنید !