hi all,
when i'm trying to run this code , i'm getting an error like this. i'm trying to save something into access database. please solve my problem.
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/u0311896/products/manageproducts.asp, line 62
sqlString = "INSERT INTO Products ( prod_name, prod_pic, prod_category, prod_price, prod_desc, userid, prod_listdate, prod_enddate, prod_status ) VALUES ( '"& prodname &"', '" & prodpic & "', '" & prodcategory & "', " & cCUR prodprice & ", '" & proddesc & "', '" & userid & "', '" & prodlistdate & "', '" & prodenddate & "', " & prodstatus & " )".
the actual code is
<%
FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION
' Get the Form Variables
addProduct = TRIM( Request( "addProduct" ) )
updateProduct = TRIM( Request( "updateProduct" ) )
prodid = TRIM( Request( "prodid" ) )
prodname = TRIM( Request( "prodname" ) )
prodpic = TRIM( Request( "prodpic" ) )
prodcategory = TRIM( Request( "prodcategory" ) )
prodprice = TRIM( Request( "prodprice" ) )
proddesc = TRIM( Request( "proddesc" ) )
userid = TRIM( Request( "userid" ) )
prodlistdate = TRIM( Request( "prodlistdate" ) )
prodenddate = TRIM( Request( "prodenddate" ) )
prodstatus = TRIM( Request( "prodstatus" ) )
' Assign Default Values
IF prodname = "" THEN
prodname = "?????"
END IF
IF prodpic = "" THEN
prodpic = "?????"
END IF
IF prodcategory = "" THEN
prodcategory = "?????"
END IF
IF prodprice = "" or NOT isNUMERIC( prodprice ) THEN
prodprice = 0
END IF
IF proddesc = "" THEN
proddesc = "?????"
END IF
IF userid = "" THEN
userid = "?????"
END IF
IF prodlistdate = "" THEN
prodlistdate = "?????"
END IF
IF prodenddate = "" THEN
prodenddate = "?????"
END IF
IF prodstatus = "" THEN
prodstatus = "?????"
END IF
' Open the Database Connection
Set Conn = Server.CreateObject( "ADODB.Connection" )
Conn.Open "u0311896"
%>
<html>
<head><title>Manage Products</title></head>
<body bgcolor="#FFFFCC">
<%
' Add New Product
IF addProduct <> "" THEN
sqlString = "INSERT INTO Products ( prod_name, prod_pic, prod_category, prod_price, prod_desc, userid, prod_listdate, prod_enddate, prod_status ) VALUES ( '"& prodname &"', '" & prodpic & "', '" & prodcategory & "', " & cCUR prodprice & ", '" & proddesc & "', '" & userid & "', '" & prodlistdate & "', '" & prodenddate & "', " & prodstatus & " )"
Conn.Execute sqlString
%>
<center>
<table width="600" cellpadding="4"
cellspacing="0" bgcolor="orange">
<tr>
<td>
<%=prodname%> was added to the database
</td>
</tr>
</table>
</center>
<p>
<%
END IF
' Update Product
IF updateProduct <> "" THEN
sqlString = "UPDATE Product SET " &_
"prod_name='" & fixQuotes( prodname ) & "'," &_
"prod_pic='" & fixQuotes( prodpic ) & "'," &_
"prod_category='" & fixQuotes( prodcategory ) & "'," &_
"prod_price=" & cCUR( prodprice ) & "," &_
"prod_desc='" & fixQuotes( proddesc ) & "'," &_
"userid='" & fixQuotes( userid ) & "'," &_
"prod_listdate='" & fixQuotes( prodlistdate ) & "'," &_
"prod_enddate='" & fixQuotes( prodenddate ) & "'," &_
"prod_status=" & prodstatus & " WHERE " &_
"prod_id=" & prodid
Conn.Execute sqlString
%>
<center>
<table width="600" cellpadding="4"
cellspacing="0" bgcolor="orange">
<tr>
<td>
<%=prodname%> was updated in the database
</td>
</tr>
</table>
</center>
<p>
<%
END IF
%>
<center>
<table width="600" border=1 bgcolor="orange"
cellpadding="4" cellspacing="0">
<tr>
<td colspan="2" >
<b> Manage Products </b>
</td>
</tr>
<tr>
<td align="center">
<table border="1" cellpadding="3" cellspacing=0 bgcolor="white">
<%
sqlString = "SELECT prod_id, prod_name FROM Product ORDER BY prod_name"
SET RS = Conn.Execute( sqlString )
WHILE NOT RS.EOF
%>
<tr>
<td>
<a href="http://wasp/u0311896/products/updateproduct.asp?pid=<%=RS("prod_id")%>">
<%=RS( "prod_name" )%></a>
</td>
</tr>
<%
RS.MoveNext
WEND
Rs.Close
Set RS=nothing
Conn.close
Set Conn=nothing
%>
raja s jaladi
asp vb script error
