Date: 01/19/06 (Asp Dot Net)    Keywords: asp

My search page was passing through around 50+ form variables
and the search was running smoothly, due to changed requested
by the client we are now sending the variables via querystring
and after about 12 searches the search hangs and times out.

Re-starting IIS starts the search running smoothly again but
only for about 12 ish searches. We are running windows 2003
server, IIS 6 and asp.net 1.1. Are there any issues that with
quesrystring variables that could be causing this performance
issue?

Any suggestions or pointers would be welcome :)

EDIT

I have just notice the search runs fine in firefox but in internet
explorer if hangs and if you press submit a second time it then
submits.



this is the search button which calls the function to send the variables
[asp:Button Text="search for accommodation" id="search" OnClick="SetPostback" runat="server" /]


this is the sub

Sub SetPostback(sender As Object, e As System.EventArgs)

If NOT IsPostback Then

Else

Dim accomType As Integer
Dim DayFrom As Integer
Dim MonthFrom As Integer
Dim YearFrom As Integer
Dim DayTo As Integer
Dim MonthTo As Integer
Dim YearTo As Integer
Dim Nights As Integer
Dim AnoPeople As Integer
Dim AnoRooms As Integer
Dim AtypeRoom As Integer
Dim AOccupantRg As String
Dim BnoPeople As Integer
Dim BnoRooms As Integer
Dim BtypeRoom As Integer
Dim BOccupantRg As String
Dim CnoPeople As Integer
Dim CnoRooms As Integer
Dim CtypeRoom As Integer
Dim COccupantRg As String
Dim PriceRgLow As Integer
Dim PriceRgHigh As Integer
Dim Other As String
Dim Garage As String
Dim Phone As String
Dim CarPark As String
Dim Tv As String
Dim TownCentre As String
Dim SwimPool As String
Dim Radio As String
Dim NearSlopes As String
Dim DgsAdmit As String
Dim Safe As String
Dim CrossCtry As String
Dim SuitDisable As String
Dim Balcony As String
Dim OnTLake As String
Dim Solarium As String
Dim Suite As String
Dim QutZone As String
Dim BeautyCb As String
Dim Minibar As String
Dim Tennis As String
Dim WhirlPl As String
Dim Elevator As String
Dim Sauna As String
Dim selfcatering As String
Dim halfBoard As String
Dim fullBoard As String
Dim roomphone As String
Dim suitdisableroom As String
Dim aGarage As Integer
Dim aPhone As Integer
Dim aCarPark As Integer
Dim aTv As Integer
Dim aTownCentre As Integer
Dim aSwimPool As Integer
Dim aRadio As Integer
Dim aNearSlopes As Integer
Dim aDgsAdmit As Integer
Dim aSafe As Integer
Dim aCrossCtry As Integer
Dim aSuitDisable As Integer
Dim aBalcony As Integer
Dim aOnTLake As Integer
Dim aSolarium As Integer
Dim aSuite As Integer
Dim aQutZone As Integer
Dim aBeautyCb As Integer
Dim aMinibar As Integer
Dim aTennis As Integer
Dim aWhirlPl As Integer
Dim aElevator As Integer
Dim aSauna As Integer
Dim aselfcatering As Integer
Dim ahalfBoard As Integer
Dim afullBoard As Integer
Dim aroomphone As Integer
Dim asuitdisableroom As Integer
Dim countryID As Integer
Dim PriceRgHighChk As Integer
Dim OrderBy As Integer
Dim ResortID As Integer
Dim StarRating As Integer

