- Fórum WMO
- → Info_Tec's Content
Info_Tec's Content
There have been 186 items by Info_Tec (Search limited from 20/04/2023)
Ordernar por
Order
#350923 Validação De Cnpj
Posted by Info_Tec on 26/04/2004, 18:17 in ASP
Pelo que vi a função retorna 0 ou 1, e vc deve verificar isso, ficaria +/- assim:
'Compara se as Senha são iguais if Request.Form("senha") <> Request.Form("senha2") then Response.Write("Senha não confirmada") elseIf ValidaCNPJ(Request.Form("cnpj")) <> 1 Then Response.Write("O CNPJ Digitado não é válido!") Else 'Grava o q está no Formulário em uma variável vbase=Request.Form("base") vcnpj=Request.Form("cnpj") vrazaosocial=Request.Form("razaosocial") vendereco=Request.Form("endereco") vnumero=Request.Form("numero") vcomplemento=Request.Form("complemento") vbairro=Request.Form("bairro") vcidade=Request.Form("cidade") vestado=Request.Form("estado") vcep=Request.Form("cep") vresponsavel=Request.Form("responsavel") vemail=Request.Form("email") vsenha=Request.Form("senha") Dim conObj Dim SQL Set conObj = Server.CreateObject("ADODB.Connection") conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DBMAX/DBMAX.mdb") & ";" SQL = ("INSERT INTO CADASTRO(BASE,CNPJ,RAZAOSOCIAL,ENDERECO,NUMERO,COMPLEMENTO,BAIRRO,CIDADE,ESTADO,CEP,RESPONSAVEL ,EMAIL,SENHA)values('"&vbase&"','"&vcnpj&"','"&vrazaosocial&"','"&vendereco&"','"&vnumero&"','"&vcomplemento&"','"&vbairro&"','"&vcidade&"','"&vestado&"','"&vcep&"','"&vresponsavel&"','"&vemail&"','"&vsenha&"')") conObj.execute(SQL) Response.Redirect("../index.asp") End If End If
#354123 Ultimo Id
Posted by Info_Tec on 30/04/2004, 19:46 in ASP
Tente com esse:
<% Response.Buffer = True %> <!--#include file="conectar.asp"--> <% AbreConexao id = request.querystring("id") SQL = "SELECT * FROM noticias WHERE ID =" & id & " ORDER BY ID DESC" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open SQL, ConStr, 3, 3 assunto = Rs("assunto") noticia = Rs("noticia") data = Rs("data") user = Rs("user") email = Rs("email") %> <a href="noticia.asp?id=<%=Cint(rs("id"))+1%>">Próxima</a><p> <a href="noticia.asp?id=<%=Cint(rs("id"))-1%>">Anterior</a><p> SQL2 = "SELECT Top 1 ID FROM noticias ORDER BY ID DESC" Set RsUltimo = ConStr.Execute(SQL2) <a href="noticia.asp?id=<%=RsUltimo("ID")%>">Última</a><p> RsUltimo.Close Set RsUltimo = Nothing
#415025 Todos Os Dados Possíveis
Posted by Info_Tec on 28/07/2004, 16:51 in ASP
Tente usar isso:
Response.Write "<TABLE Border=1 BorderColor=""BBBBBB"">" Response.Write " <TR>" Response.Write " <TD><B>Nome</B></TD>" Response.Write " <TD><B>Valor</B></TD>" Response.Write " </TR>" For Each ServerVariable in Request.ServerVariables Response.Write "<TR><TD> " & ServerVariable & "</TD>" Response.Write " <TD> "& Request.ServerVariables(ServerVariable) &"</TD></TR>" Next Response.Write "</TABLE>"Isso irá te retornar todas as Server Variables, dentre elas alguns dados do usuário.
#364647 Tabela Data E Hora No Mysql
Posted by Info_Tec on 15/05/2004, 16:02 in ASP
Ô Presta atenção, DATA no MYSQL deve ser inserida aaaa-dd-mm o Now retorna dd/mm/aa, se inserir assim o MySQL vai tentar corrigir colocando o ANO completo, entendendo que o 15 é o ano 2015.pior que naum...
eh como disse, aparece um 20 antes da data....
hj: 15/05/04
no MySQL: 2015-05-04
entendeu?
Entendeu agora?
- Fórum WMO
- → Info_Tec's Content
- Privacy Policy
- Regras ·