Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Gilbertosantos

Duclassifield (AspMail)

Por , em Flash, ActionScript e tecnologias Adobe

Recommended Posts

Gilbertosantos    0

Gilbertosantos
Postado

Estou migrando para um servidor que não usa o CDonts e sim o ASPmail.

Uso e tenho um banco de dados que será necessário usar neste novo servidor, mas o Duclassifield usa na postagem o CDonts.

Alguem saberia como mudar para ASPMail:

 

Abaixo o código da pagina de coleta de dados

 

e

 

a página de envio.

 

Pagina de coleta de dados - Addetail.asp

 

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="../Connections/connDUclassified.asp" -->

 

<%

' update the VIEWED field of ADS table - total times this ad is clicked to view

if(Request.QueryString("ad_id") <> "") then cmClick__varAd = Request.QueryString("ad_id")

%>

<%

set cmClick = Server.CreateObject("ADODB.Command")

cmClick.ActiveConnection = MM_connDUclassified_STRING

cmClick.CommandText = "UPDATE ADS SET AD_VIEWED = AD_VIEWED + 1 WHERE AD_ID = " + Replace(cmClick__varAd, "'", "''") + " "

cmClick.CommandType = 1

cmClick.CommandTimeout = 0

cmClick.Prepared = true

cmClick.Execute()

%>

 

<%

' Here is the beginning of recordsets

Dim rsCat__MMColParam

rsCat__MMColParam = "1"

if (Request.QueryString("cat_id") <> "") then rsCat__MMColParam = Request.QueryString("cat_id")

%>

<%

set rsCat = Server.CreateObject("ADODB.Recordset")

rsCat.ActiveConnection = MM_connDUclassified_STRING

rsCat.Source = "SELECT CAT_ID, CAT_NAME FROM CATS WHERE CAT_ID = " + Replace(rsCat__MMColParam, "'", "''") + ""

rsCat.CursorType = 0

rsCat.CursorLocation = 2

rsCat.LockType = 3

rsCat.Open()

rsCat_numRows = 0

%>

<%

Dim rsSub__MMColParam

rsSub__MMColParam = "1"

if (Request.QueryString("sub_id") <> "") then rsSub__MMColParam = Request.QueryString("sub_id")

%>

<%

set rsSub = Server.CreateObject("ADODB.Recordset")

rsSub.ActiveConnection = MM_connDUclassified_STRING

rsSub.Source = "SELECT SUB_ID, CAT_ID, SUB_NAME FROM SUBS WHERE SUB_ID = " + Replace(rsSub__MMColParam, "'", "''") + ""

rsSub.CursorType = 0

rsSub.CursorLocation = 2

rsSub.LockType = 3

rsSub.Open()

rsSub_numRows = 0

%>

<%

Dim rsDetail__MMColParam

rsDetail__MMColParam = "1"

if (Request.QueryString("ad_id") <> "") then rsDetail__MMColParam = Request.QueryString("ad_id")

%>

<%

set rsDetail = Server.CreateObject("ADODB.Recordset")

rsDetail.ActiveConnection = MM_connDUclassified_STRING

rsDetail.Source = "SELECT * FROM ADS, USERS WHERE AD_ID = " + Replace(rsDetail__MMColParam, "'", "''") + " AND ADS.AD_POSTER = USERS.U_ID"

rsDetail.CursorType = 0

rsDetail.CursorLocation = 2

rsDetail.LockType = 3

rsDetail.Open()

rsDetail_numRows = 0

%>

<%

Dim Repeat1__numRows

Repeat1__numRows = 25

Dim Repeat1__index

Repeat1__index = 0

rsAds_numRows = rsAds_numRows + Repeat1__numRows

%>

<%

' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

 

' create the list of parameters which should not be maintained

MM_removeList = "&index="

If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="

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

 

' add the URL parameters to the MM_keepURL string

For Each Item In Request.QueryString

NextItem = "&" & Item & "="

If (InStr(1,MM_removeList,NextItem,1) = 0) Then

MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))

End If

Next

 

' add the Form variables to the MM_keepForm string

For Each Item In Request.Form

NextItem = "&" & Item & "="

If (InStr(1,MM_removeList,NextItem,1) = 0) Then

MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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)

if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)

if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

 

' 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

%>

<%

Dim HLooper1__numRows

HLooper1__numRows = -3

Dim HLooper1__index

HLooper1__index = 0

rsAds_numRows = rsAds_numRows + HLooper1__numRows