' Collect the page variables
accomType = Request.Form("id1")
DayFrom = Request.Form("id3")
MonthFrom = Request("id4")
YearFrom = Request.Form("id5")
DayTo = Request.Form("id6")
MonthTo = Request.Form("id7")
YearTo = Request.Form("id8")
Nights = Request.Form("id9")
AnoPeople = Request.Form("id10")
AnoRooms = Request.Form("id11")
AtypeRoom = Request.Form("id12")
BnoPeople = Request.Form("id14")
BnoRooms = Request.Form("id13")
BtypeRoom = Request.Form("id15")
CnoPeople = Request.Form("id18")
CnoRooms = Request.Form("id19")
CtypeRoom = Request.Form("id20")
PriceRgLow = Request.Form("id22")
PriceRgHigh = Request.Form("id23")
Other = Request.Form("id24")
Garage = CStr(Request.Form("id25"))
Phone = CStr(Request.Form("id26"))
CarPark = CStr(Request.Form("id28"))
Tv = CStr(Request.Form("id29"))
TownCentre = CStr(Request.Form("id30"))
SwimPool = CStr(Request.Form("id31"))
Radio = CStr(Request.Form("id32"))
NearSlopes = CStr(Request.Form("id33"))
DgsAdmit = CStr(Request.Form("id34"))
Safe = CStr(Request.Form("id35"))
CrossCtry = CStr(Request.Form("id36"))
SuitDisable = CStr(Request.Form("id37"))
Balcony = CStr(Request.Form("id38"))
OnTLake = CStr(Request.Form("id39"))
Solarium = CStr(Request.Form("id40"))
Suite = CStr(Request.Form("id41"))
QutZone = CStr(Request.Form("id42"))
BeautyCb = CStr(Request.Form("id43"))
Minibar = CStr(Request.Form("id44"))
Tennis = CStr(Request.Form("id45"))
WhirlPl = CStr(Request.Form("id46"))
Elevator = CStr(Request.Form("id47"))
Sauna = CStr(Request.Form("id48"))
selfcatering = CStr(Request.Form("id49"))
halfboard = CStr(Request.Form("id50"))
fullboard = CStr(Request.Form("id51"))
roomphone = CStr(Request.Form("id52"))
suitdisableroom = CStr(Request.Form("id53"))
countryID = Request.Form("id54")
OrderBy = Request.Form("id55")
ResortID = Request.Form("ddResorts")
StarRating = Request.Form("id57")

' Handle the checkboxes into the email first deifine the carrier variable
' Fill the carrier variable with options to be displayed
If IsNothing(Garage) Then
aGarage = "0"
Else
aGarage = "1"
End If

If IsNothing(Phone) Then
aPhone = "0"
Else
aPhone = "1"
End If

If IsNothing(CarPark) Then
aCarPark = "0"
Else
aCarPark = "1"
End If

If IsNothing(Tv) Then
aTv = "0"
Else
aTv = "1"
End If

If IsNothing(TownCentre) Then
aTownCentre = "0"
Else
aTownCentre = "1"
End If

If IsNothing(SwimPool) Then
aSwimPool = "0"
Else
aSwimPool = "1"
End If

If IsNothing(Radio) Then
aRadio = "0"
Else
aRadio = "1"
End If

If IsNothing(NearSlopes) Then
aNearSlopes = "0"
Else
aNearSlopes = "1"
End If

If IsNothing(DgsAdmit) Then
aDgsAdmit = "0"
Else
aDgsAdmit = "1"
End If

If IsNothing(Safe) Then
aSafe = "0"
Else
aSafe = "1"
End If

If IsNothing(CrossCtry) Then
aCrossCtry = "0"
Else
aCrossCtry = "1"
End If

If IsNothing(SuitDisable) Then
aSuitDisable = "0"
Else
aSuitDisable = "1"
End If

If IsNothing(Balcony) Then
aBalcony = "0"
Else
aBalcony = "1"
End If

If IsNothing(OnTLake) Then
aOnTLake = "0"
Else
aOnTLake = "1"
End If

If IsNothing(Solarium) Then
aSolarium = "0"
Else
aSolarium = "1"
End If

If IsNothing(Suite) Then
aSuite = "0"
Else
aSuite = "1"
End If

If IsNothing(QutZone) Then
aQutZone = "0"
Else
aQutZone = "1"
End If

If IsNothing(BeautyCb) Then
aBeautyCb = "0"
Else
aBeautyCb = "1"
End If

