Replace

Hejsan.... Ja sitter här tänkte göra en räknare i bilder och så tänkte ja använda replace men ja vet ej riktigt hur ja ska göra tänkte så här

<%
Set Connect = Server.CreateObject("ADODB.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"
DSNtemp=dsntemp & "DBQ=" & Server.MapPath("counter.mdb")
Connect.Open DSNtemp
SQLstmt = "SELECT hits FROM total"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQLstmt, Connect, 3, 3

Function forumKod(strText) 
strText = Server.HTMLEncode(strText) 
strText = Replace(strText,"0","img scr='0.gif'") 
strText = Replace(strText,"1","img scr='1.gif'") 
strText = Replace(strText,"2","img scr='2.gif'") 
strText = Replace(strText,"3","img scr='3.gif'") 
strText = Replace(strText,"4","img scr='4.gif'") 
strText = Replace(strText,"5","img scr='5.gif'") 
strText = Replace(strText,"6","img scr='6.gif'") 
strText = Replace(strText,"7","img scr='7.gif'")
strText = Replace(strText,"8","img scr='8.gif'") 
strText = Replace(strText,"9","img scr='9.gif'") 
 
strText = TRIM(strText) 
strText = Replace(strText,vbcrlf," <br>") 
forumKod = strText 
End Function 

%>

men den funkar ej har ni några andra förslag, själv står det ganska still

------------------
Dont drink and drive!!! smoke shit and fly!!!

Glöm det, förlåt det var bara ja som glömde en sak :) tänk vad små = kan göra :)

Sorry änu en gång...

------------------
Dont drink and drive!!! smoke shit and fly!!!

Hejsan.. ja löste juh första problemet själv men nu kom ja på att ja hade ett annat problem....

Function forumKod(strText) 
strText = Server.HTMLEncode(strText) 
strText = Replace(strText,"0","<img src=0.gif width=4 height=5>")
strText = Replace(strText,"1","<img src=1.gif width=4 height=5>") 
strText = Replace(strText,"2","<img src=2.gif width=4 height=5>") 
strText = Replace(strText,"3","<img src=3.gif width=4 height=5>")
strText = Replace(strText,"4","<img src=4.gif width=4 height=5>") 
strText = Replace(strText,"5","<img src=5.gif width=4 height=5>") 
strText = Replace(strText,"6","<img src=6.gif width=4 height=5>") 
strText = Replace(strText,"7","<img src=7.gif width=4 height=5>")
strText = Replace(strText,"8","<img src=8.gif width=4 height=5>")
strText = Replace(strText,"9","<img src=9.gif width=4 height=5>")

 
strText = TRIM(strText) 
strText = Replace(strText,vbcrlf," <br>") 
forumKod = strText 
End Function 

%>

När ja kör den koden funkar det bra i räknaren och den gör som ja vill men när räknaren i databasen gör över 9 till 10 eller över så funkar det inte... ja trode att den skulle göra det auto men icke så är det någon som har någon bra lösning?

------------------
Dont drink and drive!!! smoke shit and fly!!!

Ingen som kunnde fixa detta?
Men ja hitta en lösning genom en kompis

  <%
Set Connect = Server.CreateObject("ADODB.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"
DSNtemp=dsntemp & "DBQ=" & Server.MapPath("counter.mdb")
Connect.Open DSNtemp
SQLstmt = "SELECT hits FROM total"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQLstmt, Connect, 3, 3

For i = 1 To Len(RS("hits"))

Response.Write("<IMG SRC=""" & Mid(RS("hits"),i,1) & ".gif"">")

Next

%>

Mvh

------------------
Dont drink and drive!!! smoke shit and fly!!!

Ingen som kunnde fixa detta?
Men ja hitta en lösning genom en kompis

  <%
Set Connect = Server.CreateObject("ADODB.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"
DSNtemp=dsntemp & "DBQ=" & Server.MapPath("counter.mdb")
Connect.Open DSNtemp
SQLstmt = "SELECT hits FROM total"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQLstmt, Connect, 3, 3

For i = 1 To Len(RS("hits"))

Response.Write("<IMG SRC=""" & Mid(RS("hits"),i,1) & ".gif"">")

Next

%>

Ps (för er som vill se hur det blev kolla in http://rubensoft.d2g.com/figg3 )

Mvh

------------------
Dont drink and drive!!! smoke shit and fly!!!

[Redigerat av FIgg3 den 07 feb 2002]

[Redigerat av FIgg3 den 07 feb 2002]

[Redigerat av FIgg3 den 07 feb 2002]