franciscobiscaino

o advanced não exige não mais hardware por exemplo todas as praticas no curso quando eu fiz o mcse era em um pIII 650 com 256 de mem e deu p/ montar tudo que eu tinha direito desde o win em sistema de servidor do dominio server de dhcp server de web e-mail server de dns roteador e etc....... agora claro que você somente hospedando não vai utilizar tudo isto e o win concerteza é leve

DA SIM É SÓ CONFIGURAR O SEU IP NO IIS AGORA SE SEU IP É DINAMICO você TEM QUE MUDAR ELE TODA A VEZ AGORA já ME DISSERAM QUE TEM UM PROGRAMA QUE MESMO COM IP DINAMICO você PODE FICAR TRANQUILO QUE ELE FAZ ISTO AUTOMÁTICAMENTE EU TO PROCURANDO UM E QUANDO EU ACHAR E UTILIZA-LO E VER SE É BOM EU FALO

TO TENTANDO AQUI MAS NÃO TA DANDO CERTO VEJA COMO FICOU O CÓDIGO <!-- #include file="CONFIGS.asp" --> <% '*********************************************************** * * '*********************************************************** sUserName = "" & RequestValue("username") sName = "" & RequestValue("name") sEmail = "" & RequestValue("email") sDianasc = "" & RequestValue("Dianasc") sMesnasc = "" & RequestValue("Mesnasc") sAnonasc = "" & RequestValue ("Anonasc") sSexo = "" & RequestValue("Sexo") sAddressOne = "" & RequestValue("addressone") sBairro1 = "" & RequestValue("Bairro1") sAddressTwo = "" & RequestValue("addresstwo") sBairro2 = "" & RequestValue("Bairro2") sFone = "" & RequestValue("fone") sDdd1 = "" & RequestValue("ddd1") sCel = "" & RequestValue ("cel") sDdd2 = "" & RequestValue("ddd2") sCPF = "" & RequestValue("CPF") sCity = "" & RequestValue("city") sState = "" & RequestValue("state") sZip = "" & RequestValue("zip") sCountry = "" & RequestValue("country") sInfoad = "" & RequestValue("Infoad") sNovidades = "" & RequestValue("Novidades") sString = "" OpenDBConn DoPageHeader If Len(Trim(sUserName)) = 0 Then sString = sString & ErrorString(GLS_UserNameDet) End If If Len(Trim(sName)) = 0 Then sString = sString & ErrorString(GLS_Name) End If If Len(Trim(sEmail)) = 0 Then sString = sString & ErrorString(GLS_Email) End If If Len(Trim(sAddressOne)) = 0 AND gbReqAddress Then sString = sString & ErrorString(GLS_AddressOne) End If If Len(Trim(sCPF)) = 0 AND gbReqCPF Then sString = sString & ErrorString(GLS_CPF) End If If Len(Trim(sCity)) = 0 AND gbReqCity Then sString = sString & ErrorString(GLS_City) End If If Len(Trim(sState)) = 0 AND gbReqState Then sString = sString & ErrorString(GLS_State) End If If Len(Trim(sZip)) = 0 AND gbReqZip Then sString = sString & ErrorString(GLS_Zip) End If If Len(Trim(sCountry)) = 0 AND gbReqCountry Then sString = sString & ErrorString(GLS_Country) End If If sString <> "" Then Response.Write "<CENTER>" & gsErrorTextOpen & sString & "<BR>" & GLS_GoBack & gsErrorTextClose & "</CENTER>" Else CheckName End If DoPageFooter Function ErrorString(sField) ErrorString = replace(GLS_FieldErr,"%FIELDNAME%","<B>" & UCASE(sField) & "</B>") & "<BR>" End Function Sub CheckName sSQL = sSQL & "SELECT COUNT(*) as Total FROM tblQARegistration WHERE regUserName = " & SQLStr(sUserName) Set CountRS = gobjConnect.Execute(sSQL) If CountRS.Fields("Total") > 0 Then Response.Write "<P ALIGN=""CENTER"">" & gsAuctionTextOpen & replace(GLS_NameTaken, "%NAME%", sUserName) & "<BR>" Response.Write GLS_TryAgain & gsAuctionTextClose & "</P>" Else Call InsertUser End If CountRS.Close set CountRS = Nothing End Sub Sub InsertUser Randomize sPassword = clng(rnd * 1000000) + 1000 function CalculaCPF() Dim RecebeCPF, Numero(11), soma, resultado1, resultado2 RecebeCPF = Request("CPF") 'Retirar todos os caracteres que não sejam 0-9 s="" for x=1 to len(RecebeCPF) ch=mid(RecebeCPF,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next RecebeCPF = s if len(RecebeCPF) <> 11 then response.write("<h1>&Eacute; obrigat&oacute;rio o CPF com 11 d&iacute;gitos</h1>") elseif RecebeCPF = "00000000000" then response.write("<h1>CPF Inválido</h1>") else Numero(1) = Cint(Mid(RecebeCPF,1,1)) Numero(2) = Cint(Mid(RecebeCPF,2,1)) Numero(3) = Cint(Mid(RecebeCPF,3,1)) Numero(4) = Cint(Mid(RecebeCPF,4,1)) Numero(5) = Cint(Mid(RecebeCPF,5,1)) Numero(6) = CInt(Mid(RecebeCPF,6,1)) Numero(7) = Cint(Mid(RecebeCPF,7,1)) Numero(8) = Cint(Mid(RecebeCPF,8,1)) Numero(9) = Cint(Mid(RecebeCPF,9,1)) Numero(10) = Cint(Mid(RecebeCPF,10,1)) Numero(11) = Cint(Mid(RecebeCPF,11,1)) soma = 10 * Numero(1) + 9 * Numero(2) + 8 * Numero(3) + 7 * Numero(4) + 6 * Numero(5) + 5 * Numero(6) + 4 * Numero(7) + 3 * Numero(8) + 2 * Numero(9) soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado1 = 0 else resultado1 = 11 - soma end if if resultado1 = Numero(10) then soma = Numero(1) * 11 + Numero(2) * 10 + Numero(3) * 9 + Numero(4) * 8 + Numero(5) * 7 + Numero(6) * 6 + Numero(7) * 5 + Numero(8) * 4 + Numero(9) * 3 + Numero(10) * 2 soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado2 = 0 else resultado2 = 11 - soma end if npSQL = "INSERT INTO tblQARegistration (regUserName, regPassword, regValidated, regName, anonasc, mesnasc, dianasc, regEmail, " & _ "regSexo, regBairro1, regBairro2, regAddress1, regAddress2,regFone,regDdd1, regCel, regDdd2, regCPF, regCity, regState, regZip, Infoad, Novidades, regCountry) VALUES (" & _ SQLStr(sUserName) & ", " & _ SQLStr(sPassword) & " , " & _ SQLBool(gbUsersAdd) & ", " & _ SQLStr(sName) & ", " & _ SQLStr(sAnonasc) & ", " & _ SQLStr(sMesnasc) & ", " & _ SQLStr(sDianasc) & ", " & _ SQLStr(sEmail) & ", " & _ SQLStr(sSexo) & ", " & _ SQLStr(sAddressOne) & ", " & _ SQLStr(sBairro1) & ", " & _ SQLStr(sAddressTwo) & ", " & _ SQLStr(sBairro2) & ", " & _ SQLStr(sfone) & ", " & _ SQLStr(sDdd1) & ", " & _ SQLStr(sCel) & ", " & _ SQLStr(sDdd2) & ", " & _ SQLStr(sCPF) & ", " & _ SQLStr(sCity) & ", " & _ SQLStr(sState) & ", " & _ SQLStr(sZip) & "," & _ SQLStr(sInfoad) & "," & _ SQLStr(sNovidades) & "," & _ SQLStr(sCountry) & " )" gobjConnect.Execute(npSQL) Response.Write "<P ALIGN=""CENTER"">" & gsAuctionTextOpen & GLS_RegistrationSuccessMsg & "<BR>" SendPassEmail(sPassword) Response.Write GLS_PasswordEmailed & "<BR>" Response.Write GLS_ChangePasswordInstruction & "<BR>" Response.Write GLS_ClickToContinue & gsAuctionTextClose & "</P>" End Sub Sub SendPassEmail(sPass) sBody = "" & ReadFile(Server.MapPath("QAEmailTemplates\QANewUserRegister.txt")) sBody = Replace(sBody, "%USERNAME%", sUserName) sBody = Replace(sBody, "%PASS%", sPass) sBody = Replace(sBody, "%AUCPATH%", gsAucURL) sBody = sBody & Chr(13) & Chr(10) & "Bekan© todos os direitos reservados" sSubject = GetFirstLine(sBody) SendEmailMessage sEmail, gsAdminEmail, sSubject, sBody End Sub %> O ERRRO É ESTE Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe /QuickAuction200/QuickAuction/QuickAuction/QAPostUser.asp, line 101 function CalculaCPF()