If IsNothing(Minibar) Then
aMinibar = "0"
Else
aMinibar = "1"
End If

If IsNothing(Tennis) Then
aTennis = "0"
Else
aTennis = "1"
End If

If IsNothing(WhirlPl) Then
aWhirlPl = "0"
Else
aWhirlPl = "1"
End If

If IsNothing(Elevator) Then
aElevator = "0"
Else
aElevator = "1"
End If

If IsNothing(Sauna) Then
aSauna = "0"
Else
aSauna = "1"
End If

If IsNothing(selfcatering) Then
aselfcatering = "0"
Else
aselfcatering = "1"
End If

If IsNothing(halfBoard) Then
ahalfBoard = "0"
Else
ahalfBoard = "1"
End If

If IsNothing(fullBoard) Then
afullBoard = "0"
Else
afullBoard = "1"
End If

If IsNothing(roomphone) Then
aroomphone = "0"
Else
aroomphone = "1"
End If

If IsNothing(suitdisableroom) Then
asuitdisableroom = "0"
Else
asuitdisableroom = "1"
End If


Dim ErrorMsg As Integer
ErrorMsg = "0"
If ErrorMsg = 0 Then

Else
Response.write("Accomm: ")
Response.Write(accomType)
Response.write("[br]")
Response.write("Day Fm: ")
Response.Write(DayFrom)
Response.write("[br]")
Response.write("Month Fm: ")
Response.Write(MonthFrom)
Response.write("[br]")
Response.write("Yr Fm: ")
Response.Write(YearFrom)
Response.write("[br]")
Response.write("Day To: ")
Response.Write(DayTo)
Response.write("[br]")
Response.write("Mnth To: ")
Response.Write(MonthTo)
Response.write("[br]")
Response.write("Yr To: ")
Response.Write(YearTo)
Response.write("[br]")
Response.write("Nights: ")
Response.Write(Nights)
Response.write("[br]")
Response.write("No PeopleA: ")
Response.Write(AnoPeople)
Response.write("[br]")
Response.write("Rms A: ")
Response.Write(AnoRooms)
Response.write("[br]")
Response.write("Rm Tp A: ")
Response.Write(AtypeRoom)
Response.write("[br]")
Response.write("RmOcc A: ")
Response.Write(AOccupantRg )
Response.write("[br]")
Response.write("No Peopleb: ")
Response.Write(BnoPeople)
Response.write("[br]")
Response.write("Rms b: ")
Response.Write(BnoRooms)
Response.write("[br]")
Response.write("Rm Tp b: ")
Response.Write(BtypeRoom)
Response.write("[br]")
Response.write("RmOcc b: ")
Response.Write(BOccupantRg )
Response.write("[br]")
Response.write("No Peoplec: ")
Response.Write(CnoPeople)
Response.write("[br]")
Response.write("Rms c: ")
Response.Write(CnoRooms)
Response.write("[br]")
Response.write("Rm Tp c: ")
Response.Write(CtypeRoom)
Response.write("[br]")
Response.write("RmOcc c: ")
Response.Write(COccupantRg)
Response.write("[br]")
Response.write("P Low ")
Response.Write(PriceRgLow)
Response.write("[br]")
Response.write("P High ")
Response.Write(PriceRgHigh)
Response.write("[br]")
Response.write("Other ")
Response.Write(Other)
Response.write("[br]")
Response.write("Garage ")
Response.Write(Garage)
Response.write("[br]")
Response.write("Phone ")
Response.Write(Phone)
Response.write("[br]")
Response.write("Car park ")
Response.Write(CarPark)
Response.write("[br]")
Response.write("Tv ")
Response.Write(Tv )
Response.write("[br]")
Response.write("TownCentre ")
Response.Write(TownCentre)
Response.write("[br]")
Response.write("SwimPool ")
Response.Write(SwimPool)
Response.write("[br]")
Response.write("Radio ")
Response.Write(Radio)
Response.write("[br]")
Response.write("NearSlopes ")
Response.Write(NearSlopes)
Response.write("[br]")
Response.write("DgsAdmit ")
Response.Write(DgsAdmit)
Response.write("[br]")
Response.write("Safe ")
Response.Write(Safe)
Response.write("[br]")
Response.write("CrossCtry ")
Response.Write(CrossCtry)
Response.write("[br]")
Response.write("SuitDisable ")
Response.Write(SuitDisable)
Response.write("[br]")
Response.write("Balcony ")
Response.Write(Balcony)
Response.write("[br]")
Response.write("OnTLake ")
Response.Write(OnTLake)
Response.write("[br]")
Response.write("Solarium ")
Response.Write(Solarium)
Response.write("[br]")
Response.write("Suite ")
Response.Write(Suite)
Response.write("[br]")
Response.write("QutZone ")
Response.Write(QutZone)
Response.write("[br]")
Response.write("BeautyCb ")
Response.Write(BeautyCb)
Response.write("[br]")
Response.write("Minibar ")
Response.Write(Minibar)
Response.write("[br]")
Response.write("Tennis ")
Response.Write(Tennis)
Response.write("[br]")
Response.write("WhirlPl ")
Response.Write(WhirlPl)
Response.write("[br]")
Response.write("Elevator ")
Response.Write(Elevator)
Response.write("[br]")
Response.write("Sauna ")
Response.Write(Sauna)
Response.write("[br]")
Response.write("selfcatering ")
Response.Write(selfcatering)
Response.write("[br]")
Response.write("halfBoard ")
Response.Write(halfBoard)
Response.write("[br]")
Response.write("fullBoard ")
Response.Write(fullBoard)
Response.write("[br]")
Response.write("roomphone ")
Response.Write(roomphone)
Response.write("[br]")
Response.write("suitdisableroom ")
Response.Write(suitdisableroom)
Response.write("[br]")
Response.write("countryID ")
Response.Write(countryID)
Response.write("[br]")
Response.write("OrderBy ")
Response.Write(OrderBy)
Response.write("[br]")
Response.write("ResortID ")
Response.Write(ResortID)
Response.write("[br]")
Response.write("StarRating ")
Response.Write(StarRating)
Response.write("[br]")
End If

