Notifikationer

Markér alle som læst Log ud

gallagher Nybegynder

05. maj 2003 - 23:43 Der er 21 kommentarer og
1 løsning

RMF Formular

Hejsa med jer....

Jeg er ved at lave en side, for en kammerat der sælger computerdele. Dertil skal der laves en såkaldt RMA Formular. Når brugeren har udfyldt formularen, skal der sendes en kopi til ham og en kopi til virksomheden.
Der må også gerne være et ordrenummer der starter fra 1 og automatisk tæller opad når der laves en ny RMA Form.

Håber at i kan hjælpe med dette, da jeg er helt ny indenfor ASP.

Der er Accesdatabase på webhotellet, og JMail

Takker på forhånd

Gallagher

Synes godt om

larsen Nybegynder

05. maj 2003 - 23:47 #1

Har I fået oprettet formularen med hvilke felter der skal udfyldes ?
Er det et helt system I vil have lavet ?

Synes godt om

gallagher Nybegynder

05. maj 2003 - 23:50 #2

Nej der er ikke oprettet nogen form, men det skal være lidt i stil med det der er på http://www.w-b.dk

Synes godt om

larsen Nybegynder

06. maj 2003 - 08:08 #3

Jeg laver lige noget til iaften, når jeg kommer hjem :-)

Synes godt om

gallagher Nybegynder

06. maj 2003 - 09:32 #4

Det skal du have mange tak for

Synes godt om

larsen Nybegynder

06. maj 2003 - 20:08 #5

Første del af koderne er selve formularen, der skal udfyldes og den hedder RMA.ASP som indeholder følgende :

'---Start Cut'n'Paste
<html>
<head>
<title>RMA</title>
<meta name="Generator" content="Stone's WebWriter 4 BETA 4b">
</head>
<body>
<form method="POST" action="rma_opret.asp">
RMA
 
Alle felter mærket * skal udfyldes.
 
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="569" id="AutoNumber2" height="295">
<tr>
<td height="22" width="149"> </td>
<td height="22" colspan="2" width="247"> </td>
<td height="22" width="173"> </td>
</tr>
<tr>
<td height="22" width="149"> 
Fakturanr:</td>
<td height="22" colspan="2" width="247">
<input type="text" name="Fakturanr" size="20">*</td>
<td height="22" width="173"> </td>
</tr>
<tr>
<td height="13" width="149"></td>
<td height="13" colspan="2" width="247"></td>
<td height="13" width="173"></td>
</tr>
<tr>
<td height="22" width="149">  Firma:</td>
<td height="22" colspan="2" width="247">
<input type="text" name="Firma" size="20"></td>
<td height="22" width="173"> </td>
</tr>
<tr>
<td height="22" width="149">  Navn:</td>
<td height="22" colspan="2" width="247">
<input type="text" name="Navn" size="20">*</td>
<td height="22" width="173"> </td>
</tr>
<tr>
<td height="20" width="149"> 
Adresse:</td>
<td height="20" colspan="2" width="247">
<input type="text" name="Adresse" size="20">*</td>
<td height="20" width="173"> </td>
</tr>
<tr>
<td height="23" width="149"> 
Postnr:</td>
<td height="23" colspan="2" width="247">
<input type="text" name="Postnr" size="20">*</td>
<td height="23" width="173"> </td>
</tr>
<tr>
<td height="13" width="149">  By:</td>
<td height="13" colspan="2" width="247">
<input type="text" name="Bynavn" size="20">*</td>
<td height="13" width="173"></td>
</tr>
<tr>
<td height="14" width="149">  Email:</td>
<td height="14" colspan="2" width="247">
<input type="text" name="Email" size="20">*</td>
<td height="14" width="173"></td>
</tr>
<tr>
<td height="13" width="149"> 
Telefonnr:</td>
<td height="13" colspan="2" width="247">
<input type="text" name="Telefonnr" size="20">*</td>
<td height="13" width="173"></td>
</tr>
<tr>
<td height="13" width="149"></td>
<td height="13" colspan="2" width="247"></td>
<td height="13" width="173"></td>
</tr>
<tr>
<td height="13" width="149"> 
  Varenavn:</td>
<td height="13" width="162">Eks. "Nokia" 
<input type="text" name="Varenavn" size="20">* 
</td>
<td height="13" width="85">  
   Model:</td>
