Private
Sub
dlWorkingHRS_ItemCommand(source
As
Object
, e
As
DataListCommandEventArgs)
Handles
dlWorkingHRS.ItemCommand
If
e.CommandName =
"lnk1"
Then
WorkingHRS = Convert.ToString(e.CommandArgument)
Dim
currenturl
As
String
= Request.Url.Query
currenturl = currenturl.Replace(
"+"
,
" "
)
If
currenturl =
"?jobtype="
& jobtype &
"&Contract="
& Contract
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&WorkingHRS="
& WorkingHRS)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&OrgType="
& OrgType
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&WorkingHRS="
& WorkingHRS)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&Contract="
& Contract &
"&OrgType="
& OrgType
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&WorkingHRS="
& WorkingHRS)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&OrgType="
& OrgType &
"&Contract="
& Contract
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&WorkingHRS="
& WorkingHRS)
Else
Response.Redirect(
"Job1.aspx?jobtype="
& jobtype &
"&WorkingHRS="
& WorkingHRS)
End
If
End
If
End
Sub
Private
Sub
dlContractType_ItemCommand(source
As
Object
, e
As
DataListCommandEventArgs)
Handles
dlContractType.ItemCommand
If
e.CommandName =
"lnk2"
Then
Contract = Convert.ToString(e.CommandArgument)
Dim
currenturl
As
String
= Request.Url.Query
currenturl = currenturl.Replace(
"+"
,
" "
)
If
currenturl =
"?jobtype="
& jobtype &
"&WorkingHRS="
& WorkingHRS
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&Contract="
& Contract)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&OrgType="
& OrgType
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&Contract="
& Contract)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&WorkingHRS="
& WorkingHRS &
"&OrgType="
& OrgType
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&Contract="
& Contract)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&OrgType="
& OrgType &
"&WorkingHRS="
& WorkingHRS
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&Contract="
& Contract)
lnkContract.Visible =
True
lnkContract.Text = Contract
Else
Response.Redirect(
"Job1.aspx?jobtype="
& jobtype &
"&Contract="
& Contract)
End
If
End
If
End
Sub
Private
Sub
dlTypeOfSchool_ItemCommand(source
As
Object
, e
As
DataListCommandEventArgs)
Handles
dlTypeOfSchool.ItemCommand
If
e.CommandName =
"lnk3"
Then
OrgType = Convert.ToString(e.CommandArgument)
Dim
currenturl
As
String
= Request.Url.Query
currenturl = currenturl.Replace(
"+"
,
" "
)
If
currenturl =
"?jobtype="
& jobtype &
"&WorkingHRS="
& WorkingHRS
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&OrgType="
& OrgType)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&Contract="
& Contract
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&OrgType="
& OrgType)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&Contract="
& Contract &
"&WorkingHRS="
& WorkingHRS
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&OrgType="
& OrgType)
ElseIf
currenturl =
"?jobtype="
& jobtype &
"&WorkingHRS="
& WorkingHRS &
"&Contract="
& Contract
Then
Response.Redirect(
"job1.aspx"
& currenturl &
"&OrgType="
& OrgType)
lnkOrgType.Visible =
True
lnkOrgType.Text = OrgType
Else
Response.Redirect(
"Job1.aspx?jobtype="
& jobtype &
"&OrgType="
& OrgType)
End
If
End
If
End
Sub