it is ok, is ok! work fine...

i will new stage , w5100 use with sd card, and screen any picture or complicate html pages. ty .. bye.




this is code,
'------------------------------------------------------------------------------------------------------------------------

send_back_result:


RequestCount = RequestCount + 1
GoSub GetFreeTXSize
TotalCount = 0

Buffer = "HTTP/1.1 200 OK "+13+10+0
GoSub PutStringInTXBuffer
Buffer = "Content-Type:text/html"+13+10+13+10+0
GoSub PutStringInTXBuffer

'---------server side------------------------------------client side----------------------------------------------------

If Buffer[5] = "s" Then '<--------------------- send me "s" block <script src=s></script>"


Buffer = "var AN2=" ' <------------send me AN2 variable <script>document.write(AN2)</script
GoSub PutStringInTXBuffer

Buffer = "1977" '-------------------> put string "1977" or any string variable
GoSub PutStringInTXBuffer

Buffer = ";"
GoSub PutStringInTXBuffer' -------------------> and put end of the string.

EndIf

'--------------------------------------- end of the cominicate

WizPtr = WizPtr + TotalCount ' load others... end.


WizAdress = W5100_S0_TX_WR0 : WizData = WizPtr.HighByte : GoSub Write_W5100
WizAdress = W5100_S0_TX_WR1 : WizData = WizPtr.LowByte : GoSub Write_W5100

' Issue a SEND command.
WizAdress = W5100_S0_CR : WizData = W5100_Sn_SEND : GoSub Write_W5100

WaitForCompletion2:
GoSub Read_W5100
If WizData <> 0 Then GoTo WaitForCompletion2



' Then disconnect from the client.
WizAdress = W5100_S0_CR : WizData = W5100_Sn_DISCON : GoSub Write_W5100

' And close the socket. We'll reopen the socket again in the main routine.
WizAdress = W5100_S0_CR : WizData = W5100_Sn_CLOSE : GoSub Write_W5100

GetRequest = 0




Return