%>

<html>

<head>

<title>Classificados do Site do Avestruz - Detalhes</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="css/css.css" type="text/css">

<script language="JavaScript">

<!--

function MM_findObj(n, d) { //v4.0

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);

if(!x && document.getElementById) x=document.getElementById(n); return x;

}

 

function MM_validateForm() { //v4.0

var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;

for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args);

if (val) { nm=val.name; if ((val=val.value)!="") {

if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');

if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';

} else if (test!='R') {

if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';

if (test.indexOf('inRange') != -1) { p=test.indexOf(':');

min=test.substring(8,p); max=test.substring(p+1);

if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';

} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }

} if (errors) alert('The following error(s) occurred:\n'+errors);

document.MM_returnValue = (errors == '');

}

 

function MM_callJS(jsStr) { //v2.0

return eval(jsStr)

}

//-->

</script>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<style>

BODY {SCROLLBAR-FACE-COLOR: #CC0000; SCROLLBAR-HIGHLIGHT-COLOR: #CC0000; SCROLLBAR-SHADOW-COLOR: #FF0033; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #FFFFFF; SCROLLBAR-DARKSHADOW-COLOR: #FFFFFF; }

</style>

<link rel="stylesheet" href="../estilos/style.css" type="text/css">

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

<tr>

<td align="left" valign="top" colspan="2"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="left" valign="top" bgcolor="#CC3300" colspan="2">

</td>

</tr>

<tr>

<td align="left" valign="top" colspan="2"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr align="center">

<td valign="top" colspan="2">

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

<tr>

<td height="18" align="left" valign="middle" background="../new/images/barratitulo.gif" bgcolor="#FFFFCC"><div align="right"><a href="#"><img src="../new/images/close_a.gif" width="11" height="11" border="0" onClick="MM_callJS('window.close()')"></a> </div></td>

</tr>

<tr>

<td align="left" valign="middle" height="25" bgcolor="#FFFFFF">

<div class = "links">

<div align="left"><font color="#990000" size="1" face="Verdana"><b><b>  Detalhes

do anúncio: <%=(rsDetail.Fields.Item("AD_TITLE").Value)%></b></b></font></div>

</div></td>

</tr>

</table>

</td>

</tr>

<tr align="center">

<td valign="top" colspan="2">

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

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="left" valign="middle" bgcolor="#990000" height="20"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"> <b><%=(rsDetail.Fields.Item("AD_TITLE").Value)%></b> <i><font size="1">(foi visto <%=(rsDetail.Fields.Item("AD_VIEWED").Value)%> veses)</font></i></font></td>

</tr>

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="left" valign="middle"> <div class = "links">

<table width="100%" border="1" cellspacing="0" cellpadding="3" bgcolor="#CC3300" bordercolor="#000000">

<tr align="left" valign="middle">

<td width="60" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">AGENCIA:</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Arial" size="2"><a href="mailto:<%=(rsDetail.Fields.Item("U_EMAIL").Value)%>"><font color="#CC3300"><b><font color="#000000" size="1" face="Verdana"><%=(rsDetail.Fields.Item("AD_POSTER").Value)%></font></b></font></a></font></td>

</tr>

<tr align="left" valign="middle">

<td width="60" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">Telefone

da Agência:</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Verdana" size="1" color="#000000"><%=(rsDetail.Fields.Item("U_PHONE").Value)%></font></td>

</tr>

<tr align="left" valign="middle">

<td width="60" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">Fax:</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Verdana" size="1" color="#000000"><%=(rsDetail.Fields.Item("U_FAX").Value)%></font></td>

</tr>

<tr align="left" valign="middle">

<td width="60" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">Email:</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Arial" size="2"><a href="mailto:<%=(rsDetail.Fields.Item("U_EMAIL").Value)%>"><font color="#000000" size="1" face="Verdana"><%=(rsDetail.Fields.Item("U_EMAIL").Value)%></font></a></font></td>

</tr>

<tr align="left" valign="middle">

<td width="60" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">Referência</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Arial" size="2"><a href="<%=(rsDetail.Fields.Item("AD_LINK").Value)%>"><font color="#000000" size="1" face="Verdana"><%=(rsDetail.Fields.Item("AD_LINK").Value)%></font></a></font></td>

</tr>

<tr align="left" valign="middle">

<td colspan="2" bgcolor="#FFFFFF"><font size="1" face="Verdana"><b><font color="#CC3300">Localização:</font></b>

<font color="#000000"><%=(rsDetail.Fields.Item("U_CITY").Value)%>, <%=(rsDetail.Fields.Item("U_STATE").Value)%> <%=(rsDetail.Fields.Item("U_ZIP").Value)%></font></font> </td>

</tr>

<tr align="left" valign="middle" bgcolor="#FFFFCC">

<td colspan="2"><font face="Verdana" size="1"><b><font color="#CC3300">Quantidade:</font></b>

<b><font color="#333333"><%=(rsDetail.Fields.Item("AD_QUANITY").Value)%></font></b></font></td>

</tr>

<tr align="left" valign="middle" bgcolor="#FFFFDD">

<td colspan="2"><font face="Verdana" size="1"><b><font color="#CC3300">Descrição:</font></b>

<font color="#000000"><%=(rsDetail.Fields.Item("AD_DESCRIPTION").Value)%></font></font></td>

</tr>

<tr align="left" valign="middle" bgcolor="#CC3300">

<td colspan="2"><font size="1" face="Verdana"><b><font color="#FFFFFF">Preço:

<font color="#FFFF00"><%= FormatNumber((rsDetail.Fields.Item("AD_PRICE").Value), 2, -2, -2, -2) %></font></font></b></font></td>

</tr>

</table>

</div></td>

</tr>

<% If NOT rsDetail.Fields.Item("AD_IMAGE").Value = "" Then %>

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="center" valign="middle"> <table border="0" cellspacing="5" cellpadding="5" bgcolor="#CC3300">

<tr>

<td align="center" valign="middle" bgcolor="#FFFFDD"><img src="http://www.nossoteto.com.br/classificados/img/<%=(rsDetail.Fields.Item("AD_IMAGE").Value)%>"></td>

</tr>

</table></td>

</tr>

<% End If %>

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td height="20" align="left" valign="middle" background="../new/images/barratitulo.gif" bgcolor="#CC3300"><font size="2" face="Verdana" color="#FFFFFF">     <b>Solicite

mais informações:</b></font></td>

</tr>

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<form name="REPLY" method="post" action="adReplied.asp">

<td align="left" valign="middle" bgcolor="#CC0000"> <table width="100%" border="0" cellspacing="3" cellpadding="2" bgcolor="#CC3300">

<tr align="left" valign="middle">

<td width="90" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">Para:</font></b></td>

<td bgcolor="#FFFFFF"><b><font face="Verdana" size="1" color="#000000"><%=(rsDetail.Fields.Item("AD_POSTER").Value)%>

<input type="hidden" name="POSTER_EMAIL" value="<%=(rsDetail.Fields.Item("U_EMAIL").Value)%>">

<input type="hidden" name="POSTER_NAME" value="<%=(rsDetail.Fields.Item("U_FIRST").Value)%> <%=(rsDetail.Fields.Item("U_LAST").Value)%>">

<input type="hidden" name="cat_id" value="<%=(rsDetail.Fields.Item("CAT_ID").Value)%>">

<input type="hidden" name="sub_id" value="<%=(rsDetail.Fields.Item("SUB_ID").Value)%>">

<input type="hidden" name="ad_id" value="<%=(rsDetail.Fields.Item("AD_ID").Value)%>">

</font></b></td>

</tr>

<tr align="left" valign="middle">

<td width="90" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">Meu

nome :</font></b></td>

<td bgcolor="#FFFFFF"> <font color="#000000"><b><font face="Verdana" size="1">

<input type="text" name="NAME" size="45" class = "fields">

</font></b></font></td>

</tr>

<tr align="left" valign="middle">

<td width="90" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">E-mail:</font></b></td>

<td bgcolor="#FFFFFF"> <font color="#000000"><b><font face="Verdana" size="1">

<input type="text" name="EMAIL" size="25" class = "fields">

</font></b></font></td>

</tr>

<tr align="left" valign="middle">

<td width="90" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">Assunto:</font></b></td>

<td bgcolor="#FFFFFF"> <font color="#000000"><b><font face="Verdana" size="1">

<input type="text" name="SUBJECT" size="40" class = "fields" value="Re: <%=(rsDetail.Fields.Item("AD_TITLE").Value)%>">

</font></b></font></td>

</tr>

<tr align="left" valign="middle">

<td width="90" valign="top" bgcolor="#CC3300"><b><font face="Verdana" size="1" color="#FFFFFF">Mensagem:</font></b></td>

<td bgcolor="#FFFFFF"> <b><font face="Verdana" size="1" color="#009999">

<textarea name="MESSAGE" cols="40" rows="5" class = "fields"></textarea>

</font></b></td>

</tr>

<tr align="left" valign="middle">

<td height="0" colspan="2"><div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#009999"></font></b>

<b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#009999">

<input type="submit" name="Submit2" value="Enviar E-mail" class = "buttons" onClick="MM_validateForm('NAME','','R','EMAIL','','RisEmail','SUBJECT','','R','MESSAGE','','R');return document.MM_returnValue">

</font></b></div></td>

</tr>

</table>

<div align="center"></div></td>

</form>

</tr>

<tr>

<td align="left" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

<%

rsCat.Close()

%>

<%

rsSub.Close()

%>

<%

rsDetail.Close()

%>

 

 

 

Pagina de Envio de dados via e-mail - adReplied.asp

 

<%@LANGUAGE="VBSCRIPT"%>

 

<%

Dim objCDO

Set objCDO = Server.CreateObject("CDONTS.NewMail")

objCDO.From = Request.Form("EMAIL")

objCDO.To = Request.Form("POSTER_EMAIL")

objCDO.cc = Request.Form("EMAIL")

objCDO.Subject = Request.Form("SUBJECT")

objCDO.Body = Request.Form("MESSAGE")

objCDO.Send()

Set objCDO = Nothing

%>

 

<!--#include file="../Connections/connDUclassified.asp" -->

<%

' Here is the beginning of recordsets

Dim rsCat__MMColParam

rsCat__MMColParam = "1"

if (Request.Form("cat_id") <> "") then rsCat__MMColParam = Request.Form("cat_id")

%>

<%

set rsCat = Server.CreateObject("ADODB.Recordset")

rsCat.ActiveConnection = MM_connDUclassified_STRING

rsCat.Source = "SELECT CAT_ID, CAT_NAME FROM CATS WHERE CAT_ID = " + Replace(rsCat__MMColParam, "'", "''") + ""

rsCat.CursorType = 0

rsCat.CursorLocation = 2

rsCat.LockType = 3

rsCat.Open()

rsCat_numRows = 0

%>

<%

Dim rsSub__MMColParam

rsSub__MMColParam = "1"

if (Request.Form("sub_id") <> "") then rsSub__MMColParam = Request.Form("sub_id")

%>

<%

set rsSub = Server.CreateObject("ADODB.Recordset")

rsSub.ActiveConnection = MM_connDUclassified_STRING

rsSub.Source = "SELECT SUB_ID, CAT_ID, SUB_NAME FROM SUBS WHERE SUB_ID = " + Replace(rsSub__MMColParam, "'", "''") + ""

rsSub.CursorType = 0

rsSub.CursorLocation = 2

rsSub.LockType = 3

rsSub.Open()

rsSub_numRows = 0

%>

<%

Dim rsDetail__MMColParam

rsDetail__MMColParam = "1"

if (Request.Form("ad_id") <> "") then rsDetail__MMColParam = Request.Form("ad_id")

%>

<%

set rsDetail = Server.CreateObject("ADODB.Recordset")

rsDetail.ActiveConnection = MM_connDUclassified_STRING

rsDetail.Source = "SELECT * FROM ADS, USERS WHERE AD_ID = " + Replace(rsDetail__MMColParam, "'", "''") + " AND ADS.AD_POSTER = USERS.U_ID"

rsDetail.CursorType = 0

rsDetail.CursorLocation = 2

rsDetail.LockType = 3

rsDetail.Open()

rsDetail_numRows = 0

%>

<%

Dim Repeat1__numRows

Repeat1__numRows = 25

Dim Repeat1__index

Repeat1__index = 0

rsAds_numRows = rsAds_numRows + Repeat1__numRows

%>

<%

' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

 

' create the list of parameters which should not be maintained

MM_removeList = "&index="

If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="

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

 

' add the URL parameters to the MM_keepURL string

For Each Item In Request.Form

NextItem = "&" & Item & "="

If (InStr(1,MM_removeList,NextItem,1) = 0) Then

MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.Form(Item))

