سلام
منم از کار خوبتون تشکر می کنم
من یه مشکلی با این کد دارم:
Function Links_LinksList() As String
con.Open()
Dim Command As SqlCommand = New SqlCommand("GetLinks", con)
Command.CommandType = CommandType.StoredProcedure
Dim RecordSet As SqlDataReader
Dim Marquee As String = "", Name, Address
RecordSet = Command.ExecuteReader()
Marquee = "<marquee onmouseover=this.stop() onmouseout=this.start() direction=up scrolldelay=1 scrollamount=1 style=Width:100%;Height:100%;padding:3px>"
If RecordSet.HasRows = True Then
While RecordSet.Read()
Address = RecordSet("Address").ToString()
Name = RecordSet("Name").ToString()
Marquee += String.Format("<p align=\center\><a href=\{0}\ target=\_blank\ >{1}</a></p>", Address, Name)
End While
Else
Marquee += "<p align=\center\ > تاکنون لینکی در سایت ثبت نشده است </p>"
End If
Marquee += "</marquee>"
con.Close()
RecordSet.Close()
Return Marquee
End Function
و اونم اینه که من نمی تونم توش عکس هم بزارم
فقط می خوام کنار هر گزینه یه ایکون کوچیک هم شکل
باشه همین
ممنون