Cara, pra poder criar os outros sites, basta que você os coloque em pastas diferentes, acessando-as da seguinte forma:

http://localhost/pasta1/default.asp

http://localhost/site2/default.asp

e assim por diante.

[]'s

Nossa,

a resposta pra sua pergunta é:

basta que você teste os dois, e vê qual se adequa melhor à sua dúvida.

Perdão.


Testa isso antes do Do While:
Dim Matriz(Rs.Recordcount)

Se não der, vc vai precisar fazer um SELECT COUNT Antes de mais nada, pra pegar o total de registros, e jogar na declaração de matriz, entendeu?

SQL = "SELECT COUNT(CAMPO) AS TOTAL FROM TABELA WHERE CAMPO=VARIAVEL"
SET RS = CONN.EXECUTE(SQL)

IF NOt RS.Eof or Not RS.Bof Then
Dim Matriz(RS("TOTAL"))

'Faz o select denovo pra mostrar os dados e poe o resto da rotina

End if



Att.

é.. apesar de você ter alterado o operador né...

Let´s go..

'## Pegamos os nomes dos campos.
for each NomesCampos in request.form

Campos = NomesCampos&","&Campos

next
'## Colocando todos os valores em uma variável.
Campos = left(Campos, len(Campos) -1)

Assim você pega o nome de cada campo do Form né?

Então aí vai..

NomesCampo = Split(NomesCampo,",")
j = 0
StrUpdate = ""
For i = 0 To Ubound(NomesCampo)
	StrUpdate = StrUpdate & NomesCampo(i) & "='"& Request.Form(NomesCampo(i)) & "',"
Next

If Right(Trim(StrUpdate),"1") = "," Then StrUpdate = Left(Trim(StrUpdate),Len(StrUpdate) - 1)

Testeia e poste o resultado.

Abs.

Poxa, é bom dar uma pesquisada antes de postar né meu velho...

<%
Valor1 = Request.Form("Campo1")
Valor2 = Request.Form("Campo2")
Valor3 = Request.Form("Campo3")
Sql = "UPDATE TABELA SET Campo1='"&Valor1&"',Campo2='"&Valor2&"','"&Valor3&"' WHERE codigo = "&Request.QueryString("codigo")&""
Conn.Execute(Sql)
%>

Hmm..

Eu entendi que..

O Blog, os artigos estão no mesmo banco de dados, mas em tabelas diferentes, e você quer trabalhar com essas duas tabelas em uma mesma página, certo? (Tá vendo a objetividade e simplicidade com que tanto esperamos?)

Bom, muito simples. Como eu havia dito antes, basta que você abra um Recordset pra cada tabela, Exemplo:

SqlArtigos = "SELECT * FROM ARTIGOS"
Set RsArtigos = Conn.Execute(SqlArtigos)

SqlBlog = "SELECT * FROM BLOG"
Set RsBlog = Conn.Execute(SqlBlog)


Entendido?

<%

sql = "select perguntas,pergID from perg_administrativo order by rnd(Int(Now()*[pergID])-Now()*[pergID])"

set rs = conexao.execute(sql)



If Not rs.Eof or Not rs.Bof Then

	Sql2 = "SELECT opcoesID,opcoes From tblopcoes Where pergID="&rs("pergID")&""

	Set Rs2 = Conexao.Execute(Sql2)

	If Not Rs2.Eof or Not Rs2.Bof Then

  %>

  <table width="100%" border="0" cellspacing="0" cellpadding="0">

 	 <tr> 

    <td><b><font face="verdana"><%response.Write(""& rs("Perguntas") &"")%></font></b><br><br></td>

 	 </tr>

 	 <%

 	 Do While Not Rs2.Eof

    %>

    <tr> 

   	 <td><input type="radio" name="<%=Rs2("opcoesID")%>" id="<%=Rs2("opcoesID")%>"/><%=Rs2("opcoes")%></td>

   	 </tr>

    <%

    Rs2.MoveNext

 	 Loop

 	 %>

 	 </table>

 	 <%

	End if

End if

%>

o q eu quero é simples, um form numa pg asp que edite os dados jah inseridos no banco de dados no formato mdb

Eu pedi código mara db.mdb e ele me mandou um para sql... Se for esse aí, eu já tinha achado, ams não uso sql, só mdb.

Te juro que não entendi. Você tem o código que faz a inserção? Pra inserir você usa o quê? AddNew? Explica ae

