majahops
Thu Oct 11 16:15:24 PDT 2007
Here is the area of html around the save button (plus some more)...where
would i put the part you gave me into this? Thanks so much again!!!
<TD class=shade style="BACKGROUND-COLOR: #e6e6fa" width=172>
<P align=right>SPID</P></TD>
<TD width=240>{build_edit_control field="SPID" mode="add" value=
$value_SPID} </TD></TR>
<TR height=50>
<TD style="BACKGROUND-COLOR: #e6e6fa" align=middle width=414
colSpan=2><INPUT class=button id=submit1 type=submit value=Save name=submit1>
<INPUT class=button type=reset value=Reset> <input type=hidden name="a"
value="added"></TD></TR></FORM><!-- legend -->
<TR height=50>
<TD style="BACKGROUND-COLOR: #e6e6fa" align=left width=414 colSpan=2>
<HR width=400 noShade SIZE=1>
<BR><IMG src="images/icon_required.gif"> - Required field
</TD></TR></TBODY></TABLE>{include_if_exists file="include/footer.asp"} {
$linkdata}<script>SetToFirstControl();</script></BODY></HTML>
McKirahan wrote:
>> First off, thank you SO much for responding - it mean's a lot to me - i've
>> been trying to get this done forever.
>[quoted text clipped - 5 lines]
>>
>> I'm assuming that means that godaddy.com supports CDO.Message.
>
>[snip]
>
>Try this; watch for word-wrap.
>
>The Response.Write() statement invokes the function;
>modify it to suit your needs. Just call the function by
>passing in 3 parms: email address, subject, and body.
>
>The value of "cHST" (Host) is what GoDaddy requires.
>The value of "cFRM" (From) is your email address.
>
>Suucess/failure reporting has been commented out as
>you may want to log the results rather than display them.
>
><%@ Language="VBScript" %>
><% Option Explicit
>
>Response.Write("Email = " & Email("news@mckirahan.com","Test","Test!"))
>
>Function Email(sAddr,sSubj,sBody)
> Email = False
> On Error Resume Next
> '*
> '* Declare Constants
> '*
> Const cCDO = "
http://schemas.microsoft.com/cdo/configuration/"
> Const cHST = "relay-hosting.secureserver.net"
> Const cFRM = "postmaster@{your~domain.com}"
> '*
> '* Send Email
> '*
> Dim objCFG
> Set objCFG = Server.CreateObject("CDO.Configuration")
> objCFG.Fields.Item(cCDO & "sendusing") = 2
> objCFG.Fields.Item(cCDO & "smtpserver") = cHST
> objCFG.Fields.Item(cCDO & "smtpserverport") = 25
> objCFG.Fields.Update
> Dim objCDO
> Set objCDO = Server.CreateObject("CDO.Message")
> objCDO.From = cFRM
> objCDO.To = sAddr
> 'objCDO.BCC = ""
> 'objCDO.CC = ""
> objCDO.Subject = sSubj
> objCDO.TextBody = sBody
> 'objCDO.HTMLBody = sBody
> 'objCDO.AddAttachment = ""
> objCDO.Configuration = objCFG
> objCDO.Send
>' If Err = 0 Then
>' Response.Write("<br><br><b>E-mail has been sent.</b>")
>' Else
>' Response.Write("<br><b>Sub Email()</b>")
>' Response.Write("<br><b>CDO Failed:</b> " & Err.Description)
>' Response.Write("<br><b>CDO 'Addr':</b> " & sAddr)
>' Response.Write("<br><b>CDO 'Subj':</b> " & sSubj)
>' Response.Write("<br><b>CDO 'Body':</b> " & sBody)
>' End If
> Set objCDO = Nothing
> Set objCFG = Nothing
> '*
> '* Return
> '*
> On Error GoTo 0
> Email = True
>End Function
>%>
--
Message posted via WebmasterKB.com
http://www.webmasterkb.com/Uwe/Forums.aspx/asp/200710/1