Märkliga saker händer:
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.

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

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

%>

I filen skickaepost_enamn_html_test.asp har du raden
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 ;-)

Ok missade att kopiera över detta här en redigerad sammanställning av filen

<% 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")%>">

ok.. känns lite som att det är din loop som spökar i alla fall...
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..

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.
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
%>

Tack för hjälpen alla ni som svarat.
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