Altså man skal læse feltet "tekst2" og hvis der er (xxxx/yyyy) så skal den slå xxxx op til "tekst1" og tage zzzz fra "tekst". Ligeledes skal yyyy slåes op i "tekst2" og finde cccc i "tekst". så skal de nye væride gemmen så der bliver (zzzz/cccc) ? Det bliver nok umuligt i en SQL det bliver noget med loops og en del opslag i databasen.
Eks på koden som jeg forstår dit sprøgsmål, du skal nok lige rette conntion til at passe til din database og rette tabel navnet fra db_tekst til det rigtige.:
<% Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.RecordSet") Set tRs = Server.CreateObject("ADODB.RecordSet") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db7.mdb")
SQL = "SELECT * FROM db_tekst" Set rs = Conn.Execute(SQL)
do while not rs.EOF opdaterDB = false tekst = rs("tekst3")
if tekst <> "" then if Right(tekst,1) = ")" then 'indeholder tal index = inStrRev(tekst,"(") to_tal = Mid(tekst,index+1,len(tekst)-index-1) talArr = Split(to_tal,"/")
SQL = "SELECT tekst FROM db_tekst WHERE tekst2 = '" & talArr(0) & "'" Set tRs = Conn.Execute(SQL) if not trs.EOF then nyTal1 = tRs("tekst")
SQL = "SELECT tekst FROM db_tekst WHERE tekst2 = '" & talArr(1) & "'" Set tRs = Conn.Execute(SQL) if not trs.EOF then nyTal2 = tRs("tekst")
if nyTal1 <> "" and nyTal2 <> "" then tekst = Left(tekst,index) & nyTal1 & "/" & nyTal2 & ")" opdaterDB = true end if
if (opdaterDB = true) then SQL = "UPDATE db_tekst SET tekst3 = '" & tekst & "' WHERE id = " & rs("id") Conn.Execute(SQL) end if
end if end if
rs.MoveNext loop
Conn.Close %>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.