Har en kund som vars kod inte riktigt fungerar.
Har installerat VB Script Engine 5.5 (eller vilken det är) men det vill fortfarande inte. Har dock provat andra Reg Exp och de fungerar fint.
De rader markerade med ' är de som inte fungerar:
<%@ Language=VBScript %>
<!-- #include file="../db/dbkplgj.asp" -->
<% Dim bid,nbort,ingress,nyhet,nrub,vem
bid=Request.Form("bid")
nbort=Request.Form("nbort")
if nbort="" then
nbort=dateAdd("m",6,date())
end if
ingress=Request.Form("ingress")
nyhet=Request.Form("nyhet")
nrub=Request.Form("nrub")
vem=Request.Form("vem")
'if ingress<>"" then
' re.pattern="<[^>]*>"
' ingress=re.replace(ingress," ")
' ingress=Replace(ingress,"'","''")
'end if
'if nyhet<>"" then
' re.pattern="<[^>]*>"
' nyhet=re.replace(nyhet," ")
' nyhet=Replace(nyhet,"'","''")
'end if
'if nrub<>"" then
' re.pattern="<[^>]*>"
' nrub=re.replace(nrub," ")
' nrub=Replace(nrub,"'","''")
'end if
sql="UPDATE tblbanan SET nbort='"&nbort&"',ingress='"&ingress&"',nyhet='"&nyhet&"',nrub='"&nrub&"',vem="&vem&" WHERE bid="&bid&";"
set rs=conn.Execute(sql)
'response.write(sql)
%><!-- #include file="../db/dbloss.asp" --><%
response.redirect("start.asp")
%>
Någon som har en aning om hur jag ska lösa det eller om något i koden ser fel ut? Har själv ingen aning om hur det ska lösas.