jag har en kodbit där jag hämtar en massa information från databaser och lägger sedan in informationen formaterat i en sträng som är utformad som en html sida.
På vissa sidor vill jag skriva ut denna sträng och på vissa sidor vill jag använda denna sträng för att t.ex skicka ett html mail.
Nu är det så att om jag använder denna kod på 4st sidor och vill ändra något så känns det fruktansvärt dumt att behöva ändra på 4 sidor.
har testat både med att inkludera, skapa sub och funktion men får inte till det.
Det viktiga är att jag på sidorna som jag inkluderar koden på kan använda strängar som specificeras i Koden.
såhär kan sidan jag vill inkludera se ut
*hämtar massa data*
HTML = "<table><tr><td>" & rs("falt1") & "</td><td>" & rs("falt2") & "</td></tr></table>"
StrEmail = rs("falt3")
och sidan där jag vill hämta infon på kan se ut såhär t.ex
response.write html
response.write strEmail
cdoMessage.From = "aa@aa.com"
cdoMessage.To = strEmail
cdoMessage.Subject = "Orderbekräftelse"
cdoMessage.HTMLBody = HTML
cdoMessage.Send
har testat massa olika och lyckats skriva ut det med response.write men inte lyckats få iväg mailet.
Se till att dimma variablerna globalt på sidorna. Kan göras överst i includefilen.
dim HTML, strEmail
Gör en subrutin dit du skickar in värdena som ska användas.
sub vettigtnamn(sValue1, sValue2, sValue3)
HTML = "<table><tr><td>" & sValue1 & "</td><td>" & sValue2 & "</td></tr></table>"
StrEmail = sValue3
end sub
Kalla på subrutinen
vettigtnamn rs("falt1"), rs("falt2"), rs("falt3")
Ett annat alternativ istället för att dimma variablerna globalt är att du skickar in byref-parametrar i subrutinen istället.
ok och detta kommer även funka för o skcika email? vet inte varför det inte skulle öra det, men det gjorde inte det när jag testade iaf trots att jag kunde skriva ut den med response.write ;D aja jag skall testa. tack!