End If

Next

 

' add the Form variables to the MM_keepForm string

For Each Item In Request.Form

NextItem = "&" & Item & "="

If (InStr(1,MM_removeList,NextItem,1) = 0) Then

MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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)

if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)

if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

 

' 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

%>

<%

Dim HLooper1__numRows

HLooper1__numRows = -3

Dim HLooper1__index

HLooper1__index = 0

rsAds_numRows = rsAds_numRows + HLooper1__numRows

%>

<html>

<head>

<title>DUclassified</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="css/css.css" type="text/css">

<style>

BODY {SCROLLBAR-FACE-COLOR: #466286; SCROLLBAR-HIGHLIGHT-COLOR: #466286; SCROLLBAR-SHADOW-COLOR: #666666; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #CCCCCC; SCROLLBAR-TRACK-COLOR: #8C8EA6; SCROLLBAR-DARKSHADOW-COLOR: #666666; }

</style>

<script language="JavaScript">

<!--

function MM_findObj(n, d) { //v4.0

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);

if(!x && document.getElementById) x=document.getElementById(n); return x;

}

 

function MM_validateForm() { //v4.0

var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;

for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args);

if (val) { nm=val.name; if ((val=val.value)!="") {

if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');

if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';

} else if (test!='R') {

if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';

if (test.indexOf('inRange') != -1) { p=test.indexOf(':');

min=test.substring(8,p); max=test.substring(p+1);

if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';

} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }

} if (errors) alert('The following error(s) occurred:\n'+errors);

