Skriver ut flera ggr...

4 svar · 163 visningar · startad av ReloadMaster 24 sep. 2001

ReloadMasterMedlem sedan aug. 2001239 inlägg

Frågan24 sep. 2001 20:12#1

Tjena!
Jag skulle behöva hjälp med denna kod:

<%
If Request.Querystring("kontroll") = "1" Then

'Skapa Sessions
Session("fran") = Request.Form("fran")
Session("till") = Request.Form("till")
Session("amne") = Request.Form("amne")
Session("meddelande") = Request.Form("meddelande")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb")

SQL = "SELECT * FROM medlemmar"
Set RecSet2 = Connect.Execute(SQL)

Do Until RecSet2.EOF

If RecSet2("anvandarnamn") = Session("till") Then

Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"

RecSet2.Close

Else
%>

<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

<%
End If

RecSet2.MoveNext

Loop

RecSet2.Close

End If
%>

Denna kod ska kolla om användarnamnet finns om det inte gör det ska den skriva ut:
<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

Men den verkar inte funka för den skriver ut detta lika många gånger som det finns användare i databsen hur ska jag göra för att den bara ska skriva ut det en gång efter den gått igenom att posterna....

SEDAN skulle jag vilja ha hjälp med om någon kunde hjälpa mig med en grej till mitt community.
Som ska vara att när man loggar in så ska två tabeller uppdateras den ena ska kolla uppdateras med att man är online och den andra när man loggade på och sedan den svåra delen tycker jag:
att om man inte klickar på "logga ut"
knappen utan bara stänger fönstret ska ändå sidan kunna uppdatera tabellen till "Offline"

Hoppas ni förstår...

------------------
Das Dunkhopf...

@ndersMedlem sedan juni 200032 967 inlägg

24 sep. 2001 20:23#2

ettan:

byt SQL-frågan till:

SQL = "SELECT * FROM medlemmar WHERE anvandarnamn = '" & session("till") &"'"

och byt:

Do Until RecSet2.EOF

If RecSet2("anvandarnamn") = Session("till") Then

Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"

RecSet2.Close

Else
%>

<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

<%
End If

RecSet2.MoveNext

Loop

till

If not RecSet2.EOF then
RecSet2.Close
Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"
Else
%>
<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>
<%
End If

Den andra har jag inte tid med just nu. Fridens!

------------------
All your base are belong to me.

[Redigerat av @nders den 24 sep 2001]

LarsGMedlem sedan dec. 200012 464 inlägg

24 sep. 2001 20:24#3

<%
If Request.Querystring("kontroll") = "1" Then
'Skapa Sessions
Session("fran") = Request.Form("fran")
Session("till") = Request.Form("till")
Session("amne") = Request.Form("amne")
Session("meddelande") = Request.Form("meddelande")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb")

SQL = "SELECT * FROM medlemmar"
Set RecSet2 = Connect.Execute(SQL)

Do Until RecSet2.EOF

If RecSet2("anvandarnamn") = Session("till") Then
RecSet2.Close
Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"
end if
RecSet2.MoveNext
loop
%>

<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

<%
RecSet2.Close
End If
%>

(

<%
If Request.Querystring("kontroll") = "1" Then
'Skapa Sessions
Session("fran") = Request.Form("fran")
Session("till") = Request.Form("till")
Session("amne") = Request.Form("amne")
Session("meddelande") = Request.Form("meddelande")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb")

SQL = "SELECT * FROM medlemmar where anvandarnamn = '" & session("till") & "'"
Set RecSet2 = Connect.Execute(SQL)

if not RecSet2.EOF
RecSet2.Close
Response.Redirect"community_meddelanden_skicka.asp?ID="&ID&"&skicka=ja"
end if
%>

<b>Det finns ingen med detta användarnamn!</b>
<a href="community_meddelanden_skicka.asp?ID=<% =ID%>">Tillbaka</a>

<%
RecSet2.Close
End If
%>

Det är effektivare att låta databashanteraren sköta sökningen.)

Ditt andra problem får du lösa genom att lägga in uppdateringen i global.asa i subrutinen session_onend.

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 24 sep 2001]

CoolDudeMedlem sedan aug. 2000304 inlägg

24 sep. 2001 20:24#4

Du borde väl söka efter det namnet i databasen?

SQL = "SELECT * FROM medlemmar WHERE anvandarnamn=" & Request.Form("till") & " "

Så får den något att leta efter.
Som det är nu så loopar den igenom alla namn så som du säger.

[r]
Hmm tittade å uppdaterade 2-3 ggr å INGA inlägg/svar...
Pilla ihop något å vad ser man :q
Jo! TVÅ har redan svarat... eller 1! :)
[/r]

------------------
/CoolDude

[Redigerat av CoolDude den 24 sep 2001]

ReloadMasterMedlem sedan aug. 2001239 inlägg

24 sep. 2001 20:28#5

Tack för hjälpen då är 1:an iallafall löst...

------------------
Das Dunkhopf...