Tomt datafelt?

Nu ser det ud til at virke igen????
Er det muligt at lave noget mere stabilt!!!

Der er kun den hårde måde. Alt indtastning skal kontrolleres - specielt hvis det skal anvendes i en Sql-sætning.

Jeg kan ikke gennemskue nøjagtigt hvordan din kode skal virke. (Hvor kommer brugerens felt ind. ?) - men ovenstående kode vil fejle hvis tabellen users er tom. !

databasen hedder users
tabellen hedder users
felterne hedder id, username, citat

ID og Username står der i forvejen men citatet er en ny tilføjelse og det er ikke alle medlemmer der har skrevet noget endnu.

Kan du lave koden så jeg kan sætte den ind som en include?

Skal ovenstående blot vise et tilfældigt citat. ?

Skal den vise et citat hvergang. ? (Eller sagt på en anden måde: Hvis man får fat i et tomt citat skal man så blive ved til man finder et. ?)

hvis det er et tomt felt skal den springe over til et andet tilfældigt der er fyldt

når du skal gemme det i databasen så brug dette javascript I HTML:
<SCRIPT LANGUAGE=\"JavaScript\">
function tjek(form) {
    Ctrl1 = form.dit_input_felt_navn;
   
    if (Ctrl1.value.length == \"\") {
        alert (\"Du mangler at skrive noget!!!!\");
        return (false);
    }    
    return (true);
}
</SCRIPT>
Og i din form:
<FORM method=\"post\" onSubmit=\" return tjek(this)\" action=\"din_asp_fil_hvor_den_indsætter\">
<input type=\"text\" name=\"dit_input_felt_navn\" id=\"t1\">
håber du forstår!
Eller du kan :
If rs(\"felten\") = \"\" Then
rs.MoveNext
else
End if

Her er koden der kan udskrive et tilfældigt citat fra databasen. Koden udskriver kun citatet - jeg håber du selv kan lave resten.

<%
Dim objConn
Dim RS

Set objConn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject (\"ADODB.Recordset\")
RS.CursorLocation = 3 \' adUseClient
RS.CursorType = 3 \' adOpenStatic
objConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"users.mdb\")
\' Find ID for records hvor citat er indtastet
RS.Open \"select ID from users where not IsNull(citat)\", objConn, , , &H0001 \' adCmdText

if not RS.EOF then

  Max = RS.RecordCount \' Antal valide citater
  Randomize
  intRandom = Int((Max - 1 + 1) * Rnd) \' Find et tilfældigt tal mellem 0 og Max
 
  RS.Move intRandom, 0 \' Find ID for det tilfældige citat

  Set RS = objConn.Execute(\"select * from users where ID=\" & RS(\"ID\")) \' Hent citatet
  Response.Write (RS(\"Citat\")) \' Udskriv citatet
else
  Response.Write (\"Ingen citater.\") \' Der er ikke nogle citater i databasen
end if

RS.Close
Set RS = Nothing

Response.Write \"&nbsp;\"
%>

Mvh. Claus Coltau