invalid use of null error when setting default value of select menu

[ringadeal]

The following code which sets the default value of a select menu to equal Session("VendorPartNumber") is causing the error message: "runtime error '800a005e' Invalid use of Null: 'CStr'/.."

<option value="<%=(Recordset1.Fields.Item("ManufacturerPartNumber").Value)%>"  <%If (Not isNull(Session("VendorPartNumber"))) Then If ((Recordset1.Fields.Item("ManufacturerPartNumber").Value) = CStr(Session("VendorPartNumber"))) Then Response.Write("SELECTED") : Response.Write("")%>></option>

 

[snowboardr]

You really should consider putting your sessions in a variable, you always want to access your sessions as least as possible.


Try something like this:


<%
Dim strVendorPartNumber

strVendorPartNumber = Session("VendorPartNumber")

If strVendorPartNumber = "" then ....

%>

I think your problem maybe that you are trying to convert to string on this session... if you do this to a variable you should be in the clear....

-Jason


Jason

[red]Army[/red] : [white]Combat Engineer[/white] : [blue]21B[/blue]

 

[Sheco]

Ringadeal: the way the code you posted is all jumbled up makes it hard to read.

Dim sOpt
Do While Not RS1.EoF
  sOpt = "<option value=""" _
       & RS1("ManufacturerPartNumber") _
       & """ "

  If Session("VendorPartNumber") = (RS1("ManufacturerPartNumber") & "") Then 
      sOpt = sOpt & "SELECTED"
  End If 

  sOpt = sOpt & ">" & RS1("ManufacturerPartNumber") _
       & "</option>" & vbCrLf

  Response.Write sOpt
  RS1.MoveNext
Loop