I think if you're using a function you'll need to return the code rather than just using response.write, which just writes it to the screen. Something like:-
Code:
Function FillProtocolSettingNo()
Dim rstProtocolSettingNo, returnddl
On Error Resume Next
Set objData = Server.CreateObject("ProtocolSettings.clsSearcher")
Set rstProtocolSettingNo = objData.FillProtocolSettingNo()
If Not rstProtocolSettingNo.EOF Then
returnddl = "<select id=""cboProtocolSettingNo"" name=""cboProtocolSettingNo"" style=""width:180px"">"
returnddl = returnddl & "<option>---- Select ProtocolSettingNo ----</option>"
While Not rstProtocolSettingNo.EOF
returnddl = returnddl & "<option value="& rstProtocolSettingNo("ProtocolSettingNo") & ">" & rstProtocolSettingNo("Description") &"</option>"
rstProtocolSettingNo.movenext
Wend
returnddl = returnddl & "</select>"
End If
If (err.number <> 0) Then strMsg = "Please resolve this error " & err.description
Set objData = Nothing
return returnddl
'or I think you can also set the name of the function to the value to return FillProtocolSettingNo=returnddl
End Function
Then if you use:-
Code:
response.write(FillProtocolSettingNo)
that should write out the code...I think...
Hope that helps.
richyrich, August 19th, 2008 01:20 PM
Bookmarks