• Howdy! Welcome to our community of more than 130.000 members devoted to web hosting. This is a great place to get special offers from web hosts and post your own requests or ads. To start posting sign up here. Cheers! /Peo, FreeWebSpace.net
managed wordpress hosting

Post your ctrl+v

Code: 
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

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
 
Last edited by a moderator:
methodcomptech said:
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
Click to expand...

I know what it looks like, but with that Response.Write I may be wrong: It's Visual Basic
 
Iyeru said:
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.
Click to expand...

ASP or ASP.NET is my guess (regardless if it's missing the open tags, he could have been copying the function into an existing script).
 
http://rapidshare.com/files/<snipped>/OS2E7.part5.rar
http://rapidshare.com/files/<snipped>/OS2E7.part4.rar
http://rapidshare.com/files/<snipped>/OS2E7.part3.rar
http://rapidshare.com/files/<snipped>/OS2E7.part2.rar
http://rapidshare.com/files/<snipped>/OS2E7.part1.rar
 
CRTL+V said:
bckgREP.png
Click to expand...

Had to quote it for viewing.
 
You must log in or register to reply here.
Back
Top