loop utan do

Tycker det ser lite tokigt ut, först kollar du om
If Request.Form("medlem") = "" och i så fall går du vidare? <men det kanske kan stämma?
Samt att du kollar:
If RecSet("medlem") = Request.Form("medlem2")
I båda satserna, stämmer det?

Så här kan jag tänka mig att det ska se ut, men du kan effektivisera koden en hel del skulle jag tro:

If Request.Form("medlem") = "" Then

			Do Until RecSet.EOF
	
			If RecSet("medlem") = Request.Form("medlem2") Then 

			%>

			<script language="javascript">
			alert('Du har redan denna medlem i din maillista.');
			location.href='maillista.asp';
			</script>

			<%

			Else

		RecSet.Addnew
		RecSet("medlem") = Request("medlem2")
		RecSet("agare") = session("username")
		RecSet("agare_id") = session("id")

			End If

			RecSet.Movenext
			Loop

		Else
	
			Do Until RecSet.EOF
	
			If RecSet("medlem") = Request.Form("medlem2") Then

			%>

			<script language="javascript">
			alert('Du har redan denna medlem i din maillista.');
			location.href='maillista.asp';
			</script>
			
			<%

			Else

		RecSet.Addnew
		RecSet("medlem") = Request("medlem")
		RecSet("agare") = session("username")
		RecSet("agare_id") = session("id")
	
			End If 

			RecSet.Movenext
			Loop
		End If

Får lopp utan do av din kod solbulle.

Men här kommer en beskrivning av koden:

Första så kollar jag om Request.Form("medlem") är tomt för att jag har även Request.Form("medlem2") för att besökaren kan välja i vilket fält han vill fylla i (Request.Form("medlem") är en rullist)

Efter att jag har kollat om Request.Form("medlem") är tomt så kollar jag ju om inte Request.Form("medlem") redan finns i databasen genom att loopa fram alla poster. Om det finns så skriver jag ju ut javascriptkoden. Om Request.Form("medlem") inte finns i databasen så lägger jag till Request.Form("medlem2") m.m.

Och efter det har du (solbulle) lagt

Loop
RecSet.Movenext

fast problemet är vart man ska lägga det.

Efter det gör jag samma upprepning men om inte Request.Form("medlem") finns i databasen så lägger jag till Request.Form("medlem") istället för första delen så la jag till Request.Form("medlem2")

Hoppas ni förstår koden bättre nu.

Ändrat koden, sista loopen, du kan ju pröva den.

Tack så mycket solbulle, kolla gärna igenom mina andra inlägg också, har inte fått hjälp på länge där

En något kortare variant:

If Request.Form("medlem") <> "" OR Request.Form("medlem2") <> "" then

If Request.Form("medlem") <> "" Then
medlem = Request.Form("medlem")
ElseIf Request.Form("medlem2") <> "" then
medlem = Request.Form("medlem2")

		End If

			Do Until RecSet.EOF
	
			If RecSet("medlem") = medlem Then 

			%>

			<script language="javascript">
			alert('Du har redan denna medlem i din maillista.');
			location.href='maillista.asp';
			</script>

			<%

			Else

		RecSet.Addnew
		RecSet("medlem") = medlem 
		RecSet("agare") = session("username")
		RecSet("agare_id") = session("id")

			End If

			RecSet.Movenext
			Loop

		End If

Tack för den mer bantade koden men jag upptäckte ett fel. Om det inte finns några poster alls i databasen så läggs det inte till någonting men om det finns minst en post så funkar allt perfekt.