i need to know how to submit a field confirmed in a validation routine to access a com
component which holds the database fields here's mycode: a select statement runs the
validation:
Function getLpInfo
Dim strDetails
Dim strMessages
PssDelObj(objDetails)
PssDelObj(rsContacts)
set objDetails =
Server.CreateObject("PssPalInterface.PalCommon
Cls")
set rsContacts =
objDetails.get_SecGp_info(svrglpid)
svrMsgEmpty = ""
If rsContacts.Recordcount < 1 Then
svrMsgEmpty = "Empty"
Exit Function
End If
End Function
Function cboGpOwnerValidation
' Check to see if the user entered anything.
If document.frmLpContacts3.cboGpOwner.value =
0 Then
MsgBox "You must enter an Owner before
submitting."
cboGpOwnerValidation = False
Exit Function
End If
svrRetrieve = "YES"
If document.frmLpContacts3.cboGpOwner.value =
1 Then
msgbox "You've selected = AI"
'sgbox ("You've selected =" &
frmLpContacts3.cboGpOwner.value)
strglpid = AI
Exit Function
End If
If document.frmLpContacts3.cboGpOwner.value =
2 then
msgbox "You've selected = PAL"
msgbox ("You've selected =" &
frmLpContacts3.cboGpOwner.value)
strglpid = "PAL"
Exit Function
End If
If document.frmLpContacts3.cboGpOwner.value =
3 then
msgbox "You've selected = OTHER"
msgbox ("You've selected =" &
frmLpContacts3.cboGpOwner.value)
strglpid = "OTHER"
Exit Function
End If
If document.frmLpContacts3.cboGpOwner.value =
4 then
msgbox "You've selected = UNKNOWN"
msgbox ("You've selected =" &
frmLpContacts3.cboGpOwner.value)
strglpid = "UNKNOWN"
Exit Function
End If
IF cboGpOwnerValidation = True Then
show_busy
frmLpContacts3.cboGpOwner.btncboSumbit()
End If
End Function