HEHEHE CARREGA O NOOTBOOK

ele funciona como fosse um ftp personalizado no qual você configura p/ qual pasta ele vai mandar o arquivo agora pega um script aqui mesmo e da uma olhada nele e é bem simples de enteder o restante agora o uplod ele tb usa componete tipo jupload ou ASPUPLOAD

Ai galera eu tenho visto que muitos dos erros das pg que não funcionam é porque o usuário não sabe configurar o iis 5 p/ começar a trabalhar e montar os seus scripts eu sei que isto é chato então manda ai a sua duvida

caro vulmarjunior me diga como está a config do seu iis nestas seguintes partes na proriesdades do site no iis em filtros isapi tem algum em vermelho se está tem algo errado e na guia diretório base em configurações todas as partes lá como elas estão talvez você tenha que reinstalar o iis agora você já sabe das permissões elas já foram configuradas e qunado você desintalar o iis e reinstalar ele elas estarão lá e você vai ter o iis novinho então tudo vai ficar legal agora se as permissões forem removidas com a desintalação você coloca elas denovo pois o que eu estou entendendo ai é que talves você andou mexendo no mapeamento do cgi ou não soube intalar o php no iis

já ia me esquecendo se você configurou um ip p/ visualizar e como você usa a net toda hora com speedy e você vive trocando o seu ip na realidade o problema não é o iis mas o que você fez no iis porque o end de ip que você conf toda hora é o mesmo que a sua máquina atribuiu atravez de um servidor de DHCP do seu provedor então você foi abilitado na net se outra pessoa digitar o seu ip no navegador vai conseguir visualizar a sua pg por causa do ip válido mas quando você desconecta e conecta novamente o ip muda e como você não usa o loopback como eu percebi ai você não pode visualizar atravez do end de ip antigo pois a sua máquina tem um novo ip fornecido pelo seu provedor então usa o loopback como eu citei p/ você e fica frio com o iis

