kuroi

valeu cara, funcionou certinho. ?? porque o meu codigo do primeiro post sumiu?

assim tb: <input type = "submit" name = "nome" value = "Enviar" p style = "color:black; background-color:white; font-size:12px; font-weight:bold; width:100; height:45; font-family:verdana;">

assim fica dificil, mostre ae o codigo do vb... e qual a mensagem do erro?

sim, se você explicar melhor porque eu não entendi nada... como assim deixar listado a cor?

poste ae o codigo todo.

to com uma duvida meio besta, deve ate ser uma coisa bem simples mas não consigo fazer. como fazer pra mudar a formatacao de um link, quando ponho o mouse em cima? pra ver do q eu to falando, posicione o mouse no link la em cima onde esta escrito "Java Script / CSS / DHTML" e veja q o link muda de cor. é tipo isso q quero fazer. alias, tb tentei ver o codigo fonte do forum mas não entendi nada. tentei fazer assim: <a href = "index.asp" name = "voltar" class = "link1" onMouseOver = "voltar.class='link2';" onMouseOut = "voltar.class='link1';">Voltar</a> mas simplesmente não acontece nada... alguém sabe?

... fiz uma... so q ficou meio zuada. tipo ela so aceita numero menor q 4999. é porque eu não sei como escrever alem disso. alias, pus 4000 com MMMM e não sei se ta certo. como escrevo 5000 por exemplo? onze mil seria MMMMMMMMMMM? e um milhao seriam mil emes? a funcao é essa pra quem quiser: Private Function Romanos(x As Variant) As String Dim strMil As String, strCem As String, strDez As String, strUn As String Romanos = "" If Not IsNumeric(x) Then Exit Function If x < 1 Or x > 4999 Then Exit Function x = Conversion.CInt(x) strMil = "": strCem = "": strDez = "": strUn = "" strMil = Kuroi(x, 1000, "M", "MMM", "") strCem = Kuroi(x, 100, "C", "D", "M") strDez = Kuroi(x, 10, "X", "L", "C") strUn = Kuroi(x, 1, "I", "V", "X") Romanos = strMil & strCem & strDez & strUn End Function Private Function Kuroi(ByRef x As Variant, y As Integer, str1 As String, str2 As String, str3 As String) As String Dim intCont As Integer Kuroi = "" If Int(x / y) = 4 Then Kuroi = str1 & str2 ElseIf Int(x / y) = 9 Then Kuroi = str1 & str3 Else For intCont = 1 To Int(x / y) Kuroi = IIf(intCont = 5, str2, Kuroi & str1) Next End If x = x - (Int(x / y) * y) End Function

ultimo dia util do q? do mes? do ano?

isso mesmo, valeu.

quando clico com o botao direito numa textbox, aparece uma janelinha com as opções Copiar, Colar, etc. tem como eu alterar essa janelinha, tipo tirar opções e colocar outras, q ao serem clicadas chamem o evento q eu quiser? tem como tb bloquer a aparicao da janelinha? e, por exemplo, quando clico com o botao direito no form ou num command button, não abre janelinha nenhuma. tem como eu fazer abrir?

so to perguntando de curiosidade, nem to precisando no momento, mas sera q existe alguma funcao q retorna o valor de um numero em algarismos romanos? tipo 67 = LXVII

tipo assim: <select name = "X" style = "width: 260"> <option value = "1">XXXXXXXX</option> <option value = "2">YYYYYYYYY</option> <option value = "3">ZZZZZZZZ</option> </select> ?? esse tipo de duvida pergunte em JavaScript/CSS.

no site do fabricante: http://www.pcchips.com.tw/PCCWeb/Downloads...enuID=0&LanID=0, você pode baixar o driver, mas realmente parece q não suporta XP. o esquema é comprar uma outra placa de som. da pra encontrar uma decente ate por menos de 100 reais. recomendo uma sound blaster: http://www.bondfaro.com.br/bondfaro/in/pro...in=&pmax=&109=0 antes de comprar, certifique-se q seja compativel com sua placa-mae.

como uso a versao 8.5, não posso te ajudar com esse negocio do OCX, mas posta ae o seu codigo de como você poe a formula pra eu ver se consigo te ajudar com isso.

o q acontece se você fizer o contrario: fechar o cliente enquanto o servidor estiver em execucao e abrir de novo? continua funcionando?

tente isso: strSQL = "INSERT INTO webcam ( ip, data, hora, idioma ) VALUES ('" & Request.ServerVariables("REMOTE_ADDR") & "', " & Format(date(),'YYYY-MM-DD') & ", " & time() & ", 'portugues')" Set rs = adoCon.Execute(strSQL) porque a data deve ficar no formato 2006-01-02. a funcao format funciona no access, no sql não sei. se não funcionar, em vez de:Format(date(),'YYYY-MM-DD') tente: Year(Date()) & '-' & Month(Date()) & '-' & Day(Date())

acho q pode ser isso: se o campo estiver como data o certo é gravar assim "10/02/2007" e entre apostrofos.

como fica o sql agora?

tente isso: sql = "Update clientes set empresa='" & vnome & "', Endereco='" & vendereco & "',Cidade='" & vcidade & "',Telefone=" & vtelefone & ",TelFax=" & vtelfax & ",Proprietario='" & vproprietario & "',Plano='" & vplano & "',Vencimento=" & vvancimento & ",EmDia='" & vemdia & "',Categoria='" & vcategoria & "', Valor=" & vvalor & ",Site='" & vsite & "' Where Codigo = " & vcod faltou os & do vvancimento

ta mas esse é um erro do asp e não do update. mostre o codigo e a linha 28.

não era pra tirar todas as virgulas, e sim a ultima q estava logo na frente do Where. ficando assim: sql= "Update clientes set empresa='" & vnome &"', Endereco='" & vendereco & "',Cidade='" & vcidade &"',Telefone=" & vtelefone &",TelFax=" & vtelfax & ",Proprietario='" & vproprietario & "',Plano='" & vplano &"',Vencimento="01/01/2001",EmDia='" & vemdia &"',Categoria='" & vcategoria & "', Valor=" & vvalor & ",Site='" & vsite &"' Where Codigo = " & vcod

erros q encontrei: 1 - não pode ter virgula antes do Where 2 - em vez de vvencimento=isdate(request.form("Vencimento")) faca vvencimento=request.form("Vencimento") pois a funcao IsDate so verifica se um valor é uma data válida e retorna True/False

falta um apostrofo no campo do IP. e os campos de data e de hora tb devem estar entre apostrofos, assim: INSERT INTO webcam ( ip, data, hora, idioma ) VALUES ('100.100.100.5', '20/01/2006', '11:43:18', 'portugues') o estranho é q no seu codigo o apostrofo do IP aparece: strSQL = "INSERT INTO webcam ( ip, data, hora, idioma ) VALUES ('" & Request.ServerVariables("REMOTE_ADDR") & "', " & date() & ", " & time() & ", 'portugues')" Set rs = adoCon.Execute(strSQL) ou você copiou alguns dos codigos errado?

???? pra eu?

talvez porque na hora de fechar o form do servido você deva passar um comando pra excerrar a execucao do programa nos clientes.