response.redirect("accomodation2.aspx?id1=" & accomType & "&id3=" & DayFrom & "&id4=" & MonthFrom & "&id5=" & YearFrom & "&id6=" & DayTo & "&id7=" & MonthTo & "&id8=" & YearTo & "&id9=" & Nights & "&id10=" & AnoPeople & "&id11=" & AnoRooms & "&id12=" & AtypeRoom & "&id13=" & BnoRooms & "&id14=" & BnoPeople & "&id15=" & BtypeRoom & "&id18=" & CnoPeople & "&id19=" & CnoRooms & "&id20=" & CtypeRoom & "&id22=" & PriceRgLow & "&id23=" & PriceRgHigh & "&id24=" & Other & "&id25=" & aGarage & "&id26=" & aPhone & "&id28=" & aCarPark & "&id29=" & aTv & "&id30=" & aTownCentre & "&id31=" & aSwimPool & "&id32=" & aRadio & "&id33=" & aNearSlopes & "&id34=" & aDgsAdmit & "&id35=" & aSafe & "&id36=" & aCrossCtry & "&id37=" & aSuitDisable & "&id38=" & aBalcony & "&id39=" & aOnTLake & "&id40=" & aSolarium & "&id41=" & aSuite & "&id42=" & aQutZone & "&id43=" & aBeautyCb & "&id44=" & aMinibar & "&id45=" & aTennis & "&id46=" & aWhirlPl & "&id47=" & aElevator & "&id48=" & aSauna & "&id49=" & aselfcatering & "&id50=" & ahalfboard & "&id51=" & afullboard & "&id52=" & aroomphone & "&id53=" & asuitdisableroom & "&id54=" & countryID & "&id55=" & OrderBy & "&id56=" & ResortID & "&id57=" & StarRating & "&SwCB=1")

End If

End Sub

Source: http://community.livejournal.com/aspdotnet/55527.html