document.form1.submit();
document.form1.reset();

[]'s

data1 = Rs("Campo_tabela1")
data2 = Rs("Campo_tabela2")

if Datevalue(data1) > Datevalue(data2) Then
response.write("Data1 é mais recente")
Elseif Datevalue(data1) > Datevalue(data2) Then
response.write("As datas são iguais")
Else
response.write("Data2 é maior")
End if

Creio que deva resolver.

Se o negócio é só gerar, então vai essa função que eu fiz que modéstia parte ficou muito boa

Function geraNumLetras(x)
	If Isnumeric(x) Then
  Ordinais = "abcdefghijklmnopqrstuvxzywABCDEFGHIJKLMNOPQRSTUVXZWY0123456789"
  Str = ""
  For i = 1 To x
  	Posicao = Cint(Rnd()*Len(Ordinais))
  	Str = Str & Mid(Ordinais,Posicao,1)
  Next
  geraNumLetras = Str
	End iF
End Function

Pra usar é:

<%
Quantidade = 6 'Quantidade de Carcteres que quer
geraNumLetras(Quantidade)
%>

[]'s

Você quer pegar a maior, ou que a maior de um dos campos seja mostrada?

Manda o seu do jeito que tá e a linha com erro, que eu conserto mais a noite. Mandae.

// *** Edit Operations: declare variables
// set the form action variable
var MM_editAction = Request.ServerVariables("SCRIPT_NAME");
if (Request.QueryString) {
MM_editAction += "?" + Request.QueryString;
}

Cara, tem certeza que está mexendo com ASP?

Isso aí não é ASP não fio.

Function geraNumLetras(x)
If Isnumeric(x) Then
Ordinais = "abcdefghijklmnopqrstuvxzywABCDEFGHIJKLMNOPQRSTUVXZWY0123456789"
Str = ""
For i = 1 To x
Randomize
Posicao = Cint(Rnd()*Len(Ordinais))
Str = Str & Mid(Ordinais,Posicao,1)
Next
geraNumLetras = Str
End iF
End Function

Esqueci, Malz.

Amigo,

Basta que tenha o CD do Windows XP em mãos e vá em Adicionar/Remover Programas, Instalar Componentes do Windows, Marcar a opção IIS - Internet Inform... E Ir dando uns Next da vida, e caso precise do CD, como você o tem em mãos, insira o mesmo no drive e boa programação

Com relação à sua dúvida, eu sugeriria que você postasse no fórum do IIS / PWS mas já que veio aqui, então está aí a solução.


Abs.

Claro uai...


NomesCampo = Split(Campos,",")
j = 0
StrUpdate = ""
For i = 0 To Ubound(NomesCampo)
StrUpdate = StrUpdate & NomesCampo(i) & "='"& Request.Form(NomesCampo(i)) & "',"
Next

If Right(Trim(StrUpdate),"1") = "," Then StrUpdate = Left(Trim(StrUpdate),Len(StrUpdate) - 1)

[]'s

Hehehe


A idéia é boa.. Amanhã ou depois, vou pegar o que você fez, e vou montar uma função que gere menos processamento o possível, daí posto aqui pra vocês.

Abs.


Ah Obs:

==================================
'## Pegamos os valores dos campos.
' ==================================
for each ValoresCampos in Request.Form

Valores = "'"& Request.form(ValoresCampos)&"',"&Valores

next
' Colocando todos os valores em uma variável.
Valores = left(Valores, len(Valores) -1)



Isso aí pelo menos nessa rotina, se torna Obsoleto né, pode rancar isso aí fora..

Não digo total, mas bastante diferente, e .Net concerteza..


http://www.linhadeco...id_ac=381&pag=1


Abs.

Qual o erro?

Replace(FormatNumber(session("ValorTotal")),",",".")

Fala..

Eu tenho o value de um option de um select.

Eu preciso pegar o índice desse option, pra poder alterar seu text.

Como eu conseguiria pegar o índice dele, tendo apenas o índice?

Rs.

Corrigindo..

Como eu conseguiria pegar o índice dele, tendo apenas o value?

Acho q eh pq ja eh sexta feira

Ou dei uma procurada e nem achei nada a respeito.

Seguinte, eu tenho um <a href="mailto:lalala@lalala.com">lala@lala.com</a>

Ok,

eu preciso que quando fosse chamado o correio padrão, eu mandasse também um arquivo em anexo pro corrio padrão. Alguém tem noção de uma solução?

Abs.