webForumDet fria alternativet

Mail formulär

ASP

7 svar · 358 visningar · startad av Crille

CrilleMedlem sedan feb. 20005 inlägg
Trådstart#1

Tja!
Jag har precis börjat lära mig asp.. och jag har en liten fråga.

Jag ska göra ett formulär på min hemsida som jag vill att andra ska kunna skicka mail till mig genom på ett smidigt sätt..
Ett formulär är inga problem att göra, men hur gör jag för att datan ska skickas iväg via mail?

Servern jag ska lägga upp det på har komponenten CDONTS installerad.

Vore väääldigt tacksam om någon vänlig själ skulle kunna hjälpa mig med detta :)

/Christian

ChavezMedlem sedan maj 20001 953 inlägg
#2

Kolla in detta inlägget, där förklaras det:
http://cgi.webforum.nu/wf/Forum11/HTML/000414.html

CrilleMedlem sedan feb. 20005 inlägg
#3

hmm.. det gav mig inte så mycket, tyvärr. :(
Ingen som vet någon bra site på nätet som förklarar det lite bättre??

AnnelieMedlem sedan mars 20002 542 inlägg
#4

kolla min sida http://www.annelie.nu/contact.asp

Ooops nu får du hela scriptet , orkade ej klippa klistra , hoppas detta kan hjälpa dej.

<%@ Language=VBScript %>
<% ' VI 6.0 Scripting Object Model Enabled %>
<!--#include file="_ScriptLibrary/pm.asp"-->
<% if StartPageProcessing() Then Response.End() %>
<FORM name=thisForm METHOD=post>
<HTML>
<HEAD>
<SCRIPT ID=serverEventHandlersVBS LANGUAGE=vbscript RUNAT=Server>

Sub btnClear_onclick()
txtName.value = ""
txtEmail.value = ""
txtComments.value = ""
txtWebName.value = ""
txtWebURL.value = ""
End Sub

Sub btnSend_onclick()
' Send mail to Annelie
set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "din@mailadress.com"
objMail.From = txtEmail.value
objMail.Subject = "Kommentar"
strBody = "Från : " & txtEmail.value & vbCrLf
strBody = strBody & "Namn hemsida : " & txtWebName.value & vbCrLf
strBody = strBody & "URL hemsida : " & txtWebURL.value & vbCrLf
strBody = strBody & "Kommentar : " & txtComments.value & vbCrLf
objMail.body = strBody
objMail.send
set objMail = nothing
Response.Redirect "contact_resp.htm"
End Sub

</SCRIPT>
</HEAD>
<body bgcolor="#F6D9AC" text="#FF9900" link="#000000" vlink="#000000" alink="#000000">

<TABLE border=0 cellPadding=1 cellSpacing=1 width=400>

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

\<table\>

\<TR\>
    \<TD width=400 align="center"\>
        \<P align="center"\>\<font color="#666666" face="Arial Narrow"\>Här har DU chansen att skriva vad du har på
        hjärtat !! Istället för att skicka mej ett mail, på &quot;riktigt&quot;
        sätt !! Du kan oxå använda detta för åsikter av olika de
        slag.Skriv överst bara eller som &quot;rubrik&quot; vad det gäller....\</font\>\</P\>

</td>
</tr>
</table>

    \</center\>
  \</div\>

<center>

<P>
<TABLE border=0 cellPadding=1 cellSpacing=1 width=400>

\<TR\>
    \<TD width=200\>\<font color="#666666" face="Arial Narrow"\>Ditt namn:\</font\>\</TD\>
    \<TD width=200\>
        \<font color="#666666" face="Arial Narrow"\>
        \<!--METADATA TYPE="DesignerControl" startspan

<OBJECT classid="clsid:B5F0E469-DC5F-11D0-9846-0000F8027CA0" height=19
id=txtName style="HEIGHT: 19px; LEFT: 0px; TOP: 0px; WIDTH: 240px"
width=240 dtcid="1">
<PARAM NAME="_ExtentX" VALUE="6350">
<PARAM NAME="_ExtentY" VALUE="503">
<PARAM NAME="id" VALUE="txtName">
<PARAM NAME="ControlType" VALUE="0">
<PARAM NAME="Lines" VALUE="3">
<PARAM NAME="DataSource" VALUE="">
<PARAM NAME="DataField" VALUE="">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="Visible" VALUE="-1">
<PARAM NAME="MaxChars" VALUE="40">
<PARAM NAME="DisplayWidth" VALUE="40">
<PARAM NAME="Platform" VALUE="256">
<PARAM NAME="LocalPath" VALUE="">

        \</OBJECT\>

-->
<!--#INCLUDE FILE="_ScriptLibrary/TextBox.ASP"--><SCRIPT LANGUAGE=JavaScript RUNAT=Server>function _inittxtName(){ txtName.setStyle(TXT_TEXTBOX); txtName.setMaxLength(40); txtName.setColumnCount(40);
}
function _txtName_ctor()
{
CreateTextbox('txtName', _inittxtName, null);
}
</script>
<% txtName.display %>

