No idea why this is happeneing, it's a simple call that works perfectly in firefox but not in internet explorer... Here's the whole function that happens when the user clicks submit on a form (submits the info to the database, then redirect to a confirmation page), the redirect part is at the end.
Code:
'PROCESS THE FORM
sub submit(s as object, e as EventArgs)
Dim connectionString As String = ConfigurationSettings.AppSettings("connectionString") & server.mapPath("data/fabbdata.mdb")
Dim dbConnection As oleDbConnection = New OleDbConnection(connectionString)
Dim myCommand as String
dim nextmember as integer = getNext("People")
dim booths as Integer
dim additionaltickets as Integer
dim additionalreps as Integer
dim boothfeestotal as Integer
dim sponsorbreakfast as Integer
dim sponsorplenary as Integer
dim sponsorbreaks as Integer
dim sponsorguest as Integer
dim sponsorlunch as Integer
dim sponsortotal as Integer
dim baskettotal as Integer
dim adquarter as Integer
dim adhalf as Integer
dim adfull as Integer
dim covers as Integer
dim adtotal as Integer
dim extrabooths as Integer = 0
dim totalcost as Integer
'check for extra booths at $265 apiece
If boothrep3.text <> "" Then
extrabooths = extrabooths + 265
End If
If boothrep4.text <> "" Then
extrabooths = extrabooths + 265
End If
'convert text to integers
If txtBooths.text = "" Then
booths = 0
Else
booths = CInt(txtBooths.text)
End If
If txtadditionaltickets.text = "" Then
additionaltickets = 0
Else
additionaltickets = CInt(txtadditionaltickets.text)
End If
If txtadditionalreps.text = "" Then
additionalreps = 0
Else
additionalreps = CInt(txtadditionalreps.text)
End If
If txtsponsorbreakfast.text = "" Then
sponsorbreakfast = 0
Else
sponsorbreakfast = CInt(txtsponsorbreakfast.text)
End If
If txtsponsorplenary.text = "" Then
sponsorplenary = 0
Else
sponsorplenary = CInt(txtsponsorplenary.text)
End If
If txtsponsorbreaks.text = "" Then
sponsorbreaks = 0
Else
sponsorbreaks = CInt(txtsponsorbreaks.text)
End If
If txtsponsorguest.text = "" Then
sponsorguest = 0
Else
sponsorguest = CInt(txtsponsorguest.text)
End If
If txtsponsorlunch.text = "" Then
sponsorlunch = 0
Else
sponsorlunch = CInt(txtsponsorlunch.text)
End If
'basket cost
If txtbaskettotal.text = "" Then
baskettotal = 0
Else
baskettotal = CInt(txtbaskettotal.text)
End If
'advertising space
If txtadquarter.text = "" Then
adquarter = 0
Else
adquarter = CInt(txtadquarter.text)
End If
If txtadhalf.text = "" Then
adhalf = 0
Else
adhalf = CInt(txtadhalf.text)
End If
If txtadfull.text = "" Then
adfull = 0
Else
adfull = CInt(txtadfull.text)
End If
If txtadcovers.text = "" Then
covers = 0
Else
covers = CInt(txtadcovers.text)
End If
'calculate total booth fees
boothfeestotal = booths + additionaltickets + additionalreps
'calculate total sponsorship fees
sponsortotal = sponsorbreakfast + sponsorplenary + sponsorbreaks + sponsorguest + sponsorlunch
'calculate the advertising fees
adtotal = adquarter + adhalf + adfull + covers
'calculate the total cost
totalcost = extrabooths + boothfeestotal + sponsortotal + baskettotal + adtotal
myCommand = "INSERT INTO exhibit(company, contact, address, city, state, zip, phone, ext, fax, email, boothadjacent, boothpref1, boothpref2, boothpref3, description, decoratorinfo, decoratoraddress, decoratorcity, decoratorstate, decoratorzip, decoratorphone, decoratorext, decoratorfax, boothrep1, boothrep2, boothrep3, boothrep4, booths, additionaltickets, additionalreps, boothfeestotal, sponsorbreakfast, sponsorplenary, sponsorbreaks, sponsorguest, sponsorlunch, sponsortotal, baskettotal, quarterpage, halfpage, fullpage, covers, advertisingspace, cost) VALUES('" & company.text & _
"','" & contact.text & _
"','" & address.text & _
"','" & city.text & _
"','" & state.text & _
"','" & zip.text & _
"','" & phone.text & _
"','" & ext.text & _
"','" & fax.text & _
"','" & email.text & _
"','" & boothadjacent.text & _
"','" & boothpref1.text & _
"','" & boothpref2.text & _
"','" & boothpref3.text & _
"','" & description.text & _
"','" & decoratorinfo.text & _
"','" & decoratoraddress.text & _
"','" & decoratorcity.text & _
"','" & decoratorstate.text & _
"','" & decoratorzip.text & _
"','" & decoratorphone.text & _
"','" & decoratorext.text & _
"','" & decoratorfax.text & _
"','" & boothrep1.text & _
"','" & boothrep2.text & _
"','" & boothrep3.text & _
"','" & boothrep4.text & _
"','" & booths & _
"','" & additionaltickets & _
"','" & additionalreps & _
"','" & boothfeestotal & _
"','" & sponsorbreakfast & _
"','" & sponsorplenary & _
"','" & sponsorbreaks & _
"','" & sponsorguest & _
"','" & sponsorlunch & _
"','" & sponsortotal & _
"','" & baskettotal & _
"','" & adquarter & _
"','" & adhalf & _
"','" & adfull & _
"','" & covers & _
"','" & adtotal & _
"','" & totalcost & _
"')"
Dim dbCommand As oledbCommand = New OleDbCommand(myCommand, dbConnection)
dbConnection.open
dbCommand.ExecuteNonQuery
dbconnection.close
confirmationPage()
end sub
sub confirmationPage()
Response.Clear
Response.Redirect("exhibitconfirmation.aspx")
end sub







