Ir para conteúdo
Fórum Script Brasil
  • 0

Domaindlx.com

Guest Mr_host

Perguntado por Guest Mr_host,

 Share

Pergunta

Guest Mr_host

Guest Mr_host

Postado
Postado

blink.gif

quero saber se alguém sabe como fazer o site www.domaindlx.com permitir acessar bando de dados.,. pois é o unico site de hospedagem asp que achei que não precisa pagar.. mas também essa p**** não acessa banco....

pelamor.. se alguém descobrir como avisa urgente....

valeu.

Link para o comentário
Compartilhar em outros sites

47 respostass a esta questão

Posts Recomendados

  • 0
Teske

Teske

Postado
Postado

aí vai cara.. se souber o problema,, fico feliz.. hhehehe

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/databank.asp" -->
<%
Dim db_not
Dim db_not_numRows

Set db_not = Server.CreateObject("ADODB.Recordset")
db_not.ActiveConnection = MM_databank_STRING
db_not.Source = "SELECT titulo, noticia FROM noticia"
db_not.CursorType = 0
db_not.CursorLocation = 2
db_not.LockType = 1
db_not.Open()

db_not_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 3
Repeat1__index = 0
db_not_numRows = db_not_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName 
%>
<%

Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>

só uma observação:.. esse código aí ^^^^^ foi gerado pelo dreamweaver , mas em minha maquina funco que uma beleza. apenas na ar não....

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Brother, dá algum erro no codigo?

O que acontece?

Posta aí a conexao com o banco..

Maldito dream.. hehe

Ele monta o codigo bonitinho pra rodar localmente

Mas pra web, nunca funciona!

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
Teske

Teske

Postado
Postado

hahahahaa.. biggrin.gifbiggrin.gifbiggrin.gif agora ta funcando.. hehee.. agora é só arrumar o site,. tipo.. ta em fase de testes cool.gif .. ehehe

.. não olhem muito meu site.. ta feio pacas, mas em breve fica bunitão... hehe

.. mas realmente o domainDLX funca.. é só ter paciencia ...

agora é só correr atraz de parcerias.. hehehe, e em breve dominar o mundo*.. hehe

*to zoando tongue.gif

abraços a todos que ajudaram...

o pessoal aqui ajuda mesmo..

VALEU

Link para o comentário
Compartilhar em outros sites
  • 0
Teske

Teske

Postado
Postado

Uma Pergunta a todos rapidão..

alguém usa o alguma pagina asp que envia o formulario pra e-mail, tipo usando como servidor o DomainDLX, é que acho que não tem como mandar atraves do DomainDLX, tipo... devido aos Jmail .. e tal

se alguém usa o DomainDLX e consegue tranquilo mandar um formulario pro e-mail destinado, me avisa que to precisando...

valeu biggrin.gif

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

tipo

você rodou o script que lista os componentes instalados no servidor, aí no domaindlx?

Roda ele, e vê à quais componentes de e-mail ele dá suporte.

Depois posta aí.. e a gente te dá um exemplo de código

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Então Brother..

Copia o codigo que está no Tópico de Funções, e roda ele no seu servidor.

Ele vai mostrar todos os componentes instalados!

Se não me engano, ele tem um componente de email sim, mas não lembro qual, faz tempo que não uso esse servidor, hehe

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Este codigo é uma pagina de contatos que o usario do site preenche e um email é enviado pra voce.

Voce só precisa alterar a segunda linha do script informando o email que ira receber as mensagens

contato.asp

<%
sYouEmail="seuemail@servidor.com.br"
EmailSubject="mensagem de usuario do SITE"
FontColor="#3333FF"
HeadColor="#ffc500"
FormFontColor="#FFFFFF"
FormBackColor="#3333FF"
ErrorColor="red"

Function ValidateField(sFieldvalue, sFieldtype)
	ValidField = true
	Select Case LCase(sFieldtype)
  Case "name"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "email"
  	If Len(sFieldvalue) < 5 Then
    ValidField = False
  	Else
    If InStr(1, sFieldvalue, "@", 1) < 2 Then
    	ValidField = False
    Else
    	If InStr(1, sFieldvalue, ".", 1) < 4 Then
      ValidField = False
    	End If
    End If
  	End If
  Case "message"
  	If Len(sFieldvalue) = 0 Then ValidField = False
  Case "else"
  	ValidField = False
	End Select
ValidateField = ValidField
End Function
Sub ShowForm
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="634">
<tr>
<td width="100%">&nbsp;<center><form action="<%= Request.ServerVariables("Script_Name") %>" method="post">
<p>&nbsp;</p>
<table border="0" cellspacing="0" width="240" cellpadding=0><tr bgcolor="<%=HeadColor%>">
<td ALIGN="left"><font color="<%=FontColor%>" face="verdana,arial,helvetica" size="-1"><B>
Seu Nome:</B></font>&nbsp;</td></tr>
<tr><td><input name="name" type="text" value="<%= Request.Form("name") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td>
</tr><tr><td><%
  If dictFields(LCase("name")) Then
  Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Voce precisa informar um nome</font>"
	Else  
  Response.Write "&nbsp;"
  End If
  %>