<!--METADATA TYPE="DesignerControl" endspan-->

        \</font\>

</TD></TR>
<TR>
<TD width=200><font color="#666666" face="Arial Narrow">Email:</font></TD>
<TD width=200>
<font color="#666666" face="Arial Narrow">
<!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:B5F0E469-DC5F-11D0-9846-0000F8027CA0" height=19
id=txtEmail style="HEIGHT: 19px; LEFT: 0px; TOP: 0px; WIDTH: 240px"
width=240 dtcid="2">
<PARAM NAME="_ExtentX" VALUE="6350">
<PARAM NAME="_ExtentY" VALUE="503">
<PARAM NAME="id" VALUE="txtEmail">
<PARAM NAME="ControlType" VALUE="0">
<PARAM NAME="Lines" VALUE="3">
<PARAM NAME="DataSource" VALUE="">
<PARAM NAME="DataField" VALUE="">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="Visible" VALUE="-1">
<PARAM NAME="MaxChars" VALUE="40">
<PARAM NAME="DisplayWidth" VALUE="40">
<PARAM NAME="Platform" VALUE="256">
<PARAM NAME="LocalPath" VALUE="">

        \</OBJECT\>

-->
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>function _inittxtEmail(){ txtEmail.setStyle(TXT_TEXTBOX); txtEmail.setMaxLength(40); txtEmail.setColumnCount(40);}
function _txtEmail_ctor()
{
CreateTextbox('txtEmail', _inittxtEmail, null);
}
</script>
<% txtEmail.display %>

<!--METADATA TYPE="DesignerControl" endspan-->

        \</font\>

</TD></TR>
<TR>
<TD width=200><font color="#666666" face="Arial Narrow">Namn Hemsida:</font>
<TD width=200>
<font color="#666666" face="Arial Narrow">
<!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:B5F0E469-DC5F-11D0-9846-0000F8027CA0" height=19
id=txtWebName
style="HEIGHT: 19px; LEFT: 0px; TOP: 0px; WIDTH: 240px" width=240 dtcid="3">
<PARAM NAME="_ExtentX" VALUE="6350">
<PARAM NAME="_ExtentY" VALUE="503">
<PARAM NAME="id" VALUE="txtWebName">
<PARAM NAME="ControlType" VALUE="0">
<PARAM NAME="Lines" VALUE="3">
<PARAM NAME="DataSource" VALUE="">
<PARAM NAME="DataField" VALUE="">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="Visible" VALUE="-1">
<PARAM NAME="MaxChars" VALUE="40">
<PARAM NAME="DisplayWidth" VALUE="40">
<PARAM NAME="Platform" VALUE="256">
<PARAM NAME="LocalPath" VALUE="">

         \</OBJECT\>

