I try to find what is the problem is but i cant find the solution. I always get this error. can anyone out there willing to help me?
plez help me.
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/reservation/detail1.asp, line 83, column 61
Insertsql_update = "update" & szTable & "(Status) VALUES ('" Yes "')" & " where iid = 24 " & sSQL
------------------------------------------------------------^
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<body bgcolor="#FFFFFF" >
<%
on error resume next
msg=""
Action = LEFT(UCase(Request("Action")),3)
if Action = "" then
Action = LEFT(Ucase(Response.QueryString("action")))
end if
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=c:\Inetpub\wwwroot\reservation\eservices1.mdb "
szDB = DSNtemp
szTable = "Service"
szID = Request.QueryString("Date_Res")
szDetail = Request.querystring("detail")
sSQL="Update szTable"
sql = "select * from " & szTable & " where iid = " & szID
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open szDB
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, 1, 4
rs.PageSize=1
if Action = "SAV" then
for j = 1 to rs.fields.count -1
if instr(rs(j).name,"iid") > 0 then
else
rs(j).value = request.form(rs(j).name)
end if
next
rs.updatebatch
msg = "SAVED"
response.redirect "ado1.asp"
end if
if Action = "NEW" then
sql = "select max(iid) from " & szTable
set rs0 = Conn.Execute(sql)
InsertSql = "insert into " & szTable & "(Date_Res) VALUES ('" & rs0(0) + 1 & "')"
Conn.Execute(InsertSql)
response.redirect "detail1.asp?Date_Res=" & rs0(0) + 1
end if
if Action = "DEL" then
sql = "delete from " & szTable & " where iid = " & szID
Conn.Execute(sql)
response.redirect "ado1.asp"
end if
if Action = "BRO" then
szID = ""
end if
if szID = "" or szTable = "" then
response.redirect "ado1.asp"
end if
if Action = "APP" then
for j = 1 to rs.fields.count -1
if instr(rs(j).name,"iid") > 0 then
else
rs(j).value = request.form(rs(j).name)
end if
next
rs.updatebatch
msg = "APPROVE"
sql = "select max(iid) from " & szTable
set rs0 = Conn.Execute(sql)
Insertsql_update = "update" & szTable & "(Status) VALUES ('" Yes "')" & " where iid = 24 " & sSQL
Conn.Execute(InsertSql_update)
con.Close
Set con= Nothing
response.redirect "ado1.asp"
end if
%>
<html>
<head>
<title>Detail</title>
<meta name="Microsoft Theme" content="none, default">
</head>
<body>
<form method="post" action="detail1.asp?Date_Res=<%=szID%>">
<table width="86%" cellspacing="0" cellpadding="0" border="0">
<tr>
<th width="72%" align="Left" nowrap><%= Ucase(mid(szTable,1,1)) & mid(szTable,2)%> Detail
<input type="submit"
value="SAVE" name="action">
<input
type="submit" value="NEW" name="action">
<input type="submit" value="BROWSER"
name="action">
<input type="submit" name="Submit" value="APPROVE">
<input type="submit" value="DELETE" name="action">
</th>
<td valign="Middle" align="Middle" width="7%" ><a href="calendar_v1.asp"> Exit</a> <br>
</td>
<td valign="Middle" align="Middle" width="16%" ><a href="menutransaction.asp"> </a><br>
</td>
<td valign="Middle" align="Right" width="5%"><%= msg%> </td>
</tr>
<tr>
<td bgcolor="#FFFFCC" colspan="2"> </td>
</tr>
</table>
<table align="left">
<tr align="left">
<td align="left" valign="top" width="30">
<%
j=0
For i = 1 to rs.Fields.Count -1
%>
<% if j >= 9 then %>
<% j=0 %>
</td>
<td align="left" valign="top" width="242">
<%end if%>
<b><%=rs(i).Name %> </b>
<textarea name="<%=rs(i).Name %>" cols="30"><%=rs(i).Value %></textarea>
<%
j=j+1
Next
%>
</td>
</tr>
<tr>
<td></td>
</tr>
<br>
</table><br><br>Enter Your Date Reservation <br>
Today
<%
var_date=date() 'get the current date
var_date=FormatDateTime(var_date,1)
Response.Write(var_date)
%><br>
</form>
</body>
</html>
Microsoft VBScript compilation (0x800A0401)
Linear Mode
