Märkliga saker händer: I ditt fall får du säkert en oändlig loop som gör att programmet "dör". För att kunna svara på det behöver vi nog få se lite kod i det mottagande programmet. Ok här kommer koden, orkar du eller någon annan kolla den så är jag naturligtvis väldigt tacksam I filen skickaepost_enamn_html_test.asp har du raden Ok missade att kopiera över detta här en redigerad sammanställning av filen ok.. känns lite som att det är din loop som spökar i alla fall... Ok jag skall gå igenom detta, Det konstiga är att motsvarande filer med samma loop funkar bra till att skicka textmail. Men jag skall jämföra dom och se så inget är tillagt eller bortpillat i den här filen. Ok jag har lusläst dessa båda filer och kommit fram till att det faktiskt måste vara ett script innan den första filen. det är ett script som listar befintliga nyhetsbrev ock som jag via länk som är skapad på filnamnet skickar till skickaepost_enamn_html_test.asp. Jag har använt uteslutnmingsmetoden eftersom jag inte är fena på att läsa kod. Om jag hoppar över det här scriptet och skickar över ett specifikt filnamn direkt till skickaepost_enamn_html_test.asp så uppstår inte problemet. Tack för hjälpen alla ni som svarat.Webservern dör
När jag skickar iväg ett filnamn via ett formulär till ett mailformulär med nedanstående länk
skickaepost_enamn_html.asp?nyhet=nyhetsbrev/visas_on_hemsidan/nyhetsbrev_dec.htm
och sedan vidare till en sendmail.asp JMail så fungerar det hela problemfritt alla får sina mail och mailen går iväg förhållandevis snabbt.
När jag istället väljer fil från en lista och skickar iväg filnamnet i en variabel i ett script så går mailet iväg men jag får ett meddelande om problem med server communication och servern startar om.
<%
'del av sriptet
Response.Write"" & filnamn & ""
%>
Är det någon som har någon aning om vad problemet kan vara
Tacksam för svar.
Sv: Webservern dör
Sv:Webservern dör
Det hela startar med ett urval från en databas som sedan skickas till en sida där jag väljer om det skall vara textbaserat mail eller om jag skall skicka en html-fil som väljs i en lista (länkad) till nästa sida (se nedan) hit går alltr bra även nästa sida skickaepost_enamn_html_test.asp funkar bra men när jag skickar den sidan till sparaepost_enamn_html.asp så blir det tvärstopp. Men enbart i de fall jag väljer html-mail. Jag har motsvarande sidor som enbart skickar textmail och de har fungerat 1 år utan problem.
skickaepost_enamn_html_test.asp Härifrån skickar jag vilken html-fil som skall mailas samt ett urval på medlemmar som ligger i en variabel strepostlista.
<% end if %>
<%
fp_sQry="SELECT * FROM medlemsregister WHERE (enamn LIKE '::enamn::%' AND epost LIKE '%@%') ORDER BY enamn ASC,fnamn ASC"
fp_sDefault="enamn="
fp_sNoRecords="<tr><td colspan=20 align=""LEFT"" width=""100%"">Inga poster returnerades.</td></tr>"
fp_sDataConn="SPLF"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="enamn"
fp_sMenuValue="enamn"
fp_sColTypes="&medlemsid=3&fnamn=202&enamn=202&Lakspec1=202&Lakspec2=202_
&Lakspec3=202&Lakspec4=202&mottagning=202&padr=202&pnr=202&ort=202&tel1=202_
&tel2=202&fax=202&mobil=202&epost=202&epostm=202&hemsida=203&ForeningsNr=2_
&info=203&styrelse=202&"
fp_iDisplayCols=20
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="43031" -->
<%
count=count+1
if count=1 Then
%>
<tr>
<%
End If
%>
<%
strEpostlista = strEpostlista + FP_FieldVal(fp_rs,"epost") + ";"
%>
<%
newPage = Request.QueryString("nyhet")
Server.Execute(newPage)
%>
<textarea rows="10" name="txtBody" cols="81">
<%
newPage=Request.QueryString("nyhet")
Server.Execute(newPage)
%>
</textarea>
<input type="hidden" name="epostlista" value="<%=strEpostlista%>">
<input type="hidden" name="status" value="SkaSkickas"><input type="hidden" name="foreningsnr" value="<%=Request("foreningsNr")%>"><input type="hidden" name="enamn" value="<%=Request("enamn")%>">
Motagande fil sparaepost_enamn_html.asp
<%
Set JMail = Server.CreateObject ("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ISOEncodeHeaders = False
Set upload = Server.CreateObject( "w3.Upload" )
%><!--#include file="functions.asp"--> Innehåller en kontroll av riktiga epostadresser
<%
Const cAntalMottagarePerMail = 10
if upload.Form("status") = "SkaSkickas" then
JMail.ServerAddress = "smtp.dknet.se"
JMail.Sender = upload.Form("txtSender") ' Request ("txtSender")
strEpostlista = upload.Form("epostlista")
strSubject = upload.Form("txtSubject")
strBody = upload.Form("txtBody")
Jmail.HTMLBody = strBody
Jmail.Subject = strSubject
lngAntalAdresser = Tally(strEpostlista, ";")
lngAntalDettaMail = 0
for i = 1 to lngAntalAdresser
strEmail = Extract(strEpostlista, ";", i)
If EmailAdressOK(strEmail) = True then
lngAntalOK = lngAntalOK + 1
JMail.AddRecipientBCC(strEmail)
else
lngAntalFel = lngAntalFel + 1
strFelaktiga = strFelaktiga + strEmail + "<BR>"
end if
lngAntalDettaMail = lngAntalDettaMail + 1
if lngAntalDettaMail => cAntalMottagarePerMail then
Jmail.Execute
lngAntalDettaMail = 0
Jmail.ClearRecipients
end if
next
if lngAntalDettaMail > 0 then
Jmail.Execute
end if
Jmail.Close
%>
<%
Response.Write "e-postutskick klart. " & lngAntalOK & " mottagare OK. <P>"
%>
<%
if lngAntalFel > 0 then
Response.Write "<b>------- LISTA ÖVER FELAKTIGA E-POSTADRESSER --------</b><P>"
%>
<p align="center">
<%
Response.Write "Antal felaktiga mottagare: " & lngAntalFel
Response.Write " Felaktiga adresser:<P>"
%>
<p align="center">
<%
Response.Write strFelaktiga
Response.Write " <P>"
%>
<p align="center">
<%
Response.Write "<b>------- SLUT PÅ LISTA ÖVER FELAKTIGA E-POSTADRESSER --------</b><P>"
%>
<p align="center">
<%
end if
%>
Sv: Webservern dör
count=count+1
och sedan
if count = 1 Then
Var har du variblen count = 0 om du inte har den så kommer du aldrig att få värdet count = 1
kolla det ;-)Sv:Webservern dör
<% end if %>
<%...%>
<%
fp_sQry="SELECT * FROM medlemsregister WHERE (enamn LIKE '::enamn::%' AND epost LIKE '%@%') ORDER BY enamn ASC,fnamn ASC"
fp_sDefault="enamn="
fp_sNoRecords="<tr><td colspan=20 align=""LEFT"" width=""100%"">Inga poster returnerades.</td></tr>"
fp_sDataConn="SPLF"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="enamn"
fp_sMenuValue="enamn"
fp_sColTypes="&medlemsid=3&fnamn=202&enamn=202&Lakspec1=202&Lakspec2=202_
&Lakspec3=202&Lakspec4=202&mottagning=202&padr=202&pnr=202&ort=202&tel1=202_
&tel2=202&fax=202&mobil=202&epost=202&epostm=202&hemsida=203&ForeningsNr=2_
&info=203&styrelse=202&"
fp_iDisplayCols=20
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="43031" -->
<%...%>
<%
count=count+1
if count=1 Then
%>
<tr>
<%...%>
<%
End If
%>
<%...%>
<%
strEpostlista = strEpostlista + FP_FieldVal(fp_rs,"epost") + ";"
%>
<%
if count=4 Then
count=0
%>
</tr>
<%
End If
%>
<%...%>
<%
newPage = Request.QueryString("nyhet")
Server.Execute(newPage)
%>
<textarea rows="10" name="txtBody" cols="81">
<%...%>
<%
newPage=Request.QueryString("nyhet")
Server.Execute(newPage)
%>
</textarea>
<input type="hidden" name="epostlista" value="<%=strEpostlista%>">
<input type="hidden" name="status" value="SkaSkickas"><input type="hidden" name="foreningsnr" value="<%=Request("foreningsNr")%>"><input type="hidden" name="enamn" value="<%=Request("enamn")%>">
Sv: Webservern dör
Har du kollat delen där du har if count = 4?
Under det står det Count = 0 det innebär att den kommer att börja om från början igen.. dvs.
count = 0
count = count + 1
if count = 1 then
End If
If Count = 4 then
count = 0
End iF
If count = 1 then
... osv.. Sv:Webservern dör
Sv: Webservern dör
Scriptet ser ut så här
<%
dim enamn
Enamn=Request("enamn")
%>
<%
'Listar alla filer i mappan nyhetsbrev
Dim objFSO, objFile, objFolder
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objFolder=objFSO.GetFolder(Server.MapPath("nyhetsbrev/visas_on_hemsidan"))
Response.Write "<b>"&"Välj nyhetsbrev från Webarkivet"&enamn&"<br>"&"</b>"
Response.Write "<b>"&"------------------"&"<br>"
For Each objFile in objFolder.Files
Dim filext: filext = Len(objFSO.GetExtensionName(objFile.name)) + 1
Dim fillangd: fillangd = Len(objFile.name)
'Skickar vald fil
Dim filnamn: filnamn = Left((objFile.name),fillangd-filext)
Response.Write"" & filnamn & ""
Response.Write "<br>"
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>
Sv:Webservern dör
Problemet är löst och det visade sig till sist vara det som ni trodde från början nämligen ett loop-problem. Det är så att jag använder FrontPage både som html-editor och som hjälpmedel vi databaskopplingar och databassökningar. Allt detta fungerar utmärkt men problemet är i de fall när något fel uppstår, det verkar vara omöjligt att ändra i den koden som FP automatiskt genererar då man skapar asp-sidor för databassökning. Så fortsättningsvis kommer jag nog att försöka ta mig an uppgiften att själv skapa den aspkod som behövs för databaser mm och enbart använda FP för html.
God Jul o Gott nytt år
Ted