Dim objCursor As Cursor = Common.sqlObject.ExecQuery2("SELECT SurveyTemplateID FROM SUR_SurveyTemplates WHERE OriginalSurveyTemplateID = ?", Array As String(OriginalSurveyTemplateID))
If objCursor.RowCount>0 Then
objCursor.Position = 0
SurveyTemplateID = objCursor.GetString("SurveyTemplateID")
End If