<td height="13" width="173">Eks. "7650" 
<input type="text" name="Model" size="20">*</td>
</tr>
<tr>
<td height="13" width="149"></td>
<td height="13" colspan="2" width="247"></td>
<td height="13" width="173"></td>
</tr>
<tr>
<td height="13" width="149"> 
Serienummer:</td>
<td height="13" colspan="2" width="247">
<input type="text" name="Serienr" size="20"></td>
<td height="13" width="173"></td>
</tr>
<tr>
<td height="13" width="149"></td>
<td height="13" colspan="2" width="247"></td>
<td height="13" width="173"></td>
</tr>
<tr>
<td height="13" colspan="4" width="569"> 
  Fejlbeskrivelse: 
 
 
<textarea rows="10" name="Fejlbeskrivelse" cols="65"></textarea>*</td>
</tr>
<tr>
<td height="12" width="149"></td>
<td height="12" colspan="2" width="247"></td>
<td height="12" width="173"></td>
</tr>
</table>
<input type="submit" value="Opret RMA" name="Send">
<input type="reset" value="Slet alt" name="Slet">
 
 
</form>

</body></html>
'---Slut Cut'n'Paste

Så den næste fil du laver hedder Rma_opret.asp som sender mailen (HUSK AT ÆNDRE TIL JERES EGEN EMAIL) :-) og den indeholder dette :

'---Start Cut'n'Paste
<%
msg.From = "Fra@domain.dk"
msg.FromName = "Rma"

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "Til_Email", "Til_Navn"

' The subject of the message
msg.Subject = "Rma."

'add every form element and its value to the email
Msg.HTMLBody = "<html><body>"
Msg.AppendHTML ("<table cols='2' border='1'>")
Msg.AppendHTML ("<TR><TD width='130'>Fakturanr<TD>" & Request.Form("Fakturanr"))
Msg.AppendHTML ("<TR><TD>Firma<TD>" & Request.Form("Firma"))
Msg.AppendHTML ("<TR><TD width='130'>Navn<TD>" & Request.Form("Navn"))
Msg.AppendHTML ("<TR><TD width='130'>Adresse<TD>" & Request.Form("Adresse"))
Msg.AppendHTML ("<TR><TD width='130'>Postnr & By<TD>" & Request.Form("Postnr") & " " & Request.Form("Bynavn"))
Msg.AppendHTML ("<TR><TD width='130'>EMail<TD>" & Request.Form("EMail"))
Msg.AppendHTML ("<TR><TD width='130'>Telefonnr<TD>" & Request.Form("Telefonnr"))
Msg.AppendHTML ("<TR><TD width='130'>Varenavn<TD>" & Request.Form("Varenavn"))
Msg.AppendHTML ("<TR><TD width='130'>Modelnr<TD>" & Request.Form("Modelnr"))
Msg.AppendHTML ("<TR><TD width='130'>Serienr<TD>" & Request.Form("Serienr"))
Msg.AppendHTML ("<TR><TD width='130'>Fejlbeskriv<TD>" & Request.Form("Fejlbeskrivelse"))
Msg.AppendHTML ("</table> ")
Msg.AppendHTML ("</body></html>")
' Now send the message, using the indicated mailserver
if not msg.Send("mail.domain.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
Response.End
else
Response.write "Message sent succesfully!"
end if
%>
'---Slut Cut'n'Paste

Synes godt om

larsen Nybegynder

06. maj 2003 - 20:09 #6

Denne del opretter så ikke noget i en DB endnu. Den sender kun mailen til jer uden et entydigt nr.

Synes godt om

larsen Nybegynder

06. maj 2003 - 20:09 #7

Har I Microsoft Access?

Synes godt om

gallagher Nybegynder

06. maj 2003 - 20:35 #8

Ja det er der. Vi har webhotel hos Webdomain.dk

Synes godt om

gallagher Nybegynder

06. maj 2003 - 20:37 #9

vi det så sige at denne også sender til køberen

Synes godt om

larsen Nybegynder

06. maj 2003 - 20:37 #10

Jeg mener om I har programmet til at lave databasen i ? Om I selv kan lave tabellerne eller ?

Synes godt om

larsen Nybegynder

06. maj 2003 - 20:39 #11

Nej denne sender kun til jer. Skal den samme sendes til køberen eller er det en med andre informationer ?

Synes godt om

gallagher Nybegynder

06. maj 2003 - 20:48 #12

den samme skal gerne sendes til køberen, så han kan se hvad han har udfyldt. Den skal så sendes med produktet, der bla. er en reklametions fejl på eller der ikke virker.

Behøves der at lave en db

Synes godt om

gallagher Nybegynder

06. maj 2003 - 20:49 #13

jo jeg kan godt lave tabeller, eller prøve på det :-)

Synes godt om

gallagher Nybegynder

06. maj 2003 - 20:55 #14

jo det skal der vel hvis der skal ordrenummer på eller ????

Synes godt om

larsen Nybegynder

06. maj 2003 - 21:08 #15

Ikke nødvendigvis, men en stor fordel :-)

Du opretter en DB med felterne der skal gemmes. Et eksempel på dette kan være :

[Feltnavn] [Felttype]
RMA_ID ......... autonum/primary
Fakturanr ...... tal
Firma .......... tekst
Navn ........... tekst
Adresse ........ tekst
Postnr ......... tal
Bynavn ......... tekst
EMail .......... tekst
Tlf ............ tal
Varenavn ....... tekst
Model .......... tekst
Serienummer .... tekst
Fejlbeskrivelse notat

Så skal du i Rma_opret.asp føje koden til at gemme i DB'en før mailen..

Synes godt om

gallagher Nybegynder

06. maj 2003 - 21:13 #16

Er det sådanne du mener

<%
set dbCon = CreateObject("ADODB.Connection")
dbCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
sql = "INSERT" * INTO xxx "
set resultat = dbCon.Execute(sql)

%>

Synes godt om

larsen Nybegynder

06. maj 2003 - 21:20 #17

Ja :

<%
set dbCon = CreateObject("ADODB.Connection")
dbCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
sql = "INSERT INTO Tbl (Fakturanr,Firma,Navn,Adresse,Postnr,Bynavn,EMail,Tlf,Varenavn,Model,Serienummer,Fejlbeskrivelse) VALUES ("
sql = sql & Request.Form("Fakturanr")
sql = sql & Request.Form("Navn")
.
.
.
sql = sql & Request.Form("Fejlbeskrivelse") & ")"
set resultat = dbCon.Execute(sql)

'Og hent den sidste nye i DB'en

sql = "SELECT RMA_ID FROM Tbl WHERE Fakturanr=" & Request.Form("Fakturanr")
set resultat = dbCon.Execute(sql)
%>

Og ændre det første i maildelen til :

Msg.HTMLBody = "<html><body>"
Msg.AppendHTML ("<table cols='2' border='1'>")
Msg.AppendHTML ("<TR><TD>OrdreID<TD>" & Resultat("RMA_ID"))
Msg.AppendHTML ("<TR><TD width='130'>Fakturanr<TD>" & Request.Form("Fakturanr"))
Msg.AppendHTML ("<TR><TD>Firma<TD>" & Request.Form("Firma"))

Synes godt om

gallagher Nybegynder

06. maj 2003 - 21:23 #18

dette er bare supert :-) og nu sender den så også til kunden eller???

Synes godt om

larsen Nybegynder

06. maj 2003 - 21:33 #19

Nope, du kan sende ham en kopi som TO, CC, BCC ELLER ændre dette i det oprindelige mailscript :

'---Start Cut'n'Paste
<%
msg.From = "Fra@domain.dk"
msg.FromName = "Rma"

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "Din_Email", "Dit_Navn"

' The subject of the message
msg.Subject = "Rma."

'add every form element and its value to the email
Msg.HTMLBody = "<html><body>"
Msg.AppendHTML ("<table cols='2' border='1'>")
Msg.AppendHTML ("<TR><TD width='130'>RMA ID<TD>" & Resultat("RMA_ID"))
Msg.AppendHTML ("<TR><TD width='130'>Fakturanr<TD>" & Resultat("Fakturanr"))
Msg.AppendHTML ("<TR><TD>Firma<TD>" & Resultat("Firma"))
Msg.AppendHTML ("<TR><TD width='130'>Navn<TD>" & Resultat("Navn"))
Msg.AppendHTML ("<TR><TD width='130'>Adresse<TD>" & Resultat("Adresse"))
Msg.AppendHTML ("<TR><TD width='130'>Postnr & By<TD>" & Resultat("Postnr") & " " & Resultat("Bynavn"))
Msg.AppendHTML ("<TR><TD width='130'>EMail<TD>" & Resultat("EMail"))
Msg.AppendHTML ("<TR><TD width='130'>Telefonnr<TD>" & Resultat("Telefonnr"))
Msg.AppendHTML ("<TR><TD width='130'>Varenavn<TD>" & Resultat("Varenavn"))
Msg.AppendHTML ("<TR><TD width='130'>Modelnr<TD>" & Resultat("Modelnr"))
Msg.AppendHTML ("<TR><TD width='130'>Serienr<TD>" & Resultat("Serienr"))
Msg.AppendHTML ("<TR><TD width='130'>Fejlbeskriv<TD>" & Resultat("Fejlbeskrivelse"))
Msg.AppendHTML ("</table> ")
Msg.AppendHTML ("</body></html>")
' Now send the message, using the indicated mailserver
if not msg.Send("mail.domain.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
Response.End
else
Response.write "Message sent succesfully!"
end if
msg.From = "Fra@domain.dk"
msg.FromName = "Rma"

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign

' The subject of the message
Message.ClearRecipients
msg.AddRecipient Resultat("EMail"), Resultat("Navn")
' Now send the message again, using the indicated mailserver
if not msg.Send("mail.domain.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
Response.End
else
Response.write "Message sent succesfully!"
end if
%>
'---Slut Cut'n'Paste

Synes godt om

larsen Nybegynder

06. maj 2003 - 21:35 #20

Ups, Der var en fejl :

'---Start Cut'n'Paste
<%
msg.From = "Fra@domain.dk"
msg.FromName = "Rma"

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "Din_Email", "Dit_Navn"

' The subject of the message
msg.Subject = "Rma."

'add every form element and its value to the email
Msg.HTMLBody = "<html><body>"
Msg.AppendHTML ("<table cols='2' border='1'>")
Msg.AppendHTML ("<TR><TD width='130'>RMA ID<TD>" & Resultat("RMA_ID"))
Msg.AppendHTML ("<TR><TD width='130'>Fakturanr<TD>" & Resultat("Fakturanr"))
Msg.AppendHTML ("<TR><TD>Firma<TD>" & Resultat("Firma"))
Msg.AppendHTML ("<TR><TD width='130'>Navn<TD>" & Resultat("Navn"))
Msg.AppendHTML ("<TR><TD width='130'>Adresse<TD>" & Resultat("Adresse"))
Msg.AppendHTML ("<TR><TD width='130'>Postnr & By<TD>" & Resultat("Postnr") & " " & Resultat("Bynavn"))
Msg.AppendHTML ("<TR><TD width='130'>EMail<TD>" & Resultat("EMail"))
Msg.AppendHTML ("<TR><TD width='130'>Telefonnr<TD>" & Resultat("Telefonnr"))
Msg.AppendHTML ("<TR><TD width='130'>Varenavn<TD>" & Resultat("Varenavn"))
Msg.AppendHTML ("<TR><TD width='130'>Modelnr<TD>" & Resultat("Modelnr"))
Msg.AppendHTML ("<TR><TD width='130'>Serienr<TD>" & Resultat("Serienr"))
Msg.AppendHTML ("<TR><TD width='130'>Fejlbeskriv<TD>" & Resultat("Fejlbeskrivelse"))
Msg.AppendHTML ("</table> ")
Msg.AppendHTML ("</body></html>")
' Now send the message, using the indicated mailserver
if not msg.Send("mail.domain.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
Response.End
else
Response.write "Message sent succesfully!"
end if
' Her sletter den Recipients og tilføjer kunden
Message.ClearRecipients
msg.AddRecipient Resultat("EMail"), Resultat("Navn")
' Now send the message again, using the indicated mailserver
if not msg.Send("mail.domain.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
Response.End
else
Response.write "Message sent succesfully!"
end if
%>
'---Slut Cut'n'Paste

Synes godt om

gallagher Nybegynder

06. maj 2003 - 21:36 #21

ok, jeg siger 1000 gange Tak for din hjælp, det var bare lækkert.

Synes godt om

larsen Nybegynder

06. maj 2003 - 21:38 #22

Det var så lidt :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	6	I går 11:37	I går 22:03
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS