I've really mucked this thread up, sorry. Let me show you the code from where I believe it becomes significant and where it stops being significant:
<%
CMID = request.querystring("varCMID")
AccountNo = request.querystring("varAccNo")
DamageDeclared = request.querystring("DamageDeclared")
varDmgID = request.querystring("varDmgID")
SendingPage = request.querystring("SendingPage")
DamageRetain = request.querystring("DamageRetain")
dim SearchedFor
SearchedFor = "False"
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq= " & server.mappath("CustomerCareDamagesDb.mdb")
'DamageRetain
'*******Search code & Damage Complete and Retain Code:
if DamageRetain <> "" then
SearchCriteria = "DamagesID"
SearchParam = request("varDmgID")
else
SearchCriteria = request("Search_Criteria")
SearchParam = request("Search_Box")
end if
if SearchCriteria <> "Please Select" and SearchParam <> "" then
SearchedFor = "True"
if SearchCriteria = "Surname" then
searchparam = replace(SearchParam,"'","''")
searchparam = "'" & searchparam & "'"
end if
SQL_Search = "SELECT * FROM tblDamages WHERE (" & SearchCriteria & " = " & searchparam & ")"
Set RSSearch = MyConn.Execute(SQL_Search)
Dim strCount
strCount = 0
While NOT RSSearch.EOF AND NOT RSSearch.BOF
strCount = strCount + 1
RSSearch.MoveNext()
Wend
if strCount > 1 then
%>
<script language = "javascript">
VarSearchCriteria = '<%=SearchCriteria%>'
VarSearchParam = <%=SearchParam%>
window.open ("
'width=800, height=200, scrollbars=yes');
</script>
Thanks and sorry for wasting your time.