você não prescisa configurar o ip toda a vez que você for utilizar o iis você tem que deixar ele na opção todos não atribuidos e ai utilizar o seu loopback que é o 127.0.0.1 e ai você deixa p/ vizualizar no diretório e ai é só clicar em cima da pag que você que ver e ai beleza e não precisar ter trocar toda hora o seu ip

você pode converte-lo p/ o formato 97 com a ferramenta de conversão de bd no menu ferramentas ou ativas as compatibilidade com com um formato mais antigo tal como 2000 ou 97

acesso com o profissional não da porque ele não tem o RAS ou caso você encontre um software de 3 para você fazer isto o RAS vem somente com o server pra cima

isto depende se o iis dele for o do xp ele não tem se for o do 2000 profissional depende da versão que ele tem agora as versões p/ server já vem junto

você não deve dar estaus de admi p/ o usuário iis pelo contrario ele somente prescisa ter no máximo ler e gravar no disco rigido e mais nada no win 2000

hehhehehe eu imagino porque eles sempre querem economizar

sim os beta-testers tb tem mas o com licença de 1 ano os mcse e mct e os parceiros tem a de 2 anos é praticamente um ensentivo p/ a gente quando a gente vai em eventos e a gente mostra a nossa endentificação na parte promocionais eles sempre dão presentes p/ a gente ou até mesmo enviam p/ a gente por exemplo a no ano passado eu ganhei uma cópia do win 2000 advanced server com 5 liçensas (detalhe um software carissímo) por causa da certificação e outra eles mandam estas coisas automaticamente agora se o seu esta com a abertura .NET somente e não tem a 2003 escrita você somente tem o rc1 você temn que baixar o rc2 e reintalar ai

beleza qualquer duvida manda ai p/ ajudar o pessoal ai não detonar a sua máquina

lamento lhe informar mas esta é a unica maneira de visualiza-la

eu já uso ele a 9 meses e ele é mais estável que os outros sistemas de server e ele é realmente muito bom mesmo (obs: a microsoft manda antecipado aos mcse um cópia p/ todos com licença de 1 a 2 anos ehhehee)

concerteza é uma boa mesmo é bem simples em propriedades do sistema você faz o seguinte clica em hardeware e depois em perfies de hardeware e ai você manda copiar o que já esta funcionando legal e renomeia os 2 p/ você ter um controle melhor e quando você iniciar o sistema vai ter um menu perfil 1 e 2 para escolher isto é muito usado em notebook que as config mudam do seu escritório p/ sua casa detalhe antes de você mudar p/ ntfs procura entender um pouco sobre permisões ntfs p/ fazer funciona legal o seu iis depois você tem que dar permição p/ o iusr_computername p/ ele acessar o seu disco p/ usar o bd a melhor info é no help qualquer duvida manda ai

o win xp realmente ele é um bom sistema mas ele é melhor quando você tem ele na versão corporate 2º edição porque a 1º tem muitos bugs por ter sido lançado as preças

unidade :\Documents and Settings\usuario\Configurações locais\Temporary Internet Files eles estão ocultos por isto antes de bucar tire a opção ocultar das pastas nas propriedades das pastas

3000 você tá loco!!!!! com o que você paga um speedy de 512 e uma máquina boa já da para fazer um server você somente tem que ter uma boa máquina e uma boa conexão

utiliza o aspemail é muito melhor e tem mais recursos www.aspemail.com/download.html. o cdonts não vem junto

então desculpe me dizer você não vai progredir muito com programação e em S.O se você não se esforçar pelo menos com um portugues técnico hoje em dia é muito dificil principalmente se você trb em uma empresa ficar esperando o fabricante traduzir o help e o manual e quando eles traduzem você não faz um esforço para entender o que está escrito

qual win é o seu