logo
Welcome Guest! To enable all features please Login. New Registrations are disabled.

Notification

Icon
Error

Options
Go to last post Go to first unread
marwic  
#1 Posted : Thursday, October 1, 2009 6:37:24 PM(UTC)
Guest

Rank: Guest

Groups: Guest
Joined: 9/17/2008(UTC)
Posts: 66

I need to put the title part (H1) separate with CONTENT in freetext and I think there is a control which is taking the name from menu and putting between <h1> </h1> ?

Wanna join the discussion?! Login to your Sienn Forum forum account. New Registrations are disabled.

gregfd  
#2 Posted : Thursday, October 1, 2009 6:52:57 PM(UTC)
gregfd

Rank: Advanced Member

Reputation:

Groups: Member
Joined: 2/6/2009(UTC)
Posts: 55
Man
Location: Wroclaw

done! :)
Certico Websolutions - www.certico.pl
bart  
#3 Posted : Monday, October 5, 2009 11:20:33 AM(UTC)
bart

Rank: Administration

Reputation:

Groups: Administration
Joined: 10/8/2008(UTC)
Posts: 188
Man

Was thanked: 1 time(s) in 1 post(s)
Hi Greg,
Can you please send some sample code for this so others can use this to?

I have some old code for it but it is really dirty and I need to clean it up, but if someone want to use it it looks like this

Code:
Dim printversie, wordversie, voettekst, lositemsismenu, lositem As Boolean
Dim Gekozenhmi, gekozensmi, taalid, menuid, selectedid, lositemid, stijlindex, actieselectied As Integer
Dim lositemtype, vorigepagina, stijlnaam As String
pbw.Get_Url_Parameters(Session, Request, Gekozenhmi, gekozensmi, pbw.Get_Cid_currentdomain(), pbw.Get_Cid_currentdomain(), 0, printversie, wordversie, voettekst, taalid, menuid, selectedid, lositemid, lositemsismenu, lositemtype, lositem, vorigepagina, stijlnaam, stijlindex, actieselectied, False, constring)




Dim Smi as integer = Gekozensmi
Dim Hmi as integer = Gekozenhmi
if hmi <=0 then
  hmi =75
end if
Dim Cid as string = pbw.Get_Cid_currentdomain()

Dim Con As New SqlConnection(constring)
    Dim Query1 As String = "select Tekst from "+Cid+"_Menu where Id =" & Smi 
    Dim Com As New SqlCommand(Query1, Con)
    Con.Open()
    Dim Reader As SqlDataReader = Com.ExecuteReader()
    Reader.Read()
    Dim TRegel as string = ""
    Try
      TRegel = Reader.GetString(0).Trim 
      if TRegel.length<=0 then
         TRegel = ""
      End if
    Catch
      TRegel = ""
    End Try
    Con.Close()
if TRegel = "" then
Dim Con2 As New SqlConnection(constring)
    Dim Query2 As String = "select Tekst from "+Cid+"_Menu where Id =" & Hmi 
    Dim Com2 As New SqlCommand(Query2, Con2)
    Con2.Open()
    Dim Reader2 As SqlDataReader = Com2.ExecuteReader()
    Reader2.Read()
    Try
      TRegel = Reader2.GetString(0).Trim 
      if TRegel.length<=0 then
         TRegel = ""
      End if
    Catch
      TRegel = ""
    End Try
    Con2.Close()
End if    

ControlPlace.InnerHtml=TRegel
gregfd  
#4 Posted : Wednesday, November 18, 2009 5:33:13 PM(UTC)
gregfd

Rank: Advanced Member

Reputation:

Groups: Member
Joined: 2/6/2009(UTC)
Posts: 55
Man
Location: Wroclaw

Mine is even biger with some special exceptions for our things so it isn't worth to put it here... :/
Certico Websolutions - www.certico.pl
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.