varför skrivs inte presentationen ut

2 svar · 437 visningar · startad av WebbisNet 27 sep. 2007

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan27 sep. 2007 02:48#1

När det inte finns text så visas den första texten om att ingen pres finns, men när det finns det så är det bara tomt på sidan

set info=conn.Execute("select * from ekonomen where id="&Session("uid"))%>
        <%if info("pres") = "" Then
            Response.Write "Ingen presentation än, ändra det här -->"
        Else
            pres=""&info("pres")&""
            Response.Write pres
        End if%>
 <%Else
 req=CInt(0 + Request.Querystring("uid"))
     set info=conn.Execute("select * from ekonomen where id="&req)%>
      <%if info("pres") = "" Then
            Response.Write "Medlemmen har ej skrivit någon presentation än"
        Else
            pres=""&info("pres")&""
            Response.Write pres
        End if%>

voigtann1Medlem sedan juni 20019 519 inlägg

27 sep. 2007 06:01#2

Frågor:
1. när du gå in i din egna presentation har du inte en Querystring där också?
2. Vad händer om du skriver ut din SQL fråga innan du kör dom?
Om du har en Querystring med dig alltid varför inte skriva något:

Dim uId
If Cint(0 + Request.Querystring("uid)) > 0 Then uId = Cint(0 + Request.Querystring("uid)) Else uId = Session("uid")

Set info = Conn.Execute("SELECT [b]pres, id[/b] FROM Ekonomen WHERE id = " & uId)
	if Not info.EOF Then
		Dim pres
		pres = info("pres")
		If pres <> "" Then
			Response.Write pres
		ElseIf pres = "" And Session("uid") = pres("id") Then
			Response.Write "Ingen presentation än, ändra det här -->"
		Else
			Response.Write "Medlemmen har ej skrivit någon presentation än"
		End If
	End If
info.Close
Set info = Nothing

För det känns onödigt att du öppnar din databas koppling 2ggr för samma sak. + ändrade så du bara ta de tabeller du har någon nytta av (som jag ser just nu, se tjock markerad)

@ndersMedlem sedan juni 200032 967 inlägg

27 sep. 2007 06:14#3

Flyttas från SQL.