zahirudin
Posts: 4
|
| Posted: 11/10/2008, 7:36 PM |
|
hi all,
I think this is the best programming issue to share from u all.
Now i just create 1 form from internal server. Everithink work fine in internal server, the value can nsert, update & delete successfully.
But the problem what i have is i try to send the value to the web service server ([url=http://www.etracker.cc]MACROKIOSK | Global Mobile Messaging Network[/url]). I try to write some code and until 1 week i do the code still got problem.
I dont know what to do.
I will share with yrs if i have. ERmmmmm..
below is the code. May some one tell me what to do
*********************************************************
Function cr_clientG1_Button_Insert_OnClick(Sender)
Dim rs, conn, sql, G_name, G_desc, objCmd
SET objCmd.ActiveConnection = objConn
set Conn = server.createobject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
sql = "SELECT custG_name, cust_Gdesc FROM cr_clientG"
rs.Open sql
Do While Not rs.EOF
G_name = rs.Fields("custG_name").value
custG_name = rs.Fields("custG_name").value 'getting a value from a recordset
rs.MoveNext
loop
rs.Close sql
set rs = nothing
Server.Transfer ("http://www.etracker.cc/mayflower/Default.aspx?ccsForm=cr_clientG1")
End function
***************************************************
Please May someone tell me what to do....
_________________
*****************************************
MOHD ZAHIRUDIN
Web Developer
zahir@mayflower.com.my
zahirudin84@gmail.com
***************************************** |
 |
 |
|
