% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim objConn, strSQL, strConn Dim strNome, strNum_Cartao, strValidade, strCard, strValor, strEntidade Set objConn = Server.CreateObject("ADODB.Connection") strConn = "Data Source=doa??o online;User ID=sa;Password=;" ObjConn.Open strConn strNome = Trim(Request.Form("Nome")) strNum_Cartao = Trim(Request.form("num_cartao")) strValidade = Trim(Request.form("Validade")) strCard = Request.form("nome_cartao") strValor = Trim(Request.Form("Valor")) strEntidade = "Lygia Jardim" strSQL = "INSERT INTO Credit_Card (Nome) VALUES " strSQL = strSQL & "('" & strNome & "')" ObjConn.Execute strSQL ObjConn.close Set ObjConn = Nothing %>
![]() |
||||||||||||||||||||
|
i
|
||||||||||||||||||||
Rua
Prof° Sebastião Soares de Faria, 57 |
|
.
|
||||||||||||||||||
| Reg.
na CDC n° 3.615/79 CNPJ: 49.929.524/0001-50 CCM: 2.784.543-5 |
Utilidade
Pública Estadual n° 18.583 Utilidade Pública Federal Dec. 50.517/61 de 22/08/05 |