※ ChatGPTを利用し、要約された質問です（原文：VBスクリプトのthis）
VBスクリプトで行の追加と削除ができない問題の解決方法
このQ&Aのポイント
ASPとVBSでプログラムを作成している際に、行の追加と削除がうまく動作しないという問題について質問です。
具体的には、＋ボタンを押すと行が追加されていくこと、追加された行の－ボタンを押すと行が消えることができない状況です。
この問題に対して解決方法を教えていただけないでしょうか？
私、ASPとVBSでプログラムを作成しているのですが次のような動作が実現できません。
(1)「＋」を押すと、行が追加されていって
(2)追加された行の「－」を押すと
(3)追加された行が消える
助けてください。こんな感じです。thisがオブジェクトとして認識してくれません・・・
【asp.asp】
<script language=vbscript>
Sub InsertRow
intMax = document.all.max.value
intMax = intMax + 1
If intMax = 6 then
Exit Sub
End If
strTD="<img src='../img/img.gif' ID='addTD" & intMax & "' ONCLICK=DeleteRow(this)>"
Set Cell = document.CreateElement("TD")
Set Row = document.all("TBL").InsertRow(-1)
Row.appendChild(Cell)
Cell.InnerHTML = strTD
document.all.max.value = intMax
End Sub
Sub DeleteRow(e)
Row = Right(e.id, 1)
Row = CInt(Row)
intMax = document.all.max.value
If intMax = 0 Then
Exit Sub
End If
TBL.DeleteRow(Row)
For i = Row + 1 To intMax
document.all("addTD" & i).value = i - 1
Next
intMax = intMax - 1
document.all.max.value = intMax
End Sub
</script>
---省略---
<BODY>
<HTML>
<!-- #include file="../include/include.asp" -->
</BODY>
</HTML>
---省略---
【include.asp】
Response.Write "<TABLE ID='TBL'>" & vbCrLf
Response.Write " <TR><TD WIDTH='5%'>" & vbCrLf
Response.Write " <IMG SRC='../img/img.gif' ONCLICK=InsertRow()>" & vbCrLf
Response.Write " </TD></TR>" & vbCrLf
Response.Write "<TABLE>" & vbCrLf
補足
早速、ありがとうございます。 来週早々に試してみますね♪ （しっかり夏休み中でした・・・）