Indique essa página ...

[NoL 0]

Opa ...Estou com o sequinte codigo de indicar uma certa notícia para um amigo ... só que ele ao invés de enviar o endereço do site por completo ... ele só envia no caso assim ... pagina.asp ... enquanto era para ser www.site.com.br/pagina.asp ... e tb ... tem como eu fazer com q a pessoal mesmo dando enviando email pelo bol ... ele seja enviado ? segue o codigo abaixo ... Página indica.asp

<%Dim paginapagina = Request.ServerVariables("URL") '& request.ServerVariables("QUERY_STRING")'response.write paginaResponse.write ("<a href=indica_para_amigo.asp?pag="&pagina &">Indique para um amigo</a>")%>

Página indica_para_amigo.asp

<%Dim paginapagina = Request.ServerVariables("URL") '& request.ServerVariables("QUERY_STRING")'response.write paginaResponse.write ("<a href=indica_para_amigo.asp?pag="&pagina &">Indique para um amigo</a>")%><%link = request.querystring("pag")'response.write link%><form name="form1" method="post" action=""> <table width="400" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="130">Seu email:</td> <td width="270"><input name="email1" type="text" id="email1"></td> </tr> <tr> <td>Nome Amigo(a)</td> <td><input name="nome2" type="text" id="nome2"></td> </tr> <tr> <td>Email Amigo:(a)</td> <td><input name="email2" type="text" id="email2"></td> </tr> <tr> <td> </td> <td><input type="submit" name="Submit" value="Enviar"></td> </tr> </table></form><% if request.Form("Submit")="Enviar" then Call enviar() End ifSub enviar()Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = request.form("email1") ' e-mail de quem esta enviando a mensagem Mailer.To = request.form("email2") ' e-mail de quem vai receber a mensagem Mailer.BodyFormat = 1 ' parametro de formatação Mailer.MailFormat = cdoMailFormatText ' parametro de formatação Mailer.Subject = "Site do seu interesse" Mailer.Body = "Olá" & request.form("nome2") &"achei q este site te interessa" &"<br>"& linkMailer.Send Set Mailer = Nothing msg = "Email enviado com sucesso!"response.Write("<script language = 'javascript'>")response.Write("alert('" & msg &"');")response.Write("</script>")end sub%>

[]´sNoL

[NoL 0]

entao cara, como eu havia colocado neste topico, eu nao tinha testado o script por falta de tempo..coloca assim

<%pagina ="http://www."& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url")response.Write pagina%>

e se você tver uma querystring, é so concatenar "&" com o '& request.ServerVariables("QUERY_STRING")testa e ve se funciona.

Opa Lucas ...Funcionou direitim ... obrigado ... na hora de concantenar está saindo assim o endereçohttp://www.www.site.com.br/default.aspsessao=fale_conosco ... era para fikar assim default.asp?sessao=fale_conoscoo codigo tah assim

pagina ="http://www."& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url")&request.ServerVariables("QUERY_STRING")

[]´sNoL

[NoL 0]

Assim...

<%pagina ="http://www."& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url")&request.ServerVariables("QUERY_STRING")response.Write pagina%>

Opa Lucas ...Funcionou direitim ... obrigado ... só que o endereço estah saindo assimdefault.aspsessao=fale_conosco ... era para fikar assim default.asp?sessao=fale_conosco faltou o "?"O que pode estar havendo ??[]'sNoL

[NoL 0]

Opa ... funfou direitim ... valewsss mesmo !Qualquer coisa tamos ae...[]´sNoL