navSMALL.jpg
|
| <%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<%
ewCurSec = 0 ' Initialise
' User levels
Const ewAllowAdd = 1
Const ewAllowDelete = 2
Const ewAllowEdit = 4
Const ewAllowView = 8
Const ewAllowList = 8
Const ewAllowReport = 8
Const ewAllowSearch = 8
Const ewAllowAdmin = 16
%>
<%
' Initialize common variables
x_MCNumber = Null: ox_MCNumber = Null
x_CustomerName = Null: ox_CustomerName = Null
x_City = Null: ox_City = Null
x_State = Null: ox_State = Null
x_PhoneNumber = Null: ox_PhoneNumber = Null
x_Rating = Null: ox_Rating = Null
fs_x_Rating = 0
fn_x_Rating = ""
ct_x_Rating = ""
w_x_Rating = 0
h_x_Rating = 0
a_x_Rating = ""
%>
<%
Response.Buffer = True
' Get action
sAction = Request.Form("a_search")
Select Case sAction
Case "S": ' Get Search Criteria
' Build search string for advanced search, remove blank field
sSrchStr = ""
' Field MCNumber
x_MCNumber = Request.Form("x_MCNumber")
z_MCNumber = Request.Form("z_MCNumber")
If x_MCNumber <> "" Then
sSrchFld = x_MCNumber
sSrchWrk = "x_MCNumber=" & Server.URLEncode(sSrchFld)
sSrchWrk = sSrchWrk & "&z_MCNumber=" & Server.URLEncode(z_MCNumber)
Else
sSrchWrk = ""
End If
If sSrchWrk <> "" Then
If sSrchStr = "" Then
sSrchStr = sSrchWrk
Else
sSrchStr = sSrchStr & "&" & sSrchWrk
End If
End If
' Field CustomerName
x_CustomerName = Request.Form("x_CustomerName")
z_CustomerName = Request.Form("z_CustomerName")
If x_CustomerName <> "" Then
sSrchFld = x_CustomerName
sSrchWrk = "x_CustomerName=" & Server.URLEncode(sSrchFld)
sSrchWrk = sSrchWrk & "&z_CustomerName=" & Server.URLEncode(z_CustomerName)
Else
sSrchWrk = ""
End If
If sSrchWrk <> "" Then
If sSrchStr = "" Then
sSrchStr = sSrchWrk
Else
sSrchStr = sSrchStr & "&" & sSrchWrk
End If
End If
' Field City
x_City = Request.Form("x_City")
z_City = Request.Form("z_City")
If x_City <> "" Then
sSrchFld = x_City
sSrchWrk = "x_City=" & Server.URLEncode(sSrchFld)
sSrchWrk = sSrchWrk & "&z_City=" & Server.URLEncode(z_City)
Else
sSrchWrk = ""
End If
If sSrchWrk <> "" Then
If sSrchStr = "" Then
sSrchStr = sSrchWrk
Else
sSrchStr = sSrchStr & "&" & sSrchWrk
End If
End If
' Field State
x_State = Request.Form("x_State")
z_State = Request.Form("z_State")
If x_State <> "" Then
sSrchFld = x_State
sSrchWrk = "x_State=" & Server.URLEncode(sSrchFld)
sSrchWrk = sSrchWrk & "&z_State=" & Server.URLEncode(z_State)
Else
sSrchWrk = ""
End If
If sSrchWrk <> "" Then
If sSrchStr = "" Then
sSrchStr = sSrchWrk
Else
sSrchStr = sSrchStr & "&" & sSrchWrk
End If
End If
' Field PhoneNumber
x_PhoneNumber = Request.Form("x_PhoneNumber")
z_PhoneNumber = Request.Form("z_PhoneNumber")
If x_PhoneNumber <> "" Then
sSrchFld = x_PhoneNumber
sSrchWrk = "x_PhoneNumber=" & Server.URLEncode(sSrchFld)
sSrchWrk = sSrchWrk & "&z_PhoneNumber=" & Server.URLEncode(z_PhoneNumber)
Else
sSrchWrk = ""
End If
If sSrchWrk <> "" Then
If sSrchStr = "" Then
sSrchStr = sSrchWrk
Else
sSrchStr = sSrchStr & "&" & sSrchWrk
End If
End If
If sSrchStr <> "" Then
Response.Clear
Response.Redirect "customerslist.asp" & "?" & sSrchStr
End If
End Select
' Open connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
%>
<%
conn.Close ' Close Connection
Set conn = Nothing
%> |
|
| |
|
