There have been 125 items by kaplan (Search limited from 02/06/2023)
Posted by
on 08/11/2006, 17:03
in
ASP
Contador = X
For i= x to y
If var = "" Then
var = Contador
Else
var = var & ", " & Contador
End If
Contador = Contador + 1
Next
Response.Write(var)
Posted by
on 09/11/2006, 08:54
in
ASP
x_numero_cheque = 15
y_numero_cheque = 30
Contador = x_numero_cheque
var=""
For i= x_numero_cheque to y_numero_cheque
If var = "" Then
var = Contador
Else
var = var & ", " & Contador
End If
Contador = Contador + 1
Next
Response.write(var)
Posted by
on 17/06/2006, 07:59
in
ASP
Posted by
on 18/06/2006, 11:14
in
ASP
Posted by
on 15/06/2006, 12:07
in
ASP
<script language="JavaScript" type="text/javascript">
<!--
<%
'Faco o select que ira trazer os modelos
SqlD = "Select MarcaCod, ModCod, ModNome "_
& " From Modelo_Veiculo "_
& " Where ModStatu = '0' "_
& " And ModTipo = '0' "_
& " And MarcaCod = '" & Cod & "' "
Set RsD = Conn.Execute(SqlD)
%>
function cria_lista(id) {
document.write(this.value)
var subcategorias=new Array;
// ainda nao programei
subcategorias[1]="|;1|Astra;9|Blazer;10|Celta;11|Omega;2|Vectra;";
subcategorias[2]="|;3|Marea;";
subcategorias[5]="|;8|Gol;";
subcategorias[6]="|;13|307;";
if(isUndefined(subcategorias[id])){;
var categoria=new Array(";");
}
else{
var categoria=subcategorias[id].split(";");
}
var campo=document.getElementById("subcategoria");
for(i=campo.length;i >= 0;i--){
campo.options.remove(i);
}
for(i=0;i<=categoria.length-2;i++){
var valor=categoria[i].split("|");
var opcao = document.createElement("OPTION");
campo.options.add(opcao);
opcao.selected = false;
var value = document.createTextNode(valor[1]);
opcao.appendChild(value);
opcao.value = valor[0];
if(valor[0]==13) opcao.selected = true;
}
}
function isUndefined(v) {
var undef;
return v===undef;
}
//-->
</script>
<%
'Faco um select que ira mostrar as marcas
SqlM = "Select MarcaCod, MarcaNome "_
& " From Marca_Veiculo "_
& " Where MarcaStatu = '0' "_
& " And MarcaTipo = '0' "
Set RsM = Conn.Execute(SqlM)
%>
<select name="categoria" class="texto" onChange="cria_lista(this.value)" style="width:100%">
<option value="" selected></option>
<%
'Faco um loop das marcas
Do While Not RsM.EOF
%>
<option value='<%=RsM("MarcaCod")%>'><%=RsM("MarcaNome")%></option>
<%
RsM.MoveNext
Loop
%>
</select>
Posted by
on 27/10/2006, 15:34
in
ASP
While Not RsIdCheque.EOF
If Id_cheque = "" Then ' - Erro aki
Id_cheque = RsIdCheque("id_cheque")
Else
Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")
End If
RsIdCheque.MoveNext
Wend
Posted by
on 31/10/2006, 16:22
in
ASP
<%
SqlIdCheque = "Select est.numero_cheque, est.valor_cheque "_
& " From cheques_estoque est Join Cheques_emissao emi "_
& " On emi.id_cheque = est.id_cheque "_
& " Where emi.codigo = " & Rsdados("codigo") & " "_
& " AND emi.data_emissao between '" & data_ini & "' and '" & data_fim & "' "
Set RsIdCheque = cnbanco.Execute(SqlIdCheque)
While Not RsIdCheque.EOF
%>
<strong>
<%=FormatCurrency(CDBL(RsIdCheque("valor_cheque")))%> -
</strong>
<%
Response.Write(RsIdcheque("numero_cheque") & ". ")
RsIdCheque.MoveNext
Wend
%>
Posted by
on 30/10/2006, 11:36
in
ASP
Posted by
on 07/12/2006, 09:23
in
ASP
Posted by
on 16/06/2006, 10:07
in
ASP
<%
Do While Not Rs.EOF
%>
<td width="22%"><%=Rs("Acenome")%>
<input type="checkbox" name="<%=Rs("AceCod")%>" value="ON"></td>
<%
Rs.MoveNext
Loop
%>
Posted by
on 22/06/2006, 00:36
in
ASP
'Verifico qual é a acao
'aqui ser a parte depois que o cara clicar no bt enviar
If Acao = "mudar" Then
Dim c, i, A()
c = Request("total")
ReDim A(c)
For i = 0 to c
A(I) = Request("c" & I)
If A(I) = "" Then
Response.Write ""
Else
Response.Write(A(I) & "<br>")
End If
Next
'***************
Form tal....
<%
'Faco um select que ira mostrar pra mim o total de acessorios
SqlT = "Select Count(*) As Total "_
& " From Acessorio_Veiculo "_
& " Where AceTipo = '0' "_
& " And AceStatu = '0' "
Set RsT = Conn.Execute(SqlT)
%>
<input type="hidden" name="total" value="<%=RsT("Total")%>">
<%
'Faço o um select que ira trazer pra mim todos os acessorios
Sql = "Select AceCod, AceNome "_
& " From Acessorio_Veiculo "_
& " Where AceTipo = '0' "_
& " And AceStatu = '0' "
Set Rs = Conn.Execute(Sql)
ContadorX = 0
Do While Not Rs.EOF
%>
<b><font size="2" face="Verdana"><%=Rs("Acenome")%>
</font></b><font face="Verdana" size="2">
<input name="c<%=ContadorX%>" type="checkbox" class="input_id" value="<%=Rs("AceCod")%>"
style="font-weight: 700"></font><b><font size="2" face="Verdana">
</font></b>
<%
ContadorX = ContadorX + 1
Rs.MoveNext
Loop
%>
Posted by
on 22/09/2006, 12:01
in
Avaliação de Sites
Posted by
on 08/08/2006, 17:27
in
ASP
Timeout expired /Default.asp, line 373 e vai mudando de linha
Posted by
on 17/08/2006, 14:40
in
MySQL
Select * from inscritos where idevento = 27 order by nome asc
Select * from inscritos where nome LIKE '%r%' or email LIKE '%r%' or empresa LIKE '%r%' and idevento = 27 order by nome asc
Posted by
on 18/08/2006, 11:43
in
MySQL
Posted by
on 19/01/2007, 09:42
in
Javascript / DOM / AJAX / ECMAScript
Posted by
on 19/01/2007, 11:32
in
Javascript / DOM / AJAX / ECMAScript
Posted by
on 13/07/2006, 17:11
in
ASP
Microsoft OLE DB Provider for SQL Server error '80040e57' String or binary data would be truncated.
<% 'minha funçao For Each UploadedFile in objUpload.Files caminho = UploadedFile.Path Next quebra = split(caminho,"\") imagem = quebra(ubound(quebra)) Sql = "Update Posto "_ & " Set "_ & " PostoLogo = '" & imagem & "' "_ & " Where PostoCod = '" & Cod & "' " Set Rs = Conn.Execute(Sql) %>
Posted by
on 14/07/2006, 00:34
in
ASP
Posted by
on 07/07/2006, 12:09
in
Dreamweaver
Posted by
on 28/08/2006, 11:46
in
ASP
Antes do </head>
<script>
// A função abaixo pega a versão mais nova do xmlhttp do IE e verifica se é Firefox. Funciona nos dois.
function createXMLHTTP()
{
try
{
ajax = new ActiveXObject("Microsoft.XMLHTTP");
}
catch(e)
{
try
{
ajax = new ActiveXObject("Msxml2.XMLHTTP");
alert(ajax);
}
catch(ex)
{
try
{
ajax = new XMLHttpRequest();
}
catch(exc)
{
alert("Esse browser não tem recursos para uso do Ajax");
ajax = null;
}
}
return ajax;
}
var arrSignatures = ["MSXML2.XMLHTTP.5.0", "MSXML2.XMLHTTP.4.0",
"MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP",
"Microsoft.XMLHTTP"];
for (var i=0; i < arrSignatures.length; i++) {
try {
var oRequest = new ActiveXObject(arrSignatures[i]);
return oRequest;
} catch (oError) {
}
}
throw new Error("MSXML is not installed on your system.");
}
function recuperar(sTipo)
{
var oHTTPRequest = createXMLHTTP();
oHTTPRequest.open("post", "[color=#FF0000]executa.asp[/color]", true);
oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
oHTTPRequest.onreadystatechange=function() {
if (oHTTPRequest.readyState==4){
document.all.[color=#FF0000]divSuporte[/color].innerHTML = oHTTPRequest.responseText;
}
}
oHTTPRequest.send("tipo=" + sTipo);
}
</script>
<body onLoad="recuperar(document.[color=#FF0000]form.tipo[/color].value)">
<form name="[color=#FF0000]form[/color]" id="[color=#FF0000]form[/color]">
Tipo
<select name="tipo" size="1" class="input_id" onChange="recuperar(this.value)" style="WIDTH:200px">
SqlTipo = "Select * "_
& " From Tipo_Veiculo "
Set RsTipo = Conn.Execute(SqlTipo)
If Not RsTipo.EOF Then
Do While Not RsTipo.EOF
%>
<option value="<%=RsTipo("TipoCod")%>"><%=RsTipo("TipoNome")%></option>
<%
RsTipo.MoveNext
Loop
End If
%>
</select>
Marca
<div id="[color=#FF0000]divSuporte[/color]"></div>
<%
[color=#FF0000]tipo [/color] = request.Form("[color=#FF0000]tipo[/color]")
%>
<select name="marca" id="marca" style="width:100%;">
<%
Sql = "Select * From Marca_Veiculo Where MarcaTipo = " & Tipo & " Order By MarcaNome "
Set Rs = Conn.Execute(Sql)
while not Rs.eof %>
<option value="<%=Rs("MarcaCod")%>"><%=Rs("MarcaNome")%></option>
<%
RS.movenext
wend
%>
</select>
Posted by
on 24/07/2006, 11:47
in
ASP
<%
Sql = "Select * From Cliente Where Cod = '" & Cod & "' "
Set Rs = Conn.Execute(Sql)
%>
<select name="sit" class="input_id">
<option value="<%=Rs("Sit")%>" selected><%=Rs("Sit")%></option>
<%
SqlSit = "Select * "_
& " From Situacao "
Set RsSit = Conn.Execute(SqlSit)
Do While Not RsSit.EOF
%>
<option value="<%=RsSti("Sit")%>" ><%=RsSit("Sit")%></option>
<%
RsSit.MoveNext
Loop
%>
</select>
Posted by
on 11/08/2006, 09:15
in
ASP
varTexto = Replace(Request.form("varTexto"),"'","'")
varTexto2 = Replace(Request.form("varTexto2"),"'","'")
......
Posted by
on 06/09/2006, 12:30
in
Javascript / DOM / AJAX / ECMAScript