</td></tr>
	<tr bgcolor="<%=HeadColor%>">
  <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>email:</B></font>&nbsp;</td></tr>
  <tr><td><input name="email" type="text" value="<%= Request.Form("email") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td>
  </tr><tr><td><%
  If dictFields(LCase("email")) Then
  Response.Write "<font color=""" & ErrorColor & """  face=""verdana,arial,helvetica"" size=-2>voce precisa informar um endereço de email valido</font>"
	Else  
  Response.Write "&nbsp;"
  End If
  %>
</td></tr>
	<tr bgcolor="<%=HeadColor%>">
  <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>
        Mensagem:</B></font>&nbsp;</td></tr>
  <tr><td><TEXTAREA NAME="message" WRAP=VIRTUAL COLS="45" ROWS=7 style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"><%= Request.Form("message") %></TEXTAREA></td>
  </tr><tr><td><%
  If dictFields(LCase("message")) Then
  Response.Write "<font color=""" & ErrorColor & """  face=""verdana,arial,helvetica"" size=-2> Você precisa digitar uma mensagem</font>"
	Else  
  Response.Write "&nbsp;"
  End If
%>
</td></tr>
<tr><td colspan=2><font color="#000000" face="verdana,arial,helvetica" size="-1"><input type="checkbox" name="agree" value="true" <% 
  if Len(Request.Form("agree")) > 0 then 
  Response.Write "checked"
  End If
  %>> Clique aqui caso deseje fazer parte de nossa lista de contatos</td></tr>
</table><p><input type="submit" value="Envia Mensagem"></input><br></form>
<P>
<%
End Sub
Sub Send
sPunter = Request.Form("Name")
sPunterEmail = Request.Form("Email")
Message = Request.Form("message")
If Request.Form("agree") = "true" then
Mailout = "Ele deseja ser incluido em nossa lista de contatos"
Else
Mailout ="Ele NÃO deseja ser incluido em nossa lista de contatos"
End If
sMessage = "Essa é uma mensagem de " & sPunter & vbcrlf _
        & vbcrlf _
  & vbcrlf _
  & Message & vbcrlf _
  & vbcrlf _
  & "Seu email é: " & sPunterEmail & vbcrlf _
  & vbcrlf _
  & Mailout & vbcrlf _
  & vbcrlf  
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.Send sPunterEmail, sYouEmail, EmailSubject, sMessage
Set objNewMail = Nothing
End Sub

Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in Request.Form
If ValidateField(Request.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If Request.Form.Count <> 0 And dictFields.Count  = 0 Then
%><P>
&nbsp;<P>
&nbsp;<b>Sua Mensagem foi enviada!<BR></b><P><b><i>Obrigado por entrar em contato.</i></b><BR>
<%
Call Send
Else
ShowForm
End If
%></td>
</tr>
</table>

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

executa esse script aqui no servidor para ver os componentes instalados:

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(11)
Dim theComponentName(11)

' componentes
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"

' apelido do componente!
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"

Function IsObjInstalled(strClassString)
On Error Resume Next
  IsObjInstalled = False
  Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
  Err = 0
End Function
%>
<html>
<head>
<title>O q tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes 
      instalados:</b></font></td>
  </tr>
  <tr>
    <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <% 
  Dim i
        For i=0 to UBound(theComponent)
      If Not IsObjInstalled(theComponent(i)) Then
      
  Else
            Response.Write "<tr>" & vbCrLf
          Response.Write "<td width=""100%"">" & vbCrLf
          Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
          Response.Write "</td>" & vbCrLf
          Response.Write "</tr>" & vbCrLf
      End If
    Next 
    %>
  </table>
</font> 
</td>
  </tr>
</table>

</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
Teske

Teske

Postado
Postado

blink.gif quando a esmola é demais, o santa desconfia.. hehehe

bom por enquanto vou ficar com esse mesmo, sem "verba" não dá pra pagar nada.. hehe.. mas pelo menos já acessa bd não posso reclamar disso..hehe

mas valeu mesmo assim.. pelo menos já sei como ver os componentes do servidor.. tongue.gif

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado
blink.gif quando a esmola é demais, o santa desconfia.. hehehe

bom por enquanto vou ficar com esse mesmo, sem "verba" não dá pra pagar nada.. hehe.. mas pelo menos já acessa bd não posso reclamar disso..hehe

mas valeu mesmo assim.. pelo menos já sei como ver os componentes do servidor.. tongue.gif

ai brother manda pm pro jissa.... você consegue um plano por menos de 10 reais....

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...