23. november 2004 - 16:00Der er
18 kommentarer og 1 løsning
Tilmeldings form
Hej jeg har efter mange kvaler, valgt at lave et nyt spørgsmål ang dette.
Jeg skal have en tilmeldings formular med følgende felter. Fornavn Efternavn Adresse Post nr. / By Specialitet Email Telefon Mobil Fax Bemærkninger Upload
Upload skal man kunne uploade billeder.. HVis det er muligt evt. kunne uploade mere en et billede. Når man har tilmeldt sig bliver man f. eks sendt til en bekræftelses side.
"MEN MEN!!! Når man tilmelder sig skal dataen + billeder smides over i en database , men den skal også sendes til en email (!! den skal ikke sendes til modtageren men til min mail så jeg kan sende en regning til ham).
Dvs. brugeren der tilmeldeler hans data bliver sendt i en databse og sendt til min mail.´"
ok vi tager det lidt af gangen så - du vil lave det hele selv? Du kan jo evt. finde noget free et sted som lign. sådan noget der der kan tilpasses.
Men jeg syntes du skal gå i gang med at få
1. oprettelse brugere 2. bekræftelsesmail og siden 3. upload af et eller flere billeder
Men der ligger ret mange elementer i bare de 3 ting der - som nok mere er en opgave end et spørgsmål. Så vil tro du skal have flyttet den til en anden kategori hvis du regner med at få noget færdigt.
Set msg = Server.CreateObject("JMail.Message") msg.From = " kreller@krellers.dk" 'Bare skriv denne samme mail her og neden under msg.AddRecipient " kreller@krellers.dk" msg.Subject = "Ny kunde - KokAmok" msg.Body = strBody msg.Send("mail.krellers.dk")
Response.Redirect "uploadfile.asp"
rs.Close Conn.Close Set rs = Nothing Set Conn = Nothing %>
hvis jeg var dig ville jeg dele det hele lidt op. Droppe upload-delen på oprettelsen og lade en særskilt side til det - når du også vil håndtere mere end et billede.
Så det vil sige at den første side (altså den der skal fange data fra din opret-side): <% Function SendMail(id)
SQL = "SELECT * FROM tilmeld WHERE id = " & id & ";" Set rs = Conn.Execute(SQL)
'//FIND NY OPRETTET KUNDE - ret til din primærnøgle SQL = "SELECT MAX(id) FROM tilmeld;" Set rs = Conn.Execute(SQL)
If rs.eof = True Then 'ingen poster i din database 'lav fejlhåndtering Else '//SEND MAIL VIA FUNKTION ID = rs("id") If SendMail(ID) = True then 'hvis mail bliver sendt Response.Redirect "uploadfile.asp" Else 'start forfra End if End if
Jeg har siddet og kigget meget påden, men hvordan skal jeg få den til at hænge sammen med min tilmeldings form... Så billedet kommer til at ligge sammenb med de oplysninger personen har indtastet
ok - det har jeg taget højde for - kig det nederste af koden igennem:
If rs.eof = True Then 'ingen poster i din database 'lav fejlhåndtering Else '//SEND MAIL VIA FUNKTION ID = rs("id") If SendMail(ID) = True then 'hvis mail bliver sendt Response.Redirect "uploadfile.asp" Else 'start forfra End if End if
Der kan du se at vi smider et ID med videre til mailfunktionen. Det id kan du gøre to ting ved (1) lave en session("profilid") = ID eller (2) lave den i querystring ved din response.redirect "uploadfile.asp?id=" & ID
'//FIND NY OPRETTET KUNDE - ret til din primærnøgle SQL = "SELECT MAX(id) FROM tilmeld;" Set rs = Conn.Execute(SQL)
If rs.eof = True Then 'ingen poster i din database 'lav fejlhåndtering Else '//SEND MAIL VIA FUNKTION ID = rs("id") If SendMail(ID) = True then 'hvis mail bliver sendt Response.Redirect "uploadfile.asp" Else 'start forfra End if End if
'// HENT OG RENS FELTER FRA OPRETTELSE strFornavn = RensTekst(Request.Form("fornavn")) strEfternavn = RensTekst(Request.Form("efternavn")) strAdresse = RensTekst(Request.Form("adresse")) strPostnr = RensTekst(Request.Form("postnr")) strBy = RensTekst(Request.Form("by")) strSpecialitet = RensTekst(Request.Form("specialitet")) strEmail = RensTekst(Request.Form("email")) strTelefon = RensTekst(Request.Form("telefon")) strMobil = RensTekst(Request.Form("mobil")) strFax = RensTekst(Request.Form("fax")) strBemaerkninger = RensTekst(Request.Form("bemaerkninger")) ' Variables ' ********* Dim mySmartUpload Dim file Dim oConn Dim strSQL Dim oRs Dim intCount intCount=0
' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload ' ****** mySmartUpload.Upload
' Connect to the DB ' ***************** Set oConn = Server.CreateObject("ADODB.Connection") curDir = Server.MapPath("db.mdb") oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
' Open a recordset ' **************** strSQL = "SELECT FILENAME,FILE FROM TFILES"
Set oRs = Server.CreateObject("ADODB.recordset") Set oRs.ActiveConnection = oConn oRs.Source = strSQL oRs.LockType = 3 oRs.Open
' Select each file ' **************** For each file In mySmartUpload.Files ' Only if the file exist ' ********************** If not file.IsMissing Then
' Add the current file in a DB field ' ********************************** oRs.AddNew file.FileToField oRs.Fields("FILE") oRs("FILENAME") = file.FileName oRs.Update intCount = intCount + 1 End If Next
' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.<BR>")
' Destruction ' *********** oRs.Close oConn.Close Set oRs = Nothing Set oConn = Nothing
'//FIND NY OPRETTET KUNDE - ret til din primærnøgle SQL = "SELECT MAX(id) FROM tilmeld;" Set rs = Conn.Execute(SQL)
If rs.eof = True Then 'ingen poster i din database 'lav fejlhåndtering Else '//SEND MAIL VIA FUNKTION ID = rs("id") If SendMail(ID) = True then 'hvis mail bliver sendt Response.Redirect "uploadfile.asp" Else 'start forfra End if End if
Jeg er på udkig efter en database som den du beskriver. Kunne det være du ville smide den til mig?
Mvh Rasmus
Synes godt om
Ny brugerNybegynder
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.
