2 ens koder!

Nogle der kan hjælpe mig med at løse problemet

\\iZe^MaTe

Prøver lige igen :D

Jeg er ved at lave en side hvor der indgår asp i!
Problemet er bare at 2 af tingene bruger samme kode!
Også opstår der konflikt
koden er

Const adLockOptimistic = 3

Hvordan kan man få dette løst

Det er fordi det er en konstant og man kan kun definere kontanter en gang. Flere dele af koden i samme side kan godt bruge samme konstanter.

Du skal bare lade være med at difinere adLockOptimistic to gange

du kan f.eks. lave et tjek ved at bruge denne kode:

if adLockOptimistic = "" then
Const adLockOptimistic = 3
end if

du kan også bare skrive:
adLockOptimistic = 3

Du kan ikke bruge Const til at definere variablen mere end en gang.

koden ser sådan ud.

<%
    '---- CursorTypeEnum Values ----
    Const adOpenForwardOnly = 0
    Const adOpenKeyser = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3

    '---- LockTypeEnum Values ----
    Const adLockReadOnly = 1
    Const adLockPessimistic = 2
    Const adLockOptimistic = 3
    Const adLockBatchOptimistic = 4
+mere

%>
<%
Const adLockOptimistic = 3

+mere
%>

Hvordan kan man gøre så det virker?

Hvorfor includer du ikke bare msado15.dll ?

>> happycow-
du kan da ikke bare skrive <!--#include file="msado15.dll"-->

det der kan gøres er at fjerne const i den nederste linje, hvor der står: Const adLockOptimistic = 3

eller

if adLockOptimistic = "" then
Const adLockOptimistic = 3
end if

eller helt undlade at skrive linjen to gange den er jo defineret en gang

Hmm jeg kan ikke få det til at virke? nogen foreslag!

\\iZe^MaTe

Koden ser sådan her ud:

<%
    '---- CursorTypeEnum Values ----
    Const adOpenForwardOnly = 0
    Const adOpenKeyser = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3

    '---- LockTypeEnum Values ----
    Const adLockReadOnly = 1
    Const adLockPessimistic = 2
her-->    Const adLockOptimistic = 3
    Const adLockBatchOptimistic = 4

    response.buffer = true
    con= "Provider=Microsoft.Jet.OleDB.4.0; Data Source=" & Server.MapPath("mail.mdb")
    rs.cursortype = adLockOptimistic
    if request.querystring = "write" then

    sql = "SELECT * FROM gaestebog WHERE (id=0) "

    set rs = server.createobject ("adodb.recordset")
   
    rs.cursortype = adopendynamic
    rs.open sql, con
    rs.addnew
        rs ("name") = trim(request.form("formName"))
        rs ("message") = trim(request.form("formMessage"))
        rs ("email") = trim(request.form("formEmail"))
        rs ("dato") = date()
        rs ("tid") = time()
        rs.update
        rs.close
        set rs = nothing
        response.redirect("index.asp")
    end if
    %>

nogen foreslag? til hvordan man kan ændre Const adLockOptimistic = 3 ?

jeg forstår ikke hvorfor du vil ændre den, det er nok at definere den en gang.

men hvis jeg fjener den ene virker det heller ikke!
jeg er nemlig ikke særlig raket til asp

\\iZe^Mate

Ham selv. fik ikke et svar der virkede

\\izemate