dear experts,
I'm having an error..
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'LIKE '%%''.
Pls Correct?
____________________________________________________________
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="en-us">
</head>
<body>
<div align="center">
<center>
<table border="1" width="97%" bgcolor="#74C288" cellspacing="0" cellpadding="0">
<tr>
<td width="14%" align="center"><font face="Verdana" size="1">TYPE</font></td>
<td width="14%" align="center"><font face="Verdana" size="1">Position</font></td>
<td width="15%" align="center"><font face="Verdana" size="1">Agency</font></td>
<td width="11%" align="center"><font face="Verdana" size="1">Item No</font></td>
<td width="18%" align="center"><font face="Verdana" size="1">Salary Grade</font></td>
<td width="17%" align="center"><font face="Verdana" size="1">Requirements</font></td>
<td width="15%" align="center"><font face="Verdana" size="1">Date Released</font></td>
</tr>
</table>
</center>
</div>
<!-- #include file="adovbs.inc" -->
<%
Dim txtsearch
Dim txtcategory
Dim ConnString
Dim Page_Size
Dim Current_Page
Dim Page_Count,count
Dim MyConn, RS, SQL
txtsearch = Request.Form("strSearch"
txtcategory = Request.Form("opt_search"
Page_Size = 5 'this is where you set the # of records displayed per page
If Request("Page"
= "" Then
Current_Page = 1
Else
Current_Page = CInt(Request("Page"
)
End If
Set MyConn=Server.CreateObject("ADODB.Connection"
Set MyConn=Server.CreateObject("ADODB.Connection"
ConnString = "DBQ=" & Server.Mappath("..\database\database.mdb"
& ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS=Server.CreateObject("ADODB.RecordSet"
MyConn.Open ConnString
RS.CursorLocation = adUseClient
RS.PageSize = Page_Size
SQL = "Select * From tblPost_Job where " &txtcategory& " LIKE '%" & txtsearch & "%'"
RS.Open SQL, MyConn, adOpenStatic, adLockReadOnly, adCmdText
Page_Count = RS.PageCount
If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_Count Then Current_Page = Page_Count
RS.AbsolutePage = Current_Page
Do While RS.AbsolutePage = Current_Page And Not RS.EOF
%>
<div align="center">
<center>
<table width="97%" border="1" cellspacing="0" cellpadding="0" height="14" bgcolor="#E3D5B9">
<tr>
<td width="14%" align="center" height="12"><font face="Arial" size="1"><%=RS("jobtype"
%></font></td>
<td width="14%" align="center" height="12"><font face="Arial" size="1"><%=RS("jobposition"
%></font></td>
<td width="15%" align="center" height="12"><font face="Arial" size="1"><%=RS("agency"
%></font></td>
<td width="11%" align="center" height="12"><font face="Arial" size="1"><%=RS("itemno"
%></font></td>
<td width="18%" align="center" height="12"><font face="Arial" size="1"><%=RS("salarygrade"
%></font></td>
<td width="17%" align="center" height="12"><font face="Arial" size="1"><%=RS("requirements"
%></font></td>
<td width="15%" align="center" height="12"><font face="Arial" size="1"><%=RS("datereleased"
%></font></td>
</tr>
</table>
</center>
</div>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
Response.Write "<center>"
'below is the page navigation using links.
Response.Write "<td colspan=""4"" align=""center"">"
If Current_Page = 1 Then
Response.Write "<font color=""silver"" & size=""2"">" & "First </font><font size=""2""> |</font> "
End If
If Current_Page >= 2 Then
Response.Write "<a href=""search_job.asp?Page=1"
Response.Write """><font size=""2""><< First</font></a><font size=""2""> |</font> " & vbCrLf
End If
If Current_Page >= Page_Count Then
Response.Write "<font color=""silver"" Size=""2"">Next >></font><font size=""2""> | </font>"
End If
If Current_Page < Page_Count Then
Response.Write "<a href=""search_job.asp?Page="
Response.Write Current_Page + 1
Response.Write """><font size=""2"">Next ></font></a>" & " <font size=""2"">|</font>" & vbCrLf
End IF
If Current_Page <> 1 Then
Response.Write "<a href=""search_job.asp?Page="
Response.Write Current_Page - 1
Response.Write """><font size=""2"">< Previous </font></a><font size=""2""> |</font> " & vbCrLf
Response.Write " " & vbCrLf
End If
If Current_Page = 1 Then
Response.Write "<font color=""silver"" & size=""2"">" & "< Previous </font><font size="""">|</font> "
End If
If Current_Page <> Page_Count Then
Response.Write "<a href=""search_job.asp?Page="
Response.Write Page_Count
Response.Write """><font size=""2"">Last >></font></a>" & vbCrLf
End If
If Current_Page >= Page_Count Then
Response.Write "<font size=""2"" color=""silver"">Last</font>" & "</font>"
End If
%>
<br>
<Center>Page <%=Current_Page%> of <%=Page_Count%></center>
<br>
</body>
</html>
Joel,
I'm having an error..
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'LIKE '%%''.
Pls Correct?
____________________________________________________________
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="en-us">
</head>
<body>
<div align="center">
<center>
<table border="1" width="97%" bgcolor="#74C288" cellspacing="0" cellpadding="0">
<tr>
<td width="14%" align="center"><font face="Verdana" size="1">TYPE</font></td>
<td width="14%" align="center"><font face="Verdana" size="1">Position</font></td>
<td width="15%" align="center"><font face="Verdana" size="1">Agency</font></td>
<td width="11%" align="center"><font face="Verdana" size="1">Item No</font></td>
<td width="18%" align="center"><font face="Verdana" size="1">Salary Grade</font></td>
<td width="17%" align="center"><font face="Verdana" size="1">Requirements</font></td>
<td width="15%" align="center"><font face="Verdana" size="1">Date Released</font></td>
</tr>
</table>
</center>
</div>
<!-- #include file="adovbs.inc" -->
<%
Dim txtsearch
Dim txtcategory
Dim ConnString
Dim Page_Size
Dim Current_Page
Dim Page_Count,count
Dim MyConn, RS, SQL
txtsearch = Request.Form("strSearch"
txtcategory = Request.Form("opt_search"
Page_Size = 5 'this is where you set the # of records displayed per page
If Request("Page"
Current_Page = 1
Else
Current_Page = CInt(Request("Page"
End If
Set MyConn=Server.CreateObject("ADODB.Connection"
Set MyConn=Server.CreateObject("ADODB.Connection"
ConnString = "DBQ=" & Server.Mappath("..\database\database.mdb"
Set RS=Server.CreateObject("ADODB.RecordSet"
MyConn.Open ConnString
RS.CursorLocation = adUseClient
RS.PageSize = Page_Size
SQL = "Select * From tblPost_Job where " &txtcategory& " LIKE '%" & txtsearch & "%'"
RS.Open SQL, MyConn, adOpenStatic, adLockReadOnly, adCmdText
Page_Count = RS.PageCount
If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_Count Then Current_Page = Page_Count
RS.AbsolutePage = Current_Page
Do While RS.AbsolutePage = Current_Page And Not RS.EOF
%>
<div align="center">
<center>
<table width="97%" border="1" cellspacing="0" cellpadding="0" height="14" bgcolor="#E3D5B9">
<tr>
<td width="14%" align="center" height="12"><font face="Arial" size="1"><%=RS("jobtype"
<td width="14%" align="center" height="12"><font face="Arial" size="1"><%=RS("jobposition"
<td width="15%" align="center" height="12"><font face="Arial" size="1"><%=RS("agency"
<td width="11%" align="center" height="12"><font face="Arial" size="1"><%=RS("itemno"
<td width="18%" align="center" height="12"><font face="Arial" size="1"><%=RS("salarygrade"
<td width="17%" align="center" height="12"><font face="Arial" size="1"><%=RS("requirements"
<td width="15%" align="center" height="12"><font face="Arial" size="1"><%=RS("datereleased"
</tr>
</table>
</center>
</div>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
Response.Write "<center>"
'below is the page navigation using links.
Response.Write "<td colspan=""4"" align=""center"">"
If Current_Page = 1 Then
Response.Write "<font color=""silver"" & size=""2"">" & "First </font><font size=""2""> |</font> "
End If
If Current_Page >= 2 Then
Response.Write "<a href=""search_job.asp?Page=1"
Response.Write """><font size=""2""><< First</font></a><font size=""2""> |</font> " & vbCrLf
End If
If Current_Page >= Page_Count Then
Response.Write "<font color=""silver"" Size=""2"">Next >></font><font size=""2""> | </font>"
End If
If Current_Page < Page_Count Then
Response.Write "<a href=""search_job.asp?Page="
Response.Write Current_Page + 1
Response.Write """><font size=""2"">Next ></font></a>" & " <font size=""2"">|</font>" & vbCrLf
End IF
If Current_Page <> 1 Then
Response.Write "<a href=""search_job.asp?Page="
Response.Write Current_Page - 1
Response.Write """><font size=""2"">< Previous </font></a><font size=""2""> |</font> " & vbCrLf
Response.Write " " & vbCrLf
End If
If Current_Page = 1 Then
Response.Write "<font color=""silver"" & size=""2"">" & "< Previous </font><font size="""">|</font> "
End If
If Current_Page <> Page_Count Then
Response.Write "<a href=""search_job.asp?Page="
Response.Write Page_Count
Response.Write """><font size=""2"">Last >></font></a>" & vbCrLf
End If
If Current_Page >= Page_Count Then
Response.Write "<font size=""2"" color=""silver"">Last</font>" & "</font>"
End If
%>
<br>
<Center>Page <%=Current_Page%> of <%=Page_Count%></center>
<br>
</body>
</html>
Joel,