Kendi yazmış olduğum bir fonksiyondur.
[codesyntax lang=”asp”]Function comboboxDoldur(tabloName,idName,columName,selectId,kosul)
set doldur=server.createobject(“ADODB.Recordset”)
if not kosul=”” then
sart=”and “&kosul&””
End If
rSQL=”Select * from “&tabloName&” where “&idName&” “&sart&””
set doldur=siteDB.Execute(rSQL)
If not doldur.eof Then
doldur.movefirst : do until doldur.EOF
if “” &doldur(“” &idName& “”)& “”=”” &selectId& “” Then
response.Write(“<option value=””” &doldur(“”&idName&””)& “””selected>” &doldur(“” &columName& “”)& “</option>”)
Else
response.Write(“<option value=””” &doldur(“” &idName&””)& “””>” &doldur(“” &columName& “”)& “</option>”)
End If
doldur.movenext : loop : doldur.close
End If
End Function