document.MM_returnValue = (errors == '');

}

//-->

</script>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

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

<tr>

<td align="left" valign="top" colspan="2"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr align="center">

<td valign="top" colspan="2">

<table width="100%" border="0" cellspacing="3" cellpadding="2" bgcolor="#FFFFFF">

<tr>

<td align="left" valign="middle" height="25" bgcolor="#FFFFCC">

<div class = "links">

<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#FF0000" size="2" face="Arial">DETALHES

DA SOLICITAÇÃO POR MAIS INFORMAÇÕES</font></b></font></div>

</div>

</td>

</tr>

</table>

</td>

</tr>

<tr align="center">

<td valign="top" colspan="2">

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

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="left" valign="middle" bgcolor="#003366" height="20"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b><%=(rsDetail.Fields.Item("AD_TITLE").Value)%></b> <i><font size="1">(foi visto <%=(rsDetail.Fields.Item("AD_VIEWED").Value)%> veses)</font></i></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>

</tr>

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="left" valign="top">

<table width="100%" border="0" cellspacing="3" cellpadding="3" bgcolor="#466286">

<tr align="left" valign="middle">

<td width="93"><b><font face="Arial" size="2" color="#FFFFFF">Anúncio

de :</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Arial" size="2"><a href="mailto:<%=(rsDetail.Fields.Item("U_EMAIL").Value)%>"><font color="#466286"><%=(rsDetail.Fields.Item("AD_POSTER").Value)%></font></a></font></td>

