Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #54.9K
|
<%@ LANGUAGE="VBSCRIPT" %> <% Dim objCon Dim objRS Dim str_DSN Dim strSQL Dim objCmd Dim myArray str_DSN = "filedsn=live.dsn" myArray = "" Set objCon = Server.CreateObject("ADODB.Connection") With objCon .ConnectionString = str_DSN .CursorLocation = 3 'adUseClient Cursor .Open End With myString = trim(Request.Form("SalesPart")) myArray=Split(myString,",") For i = LBound(myArray) TO UBound(myArray) 'Response.Write …
|