Hola amigos tengo un problema, al hacer submit del formulario pierdo los valores de unos combobox y no he conseguido hacer que estos se mantengan, creo que el problema es que el llenado es dinamico para eso uso esta funcion
Sub ComboBox(pStrSQL, pConn, pStrName, pSelectedIndex, pStrAdanced, pStrDescr)
Dim rsComboBox, adOpenStatic, CheckErrors
Set rsComboBox = Server.CreateObject("ADODB.RecordSet")
rsComboBox.Open pStrSQL, pConn, adOpenStatic
Response.Write("<SELECT NAME=""" & Trim(pStrName) & """ " & pStrAdanced & ">" & Chr(10) & Chr(13))
If CheckErrors = 0 Then
If (pStrDescr <> "") Then
Response.Write("<OPTION VALUE=""-1"">" & pStrDescr & "</OPTION>")
End If
Do While Not rsComboBox.EOF
Response.Write("<OPTION VALUE='" & rsComboBox.Fields(0)) & "'"
If( pSelectedIndex = rsComboBox.Fields(0) ) Then
Response.Write(" SELECTED")
End If
Response.Write(">" & rsComboBox.Fields(1) & "</OPTION>" & Chr(10) & Chr(13))
rsComboBox.MoveNext
Loop
End if
Response.Write("</SELECT>" & Chr(10) & Chr(13))
rsComboBox.Close
Set rsComboBox = Nothing
'pConn.close
End Sub
he probado distintas formas pero no lo he conseguido, agradezco su ayuda