-->
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>function _inittxtWebName(){ txtWebName.setStyle(TXT_TEXTBOX); txtWebName.setMaxLength(40); txtWebName.setColumnCount(40);}
function _txtWebName_ctor()
{
CreateTextbox('txtWebName', _inittxtWebName, null);
}
</script>
<% txtWebName.display %>

<!--METADATA TYPE="DesignerControl" endspan-->

        \</font\>

\<TR\>
    \<TD width=200\>\<font color="#666666" face="Arial Narrow"\>URL Hemsida:\</font\>
    \<TD width=200\>
        \<font color="#666666" face="Arial Narrow"\>
        \<!--METADATA TYPE="DesignerControl" startspan

<OBJECT classid="clsid:B5F0E469-DC5F-11D0-9846-0000F8027CA0" height=19
id=txtWebURL style="HEIGHT: 19px; LEFT: 0px; TOP: 0px; WIDTH: 240px"
width=240 dtcid="4">
<PARAM NAME="_ExtentX" VALUE="6350">
<PARAM NAME="_ExtentY" VALUE="503">
<PARAM NAME="id" VALUE="txtWebURL">
<PARAM NAME="ControlType" VALUE="0">
<PARAM NAME="Lines" VALUE="3">
<PARAM NAME="DataSource" VALUE="">
<PARAM NAME="DataField" VALUE="">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="Visible" VALUE="-1">
<PARAM NAME="MaxChars" VALUE="40">
<PARAM NAME="DisplayWidth" VALUE="40">
<PARAM NAME="Platform" VALUE="256">
<PARAM NAME="LocalPath" VALUE="">

        \</OBJECT\>

-->
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>function _inittxtWebURL(){ txtWebURL.setStyle(TXT_TEXTBOX); txtWebURL.setMaxLength(40); txtWebURL.setColumnCount(40);}
function _txtWebURL_ctor()
{
CreateTextbox('txtWebURL', _inittxtWebURL, null);
}
</script>
<% txtWebURL.display %>

<!--METADATA TYPE="DesignerControl" endspan-->

        \</font\>

\<TR\>
    \<TD width=200 vAlign=top\>\<font color="#666666" face="Arial Narrow"\>Kommentarer:\</font\>\</TD\>
    \<TD width=200\>
        \<font color="#666666" face="Arial Narrow"\>
        \<!--METADATA TYPE="DesignerControl" startspan

<OBJECT classid="clsid:B5F0E469-DC5F-11D0-9846-0000F8027CA0"
height=130 id=txtComments
style="HEIGHT: 130px; LEFT: 0px; TOP: 0px; WIDTH: 204px" width=204 dtcid="5">
<PARAM NAME="_ExtentX" VALUE="5398">
<PARAM NAME="_ExtentY" VALUE="3440">
<PARAM NAME="id" VALUE="txtComments">
<PARAM NAME="ControlType" VALUE="1">
<PARAM NAME="Lines" VALUE="10">
<PARAM NAME="DataSource" VALUE="">
<PARAM NAME="DataField" VALUE="">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="Visible" VALUE="-1">
<PARAM NAME="MaxChars" VALUE="255">
<PARAM NAME="DisplayWidth" VALUE="34">
<PARAM NAME="Platform" VALUE="256">
<PARAM NAME="LocalPath" VALUE="">

         \</OBJECT\>

-->
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>function _inittxtComments(){ txtComments.setStyle(TXT_TEXTAREA); txtComments.setRowCount(10); txtComments.setColumnCount(34);}
function _txtComments_ctor()
{
CreateTextbox('txtComments', _inittxtComments, null);
}
</script>
<% txtComments.display %>

<!--METADATA TYPE="DesignerControl" endspan-->

        \</font\>

</TD></TR></TABLE><p>

<font color="#666666" face="Arial Narrow">