</tr>

<tr align="left" valign="middle">

<td width="93"><b><font face="Arial" size="2" color="#FFFFFF">Fone:</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Arial" size="2" color="#466286"><%=(rsDetail.Fields.Item("U_PHONE").Value)%></font></td>

</tr>

<tr align="left" valign="middle">

<td width="93"><b><font face="Arial" size="2" color="#FFFFFF">Tel/Fax:</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Arial" size="2" color="#466286"><%=(rsDetail.Fields.Item("U_FAX").Value)%></font></td>

</tr>

<tr align="left" valign="middle">

<td width="93"><b><font face="Arial" size="2" color="#FFFFFF">Email:</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Arial" size="2"><a href="mailto:<%=(rsDetail.Fields.Item("U_EMAIL").Value)%>"><font color="#466286"><%=(rsDetail.Fields.Item("U_EMAIL").Value)%></font></a></font></td>

</tr>

<tr align="left" valign="middle">

<td width="93"><b><font face="Arial" size="2" color="#FFFFFF">Home

Page :</font></b></td>

<td width="306" bgcolor="#FFFFFF"><font face="Arial" size="2"><a href="<%=(rsDetail.Fields.Item("AD_LINK").Value)%>"><font color="#466286"><%=(rsDetail.Fields.Item("AD_LINK").Value)%></font></a></font></td>

</tr>

<tr align="left" valign="middle">

<td colspan="2" bgcolor="#FFFFFF"><b><font face="Arial" size="2" color="#466286">Localização:</font></b>

<font face="Arial" size="2" color="#000000"><%=(rsDetail.Fields.Item("U_CITY").Value)%>, <%=(rsDetail.Fields.Item("U_STATE").Value)%> <%=(rsDetail.Fields.Item("U_ZIP").Value)%></font> </td>

