1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65:
Teste5.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td>client</td> </tr> <tr> <td><input type="text" name="textfield" id="textfield" /></td> </tr> </table> </body> </html> ------------------------------------------------------------ Base.asp <!--#include file="../Lib/bibli.asp"--> <% if Ucase(request.QueryString("func")) = Ucase("SearchClient") Then Call ChamaTransportadora(request.QueryString("Clie")) 'pass the initial of client name End if Sub ChamaTransportadora(Desc) Dim Sql, Rs Sql = " select CLI_CODI, CLI_RAZA from CPACLIE " Sql = Sql & " where CLI_RAZA like '%" & desc & "%'" Call abre_conexao_hidrau 'call procedure that open conection Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.ActiveConnection = CnxHidrau Rs.Source = Sql Rs.Open, CnxHidrau If Not Rs.Eof or Not Rs.Bof then While Not Rs.Eof %> <table> <tr><td width="50" height="20"><%=Rs("CLI_RAZA"%></td></tr> </table> <% Rs.MoveNext Wend End if Rs.Close Set Rs=Nothing Call fecha_conexao_hidrau 'call procedure that close conection End sub %>