<!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:B6FC3A14-F837-11D0-9CC8-006008058731" height=27 id=btnSend
style="HEIGHT: 27px; LEFT: 257px; TOP: 315px; WIDTH: 63px" width=63 dtcid="6">
<PARAM NAME="_ExtentX" VALUE="1667">
<PARAM NAME="_ExtentY" VALUE="714">
<PARAM NAME="id" VALUE="btnSend">
<PARAM NAME="Caption" VALUE="Skicka">
<PARAM NAME="Image" VALUE="">
<PARAM NAME="AltText" VALUE="">
<PARAM NAME="Visible" VALUE="-1">
<PARAM NAME="Platform" VALUE="256">
<PARAM NAME="LocalPath" VALUE="">

</OBJECT>
-->
<!--#INCLUDE FILE="_ScriptLibrary/Button.ASP"--><SCRIPT LANGUAGE=JavaScript RUNAT=Server>function _initbtnSend(){ btnSend.value = 'Skicka'; btnSend.setStyle(0);}
function _btnSend_ctor()
{
CreateButton('btnSend', _initbtnSend, null);
}
</script>
<% btnSend.display %>

<!--METADATA TYPE="DesignerControl" endspan-->
       
<!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:B6FC3A14-F837-11D0-9CC8-006008058731" height=27 id=btnClear
style="HEIGHT: 27px; LEFT: 322px; TOP: 315px; WIDTH: 61px" width=61 dtcid="7">
<PARAM NAME="_ExtentX" VALUE="1614">
<PARAM NAME="_ExtentY" VALUE="714">
<PARAM NAME="id" VALUE="btnClear">
<PARAM NAME="Caption" VALUE="Rensa">
<PARAM NAME="Image" VALUE="">
<PARAM NAME="AltText" VALUE="">
<PARAM NAME="Visible" VALUE="-1">
<PARAM NAME="Platform" VALUE="256">
<PARAM NAME="LocalPath" VALUE="">

</OBJECT>
-->
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>function _initbtnClear(){ btnClear.value = 'Rensa'; btnClear.setStyle(0);}function _btnClear_ctor()
{
CreateButton('btnClear', _initbtnClear, null);
}
</script>
<% btnClear.display %>

<!--METADATA TYPE="DesignerControl" endspan-->

</font>

</P>
<P> </P>
</center>
</BODY>
<% ' VI 6.0 Scripting Object Model Enabled %>
<% EndPageProcessing() %>
</FORM>

emissionMedlem sedan dec. 19996 721 inlägg
#5

...ehh? Det där var väl onödigt avancerat, med remote scripting och hela faderullan.

:l ;)

Lär inte funka så bra i något annat är IE för Windows.

Kolla in dimac-länkarna, och läs dokumentationen.

[Redigerat av emission den 12 maj 2000]

AnnelieMedlem sedan mars 20002 542 inlägg
#6

Varför så avancerat ? Sorry det fungerar ej i NS , skall genast åtgärda detta !!! intresserad om jag gör om det ?

Vad menar du med dimac länkarna ?? Där hänger jag ej me

emissionMedlem sedan dec. 19996 721 inlägg
#7

Med dimac-länkarna syftade jag på länken till dimac:s JMail, som refererades i den förra tråden om ASP-mail.

Jag tyckte att ditt exempel var lite för avancerat, eftersom det utnyttjar en massa klient-programmering, och därför bara funkar i IE. Dessutom ger det inget mervärde.
Ett mycket kortare ASP-skript - som det du listade i den förra tråden - ger samma resultat.

mvh

CrilleMedlem sedan feb. 20005 inlägg
#8

Tack för att ni tar er tid att hjälpa en stackars nybörjare :)

Om jag har förstått det där med dimac rätt så måste man väl ha den komponenten installerad på servern? Jag är inte så säker på att den har det..

Kan man inte få det som annelie skrev att fungera i netscape? Fungerar inte cdonts i netscape eller?

256 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)