Vgaray, creo que entiendo lo que propones en este post, pero yo ya lo hice, ya hice la pagina que llena la BD y no es con ADO sino que es asi:
Sub InsertAd
userSQL = ""
userSQL = userSQL & "SELECT * FROM registration WHERE "
userSQL = userSQL & "username = " & SQLStr(sUserName) & " AND password = " & SQLStr(sPassword)
Set UserRS = GobjConnect.Execute(userSQL)
sUserEmail = UserRS.Fields("Email")
sSQL = ""
sSQL = sSQL & "INSERT INTO Auctions (ItemOwner, ItemTitle, CategoryID, ImageURL, Ended, EmailsSent, "
sSQL = sSQL & " AvailDate, CloseDate, StartingBid, CurrentBid, "
sSQL = sSQL & " CurrentBidder, Description, Province, city, Pay, Fill_Form_Pay, Localization, Size) "
sSQL = sSQL & " VALUES ( "
sSQL = sSQL & SQLVal(valRS.Fields("ID")) & ", "
sSQL = sSQL & SQLStr(sTitle) & ", "
sSQL = sSQL & SQLVal(iCat) & ", "
sSQL = sSQL & SQLStr(sImageURL) & ", "
sSQL = sSQL & " false , "
sSQL = sSQL & " false , "
sSQL = sSQL & SQLDate(NOW) & ", "
sSQL = sSQL & SQLDate(dCloseDate) & ", "
sSQL = sSQL & SQLVal(iStartingBid) & ", "
sSQL = sSQL & SQLVal(iStartingBid) & ", "
sSQL = sSQL & SQLVal(valRS.Fields("ID")) & ", "
sSQL = sSQL & SQLStr(sDescription) & ", "
sSQL = sSQL & SQLStr(sProvince) & ", "
sSQL = sSQL & SQLStr(sCity) & ", "
sSQL = sSQL & " false , "
sSQL = sSQL & " True , "
sSQL = sSQL & SQLStr(sLocalization) & ", "
sSQL = sSQL & SQLStr(sSize) & " )"
'Response.Write "<P>" & sSQL & "<BR>"
GobjConnect.Execute(sSQL)
Y convertirlo a ADO creo que me seria bastante trabajo extra. Pero Mira que la busqueda del registro lo hago mediante ADO, de modo que el error mio debe ser facilmente detectable, mas por ti que conoces como usar ADO, yo no.
Si me ayudas te lo aprecio tanates.
Gracias. ;)