</tr>

<tr align="left" valign="middle">

<td colspan="2" bgcolor="#FFFFFF"><font face="Arial" size="2"><b><font color="#466286">Quantidade:</font></b>

<b><font color="#333333"><%=(rsDetail.Fields.Item("AD_QUANITY").Value)%></font></b></font></td>

</tr>

<tr align="left" valign="middle">

<td colspan="2" bgcolor="#FFFFFF"><font face="Arial" size="2"><b><font color="#466286">Descrição:</font></b>

<font color="#000000"><%=(rsDetail.Fields.Item("AD_DESCRIPTION").Value)%></font></font></td>

</tr>

<tr align="left" valign="middle">

<td colspan="2" bgcolor="#466286"><b><font face="Arial" size="2" color="#FFFFFF">Preço:

R$</font><font color="#FFFFFF"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=(rsDetail.Fields.Item("AD_PRICE").Value)%></font></font></b></td>

</tr>

</table>

</td>

</tr>

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="center" valign="middle">

<table border="0" cellspacing="5" cellpadding="5" bgcolor="466286">

<tr>

<td align="center" valign="middle" bgcolor="#FFFFDD"><img src="<%=(rsDetail.Fields.Item("AD_IMAGE").Value)%>"></td>

</tr>

</table>

</td>

</tr>

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="left" valign="middle" bgcolor="#003366" height="20"><font color="#FFFFFF"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Sua

solicitação foi enviada com sucesso. (Detalhes do envio)</b></font></font></td>

</tr>

<tr>

<td align="center" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

<tr>

<td align="left" valign="top">

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

<tr align="left" valign="middle">

<td width="114" bgcolor="#466286"><b><font face="Arial" size="2" color="#FFFFFF">Enviado

para :</font></b></td>

<td width="642" bgcolor="#FFFFFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><%=(rsDetail.Fields.Item("AD_POSTER").Value)%></b> at <b><%= Request.Form("POSTER_EMAIL") %></b></font></td>

</tr>

<tr align="left" valign="middle">

<td width="114" bgcolor="#466286"><b><font face="Arial" size="2" color="#FFFFFF">Seu

Nome :</font></b></td>

<td width="642" bgcolor="#FFFFFF"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("NAME") %> </font></td>

</tr>

<tr align="left" valign="middle">

<td width="114" bgcolor="#466286"><b><font face="Arial" size="2" color="#FFFFFF">Seu

E-mail :</font></b></td>

<td width="642" bgcolor="#FFFFFF"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("EMAIL") %> </font></td>

</tr>

<tr align="left" valign="middle">

<td width="114" bgcolor="#466286"><b><font face="Arial" size="2" color="#FFFFFF">Assunto:</font></b></td>

<td width="642" bgcolor="#FFFFFF"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><%= Request.Form("SUBJECT") %></b> </font></td>

</tr>

<tr align="left" valign="middle">

<td width="114" valign="top" bgcolor="#466286"><b><font face="Arial" size="2" color="#FFFFFF">Mensagen:</font></b></td>

<td valign="top" width="642" bgcolor="#FFFFFF"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("MESSAGE") %> </font></td>

</tr>

</table>

<div align="center"><br>

</div>

</td>

</tr>

<tr>

<td align="left" valign="middle"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

<%

rsCat.Close()

%>

<%

rsSub.Close()

%>

<%

rsDetail.Close()

%>

 

 

Obrigado

 

Gilberto dos Santos

Compartilhar este post

Link para o post
Compartilhar em outros sites

Volpisp    0

Volpisp
Postado

Mano , Seguinte...

 

<%

Dim objCDO

Set objCDO = Server.CreateObject("CDONTS.NewMail")

objCDO.From = Request.Form("EMAIL")

objCDO.To = Request.Form("POSTER_EMAIL")

objCDO.cc = Request.Form("EMAIL")

objCDO.Subject = Request.Form("SUBJECT")

objCDO.Body = Request.Form("MESSAGE")

objCDO.Send()

Set objCDO = Nothing

%>

 

A linha que eu coloquei em vermelho e a onde e criado o Objeto, e so você mudar para ASPmail, (Veja a maneira correta de criar o objeto..).

 

As linhas que estao em azul, acredito ser referente as propriedades do Cdonts, verifique as mesmas referentes ao ASpmail.

 

Acho que e isso

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Flash, ActionScript e tecnologias Adobe
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito