Mantener Valor datos combobox ASP

[esanfuentes]

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