function chgServerVars( sValue ) {
document.tmpFrm.rowNo.value = 0;
document.tmpFrm.newTbl.value = 0;
document.tmpFrm.editTbl.value = 0;
document.tmpFrm.tmpServerName.value = sValue;
document.tmpFrm.action = "default.asp";
document.tmpFrm.submit();
}//end of check
Sub Row_Edit( dGrid, aVariables, iRow, aTitle )
Dim iCol
for iCol = 0 to uBound(aVariables,1)
dgrid.CellStart()
'if it's first column past last field
if iCol = 0 then 'if it's the first column display it as read-only
Response.Write "<input type=""hidden"" name="""& aTitle(iCol) &""" value="""& aVariables(iCol, iRow)&""">"& aVariables(iCol, iRow)
elseif iCol <= uBound(aVariables,1) then 'otherwise make it editable
Call Edit_Col(iCol, iRow, aVariables, aTitle )
end if
dgrid.CellEnd()
Next
dgrid.CellStart()
Response.Write "<a href='javascript:void(0);' onClick='return editRecord();'><img src='"& Application("ImageBaseURL") &"/ittb/GlobalAsaTool/save.gif' border='0' title='Save'></a>"
dgrid.CellEnd()
dgrid.CellStart()
Response.Write "<a href=""JavaScript:cancel();""><img src='"& Application("ImageBaseURL") &"/ittb/GlobalAsaTool/delete.gif' border='0' title='Cancel'></a>"
dgrid.CellEnd()
End Sub
Code:Sub Row_Edit( dGrid, aVariables, iRow, aTitle ) Dim iCol for iCol = 0 to uBound(aVariables,1) dgrid.CellStart() 'if it's first column past last field if iCol = 0 then 'if it's the first column display it as read-only Response.Write "<input type=""hidden"" name="""& aTitle(iCol) &""" value="""& aVariables(iCol, iRow)&""">"& aVariables(iCol, iRow) elseif iCol <= uBound(aVariables,1) then 'otherwise make it editable Call Edit_Col(iCol, iRow, aVariables, aTitle ) end if dgrid.CellEnd() Next dgrid.CellStart() Response.Write "<a href='javascript:void(0);' onClick='return editRecord();'><img src='"& Application("ImageBaseURL") &"/ittb/GlobalAsaTool/save.gif' border='0' title='Save'></a>" dgrid.CellEnd() dgrid.CellStart() Response.Write "<a href=""JavaScript:cancel();""><img src='"& Application("ImageBaseURL") &"/ittb/GlobalAsaTool/delete.gif' border='0' title='Cancel'></a>" dgrid.CellEnd() End Sub
can anyone but Tree tell me what code language that is. --^ i already know, just seeing if others know
"In a real sense, Africa was a casualty of geography as much as greed"
I know what it looks like, but with that Response.Write I may be wrong: It's Visual Basic
Why couldn't it be ASP?
I've never seen ASP. I've only seen VB and VB.NET, that's why I responded that. >>; Plus, the ASP Tags are missing. (It opens with <% and closes with %>) What MCT wrote down was probably ASP.NET.
CRTL+V said: