9 svar · 299 visningar · startad av ade
hej, håller på med ett beställningsformulär.
Beställningen är kodat med cdosys.
När beställninge nskickas till min mail så ska det skapas ett ID nummer. Som syns i mitt mail.
Är det svårt att göra?!
Sedan så ska idnummret skickas till ha nsom gjorde bsetällningens email.
Om någon hjälper mej med detta så lovar jag ersättning.
Sparas beställning i en databas av något slag? Får inte beställningen ett id-nummer i databasen isf?
Annars kan du ju använda dig av en textfil som bara innehåller en siffra. När någon gör en beställning så läses siffran av från textfilen, adderas med 1 och sparas ner i textfilen igen (skriver alltså över den gamla siffran). Det numret kan du ju använda som id-nummer.
ursäkta stavningen :)
ade skrev:
ursäkta stavningen :)
Tips! ;)
Nu var det år sen jag pulade med fso så det är säkert en bunt fel i koden.
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("myfile.txt"))
Set textStreamObject = fileObject.OpenAsTextStream(1,0)
id = CLng(textStreamObject.ReadAll) + 1
textStreamObject.Write(id)
textStreamObject.Close
Set textStreamObject = Nothing
Set fso = Nothing
%>
Men som sagt, lär vara en hel del fel.
oekj men då ska jag alltså skapa en textfil som heter myfile.txt och där ska det stå en 1a i?
jopp.. och den placeras lämpligen i samma mapp som scriptet. Se dessutom till att du har skrivrättigheter på filen.
hej, skickade detta nu, men inget visades i mailet.
Hur kollar jag så myfile.txt har skrivrättigheter?
Tar med lite kod och se om du ser något fel:
set mailare = server.CreateObject("CDO.Message")
mailare.From = ""&epost&""
mailare.To = mottagare_epost
mailare.Subject = ""&rubrik&""
html = "<font face='verdana' size='1'>" & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>") &_
"<br><br><br>------------------------------------------<br><b>Skickades:</b> " & Now & "<br><b>Namn: </b> "&_
namn & "<br><b>E-mail: </b> " & epost & "<br>"
If Len(artikelnr) <> 0 then
html = html & "<b>Artikelnr:</b> & artikelnr & "
End If
If Len(adress) <> 0 then
html = html & "<b>Adress:</b> & adress & "
End If
html = html & "------------------------------------------<br></font>"
mailare.HTMLBody = html
mailare.Send
Set mailare = nothing
Session("kontakta_mig") = "Meddelandet är nu skickat! Vi kontaktar er så snart vi kan!"
Response.Redirect sida
%>
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("myfile.txt"))
Set textStreamObject = fileObject.OpenAsTextStream(1,0)
id = CLng(textStreamObject.ReadAll) + 1
textStreamObject.Write(id)
textStreamObject.Close
Set textStreamObject = Nothing
Set fso = Nothing
%>
ade har löst problemet själv.
Kan då ade ta och visa lösningen för övriga intresserade individer?