Her er koden til siden. Jeg sender dig kode og db via mail, er andre interesseret i dette kan i henvende jer til mig via mail.
<%
Sub sub_OpenDB (ByRef Connection)
Set Connection = server.CreateObject(\"adodb.Connection\")
Connection.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\"+Server.MapPath(\"net-ware.mdb\")
end sub
\'-------------------------------
function hent_translate(var_ord)
SQLstring = \"SELECT * FROM translate where dk=\'\" & var_ord & \"\' ;\"
Set RS =Connection.Execute(SQLstring)
IF RS.eof THEN
\' Her kan der laves et funktionskald til opsamling af nye ord
hent_translate=var_ord \'\"{¤}\"
ELSE
var_res=RS(\"uk\")
IF var_res =\"\" THEN
hent_translate=var_ord
ELSE
hent_translate=var_res
END IF
END IF
end function
sub_OpenDB Connection
\'-------------------------------
function translate_inddata (var_i)
var_i = \" \" & var_i & \" \"
if len(var_i) >0 THEN
var_len_old=len(var_i) +1
while(len(var_i)<var_len_old and len(var_i)>0)
var_len_old=len(var_i)
nr=instr( var_i, \" \")
var_ordet=left(var_i, nr-1)
var_ordet=trim(var_ordet)
var_x=hent_translate(var_ordet)
var_uddata = var_uddata & \" \" & var_x
var_len_lokal= len(var_i)-nr
var_i=right(var_i, var_len_lokal )
wend
end if
translate_inddata=var_uddata
end function
\'-------------------------------
var_inddata=request(\"inddata\")
var_leng=len(var_inddata)
var_inddata= Replace(var_inddata, chr(34) , \" \" & chr(34) & chr(34) & \" \") \'anførelsestegn
\'-------------------------------
%>
<html>
<head>
<meta name=\"GENERATOR\" content=\"Net-ware editor\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>Net-ware translater</title>
</head>
<body>
<form method=\"POST\" action=\"translate.asp\">
<input type=\"text\" name=\"inddata\" value=\"<%=var_inddata%>\" size=\"60\"><p>
<%%>
<input type=\"text\" name=\"uddata\" value=\"<%=trim(translate_inddata(var_inddata))%>\" size=\"60\" disabled=\"disabled\" ><p>
<input type=\"submit\" value=\"Send\" name=\"B1\">
</form>
</body>
</html>
